A HUnit Test Suite Skeleton

import Test.HUnit

idTest =
  test [
    id "Hello" ~?= "Hello" 
  ]

constTest =
  test [
    const "Hello" "World" ~?= "Hello" 
  ]

main = runTestTT $
  test [
    "idTest" ~: idTest,
    "constTest" ~: constTest
  ]