X-Git-Url: http://gitweb.michael.orlitzky.com/?p=dead%2Fhalcyon.git;a=blobdiff_plain;f=test%2FTestSuite.hs;fp=test%2FTestSuite.hs;h=09087b9de99cd4742e75509c13ad61bd451f61ad;hp=0000000000000000000000000000000000000000;hb=290bcbf36437cf651360fb63bf80b6d6c887e80d;hpb=569740692ca60f6c41fe2d9000661dd1059c7a0a

diff --git a/test/TestSuite.hs b/test/TestSuite.hs
new file mode 100644
index 0000000..09087b9
--- /dev/null
+++ b/test/TestSuite.hs
@@ -0,0 +1,13 @@
+import Test.HUnit
+
+import Twitter.Xml(xml_tests)
+
+-- The list of HUnit tests.
+test_suite = TestList (concat [xml_tests])
+
+main :: IO ()
+main = do
+  putStrLn "HUnit"
+  putStrLn "-----"
+  runTestTT test_suite
+  return ()
\ No newline at end of file