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