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

Initial commit

Browse source
This commit is contained in:
Paul-Henri Froidmont 2019-11-24 02:49:57 +01:00 • committed by Paul-Henri Froidmont
commit 4e77f37a5f
9 changed files with 289 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

49
test/Spec.hs Normal file
View file

@ -0,0 +1,49 @@
import Lib
import Test.Tasty
import Test.Tasty.HUnit
main :: IO ()
main = defaultMain $ testGroup "Minesweeper tests" [flagTileTest]
emptyBoard :: Board
emptyBoard = Board [[]]
hiddenBoard :: Board
hiddenBoard =
Board
[ [Bomb Hidden, Value 1 Hidden, Value 0 Hidden]
, [Value 1 Hidden, Value 1 Hidden, Value 0 Hidden]
, [Value 0 Hidden, Value 0 Hidden, Value 0 Hidden]
]
revealedBoard :: Board
revealedBoard =
Board
[ [Bomb Revealed, Value 1 Revealed, Value 0 Revealed]
, [Value 1 Revealed, Value 1 Revealed, Value 0 Revealed]
, [Value 0 Revealed, Value 0 Revealed, Value 0 Revealed]
]
flagTileTest :: TestTree
flagTileTest =
testGroup
"Flag tile"
[ testCase "Empty board" $ flagTile emptyBoard (1, 1) @?= emptyBoard
, testCase "Flag bomb tile" $
flagTile hiddenBoard (0, 0) @?=
Board
[ [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 hiddenBoard (2, 0) @?=
Board
[ [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 revealedBoard (0, 0) @?= revealedBoard
, testCase "Flag revealed value tile" $ flagTile revealedBoard (1, 2) @?= revealedBoard
]