Skip to content

Instantly share code, notes, and snippets.

@naush

naush/hunit_7.hs

Created July 19, 2010 21:58
Show Gist options
  • Save naush/482102 to your computer and use it in GitHub Desktop.
Save naush/482102 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
hunit_7.hs
module UI.TestMenu where
import TestHelper
import HUnit.HUnit
import UI.Menu as Menu
gets move = return move
testAskMove = TestCase (do move <- askMove $ gets 0
assertEqual "should return 0," 0 move)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment