Importing this module allows you to use an HUnit
test case as an example
for a behavior. You can use an explicit TestCase
data constructor or
use an IO()
action. For an IO()
action, any exception means the example
failed; otherwise, it's successfull.
describe "cutTheDeck" [ it "puts the first half of a list after the last half" (TestCase $ assertEqual "cut the deck" [3,4,1,2] (cutTheDeck [1,2,3,4])), it "restores an even sized list when cut twice" (assertEqual "cut the deck twice" [3,4,1,2] (cutTheDeck (cutTheDeck [1,2,3,4]))), ]