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

diff --git a/test/TestSuite.hs b/test/TestSuite.hs
index f583ca1..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 Twitter.Xml(xml_tests)
+import Html(html_tests)
 
--- The list of HUnit tests.
-test_suite = TestList (concat [xml_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 ()
\ No newline at end of file
+main = defaultMain tests