Guest User

Untitled

a guest
May 23rd, 2018
107
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.42 KB | None | 0 0
  1. module Board.TestBoard where
  2.  
  3. import Board.Board
  4. import Board.Mark
  5. import HUnit.HUnit
  6.  
  7. testBoard = [empty, o, empty, empty, empty, empty, empty, empty, empty]
  8.  
  9. testIsEmpty = TestCase (assertEqual "should return true if the given index on board is marked empty," True (isEmpty testBoard 0))
  10. 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