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
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]))), ]