skulk/numbersquare
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

implement clear

Browse source
This commit is contained in:
Sidharth Kulkarni 2026-05-03 14:10:20 -07:00
parent a9b265fabc
commit 140d6989ec
Signed by: skulk
SSH key fingerprint: SHA256:Jby+S9d1WmwqnXIrngHgccYNHz+cYquxN1zm3ym3Kbg
2 changed files with 9 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

6
test/Spec.hs
View file

@ -3,7 +3,7 @@
module Spec where
import Data.Array (array)
import Data.Array (array, elems)
import Display (displayText)
import Test.Hspec
import Types.GameBoard
@ -27,3 +27,7 @@ spec = describe "gameboard" do
it "validates a move" do
selectCheck (0, 0) (1, 1) gameBoard `shouldBe` True
selectCheck (0, 0) (0, 1) gameBoard `shouldBe` False
it "clears properly" do
let cleared = clear (0, 0) (0, 1) gameBoard
elems (board cleared) `shouldBe` [Nothing, Nothing, Just $ IntTile 3, Just $ IntTile 4]