Skip to content

Instantly share code, notes, and snippets.

@naush
Created July 19, 2010 21:40
Show Gist options
  • Save naush/482069 to your computer and use it in GitHub Desktop.
Save naush/482069 to your computer and use it in GitHub Desktop.
module UI.TestMenu where
import TestHelper
import HUnit.HUnit
import UI.Menu as Menu
mockBoard = "+++++++++"
mockFormatBoard board = board
testPrint expected actual = expected == actual
printBoard message = testPrint mockBoard message
testPutBoard = TestCase (assertTrue "should call formatBoard and puts board," $ putBoard printBoard mockFormatBoard mockBoard)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment