Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- module Board.TestBoard where
- import Board.Board
- import Board.Mark
- import HUnit.HUnit
- testBoard = [empty, o, empty, empty, empty, empty, empty, empty, empty]
- testIsEmpty = TestCase (assertEqual "should return true if the given index on board is marked empty," True (isEmpty testBoard 0))
- testIsNotEmpty = TestCase (assertEqual "should return false if the given index on board is not marked empty," False (isEmpty testBoard 1))
Add Comment
Please, Sign In to add comment