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

diff --git a/test/TestSuite.hs b/test/TestSuite.hs
index 4fa222d..036e616 100644
--- a/test/TestSuite.hs
+++ b/test/TestSuite.hs
@@ -1,15 +1,16 @@
-import Test.HUnit
+import Test.Framework (
+  Test,
+  defaultMain,
+  )
 
 import StringUtils (string_utils_tests)
 import Twitter.Status(status_tests)
 import Html(html_tests)
 
--- The list of HUnit tests.
-test_suite = TestList (concat [html_tests, status_tests, string_utils_tests])
+tests :: [Test]
+tests = [ html_tests,
+          status_tests,
+          string_utils_tests ]
 
 main :: IO ()
-main = do
-  putStrLn "HUnit"
-  putStrLn "-----"
-  runTestTT test_suite
-  return ()
+main = defaultMain tests