import Test.HUnit idTest = test [ id "Hello" ~?= "Hello" ] constTest = test [ const "Hello" "World" ~?= "Hello" ] main = runTestTT $ test [ "idTest" ~: idTest, "constTest" ~: constTest ]