Test.Hspec.HUnit

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