phfroidmont/minesweeper-haskell
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Create user interractions

Browse source
This commit is contained in:
Paul-Henri Froidmont 2019-12-07 02:51:12 +01:00 • committed by Paul-Henri Froidmont
parent fd1aef44ef
commit 9a1cf149df
3 changed files with 58 additions and 45 deletions
Download patch file Download diff file Expand all files Collapse all files

23
test/Spec.hs
View file

@ -3,7 +3,7 @@ import Test.Tasty
import Test.Tasty.HUnit
main :: IO ()
main = defaultMain $ testGroup "Minesweeper tests" [flagTileTest, revealTileTest, createBoardTest]
main = defaultMain $ testGroup "Minesweeper tests" [revealTileTest, createBoardTest]
hiddenBoard :: Board
hiddenBoard =
@ -19,27 +19,6 @@ revealedBoard =
, [Value 0 Revealed, Value 0 Revealed, Value 0 Revealed]
]
flagTileTest :: TestTree
flagTileTest =
testGroup
"Flag tile"
[ testCase "Empty board" $ flagTile (1, 1) [] @?= []
, testCase "Flag bomb tile" $
flagTile (0, 0) hiddenBoard @?=
[ [Bomb Flagged, Value 1 Hidden, Value 0 Hidden]
, [Value 1 Hidden, Value 1 Hidden, Value 0 Hidden]
, [Value 0 Hidden, Value 0 Hidden, Value 0 Hidden]
]
, testCase "Flag value tile" $
flagTile (2, 0) hiddenBoard @?=
[ [Bomb Hidden, Value 1 Hidden, Value 0 Flagged]
, [Value 1 Hidden, Value 1 Hidden, Value 0 Hidden]
, [Value 0 Hidden, Value 0 Hidden, Value 0 Hidden]
]
, testCase "Flag revealed bomb tile" $ flagTile (0, 0) revealedBoard @?= revealedBoard
, testCase "Flag revealed value tile" $ flagTile (1, 2) revealedBoard @?= revealedBoard
]
revealTileTest :: TestTree
revealTileTest =
testGroup