Use test-framework instead of bare HUnit for the test suite.

[dead/halcyon.git] / test / TestSuite.hs

diff --git a/test/TestSuite.hs b/test/TestSuite.hs
index 4fa222dfbfa1bd87dcf2f97bc80f82b33de5da56..036e61622e1df1d1d5a14ead79e25864088b9a47 100644 (file)
--- 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