-import Test.HUnit
+module Main
+where
-import Twitter.Xml(xml_tests)
+import Test.Tasty ( TestTree, defaultMain, testGroup )
--- The list of HUnit tests.
-test_suite = TestList (concat [xml_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 ()
\ No newline at end of file
+main = defaultMain tests