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

diff --git a/test/TestSuite.hs b/test/TestSuite.hs
index 4fa222d..e91d3e9 100644
--- a/test/TestSuite.hs
+++ b/test/TestSuite.hs
@@ -1,15 +1,18 @@
-import Test.HUnit
+module Main
+where
 
-import StringUtils (string_utils_tests)
-import Twitter.Status(status_tests)
-import Html(html_tests)
+import Test.Tasty ( TestTree, defaultMain, testGroup )
 
--- The list of HUnit tests.
-test_suite = TestList (concat [html_tests, status_tests, string_utils_tests])
+import StringUtils ( string_utils_tests )
+import Twitter.Status ( status_tests )
+import Html ( html_tests )
+
+tests :: TestTree
+tests =
+  testGroup "All Tests" [
+    html_tests,
+    status_tests,
+    string_utils_tests ]
 
 main :: IO ()
-main = do
-  putStrLn "HUnit"
-  putStrLn "-----"
-  runTestTT test_suite
-  return ()
+main = defaultMain tests