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

diff --git a/test/TestSuite.hs b/test/TestSuite.hs
index 09087b9..036e616 100644
--- a/test/TestSuite.hs
+++ b/test/TestSuite.hs
@@ -1,13 +1,16 @@
-import Test.HUnit
+import Test.Framework (
+  Test,
+  defaultMain,
+  )
 
-import Twitter.Xml(xml_tests)
+import StringUtils (string_utils_tests)
+import Twitter.Status(status_tests)
+import Html(html_tests)
 
--- The list of HUnit tests.
-test_suite = TestList (concat [xml_tests])
+tests :: [Test]
+tests = [ html_tests,
+          status_tests,
+          string_utils_tests ]
 
 main :: IO ()
-main = do
-  putStrLn "HUnit"
-  putStrLn "-----"
-  runTestTT test_suite
-  return ()
\ No newline at end of file
+main = defaultMain tests