initial

test/Main.hs

@@ -0,0 +1,14 @@
+module Main where
+
+import Universe.World
+
+import Test.HUnit
+
+tests = test
+   [ "message correct" ~: "WORLD" ~=? world
+   , "expected to pass" ~: assertBool "failed anyway" $ not ("WORLD" == "BLAH")
+   , "sanity check" ~: 3 ~=? (2 + 1)
+   ]
+
+main :: IO ()
+main = runTestTTAndExit tests