Rename field board -> cells
This commit is contained in:
parent
75e1b62dfb
commit
c2df3477fd
2 changed files with 10 additions and 10 deletions
|
|
@ -19,7 +19,7 @@ spec = describe "gameboard" do
|
|||
, ((1, 0), Just $ IntTile 3)
|
||||
, ((1, 1), Just $ IntTile 4)
|
||||
]
|
||||
gameBoard = MkGameBoard{width = 2, height = 2, gameMode = MkSumTo 10, board = tiles}
|
||||
gameBoard = MkGameBoard{width = 2, height = 2, gameMode = MkSumTo 10, cells = tiles}
|
||||
|
||||
it "displays correctly" do
|
||||
displayText gameBoard `shouldBe` "1 2 \n3 4 \n"
|
||||
|
|
@ -30,4 +30,4 @@ spec = describe "gameboard" do
|
|||
|
||||
it "clears properly" do
|
||||
let cleared = clear (0, 0) (0, 1) gameBoard
|
||||
elems (board cleared) `shouldBe` [Nothing, Nothing, Just $ IntTile 3, Just $ IntTile 4]
|
||||
elems (cells cleared) `shouldBe` [Nothing, Nothing, Just $ IntTile 3, Just $ IntTile 4]
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue