X-Git-Url: http://gitweb.michael.orlitzky.com/?p=dead%2Fhalcyon.git;a=blobdiff_plain;f=test%2FTestSuite.hs;h=4fa222dfbfa1bd87dcf2f97bc80f82b33de5da56;hp=09087b9de99cd4742e75509c13ad61bd451f61ad;hb=bbd3f429da0e9e5906f6aecb85f1c00683500428;hpb=290bcbf36437cf651360fb63bf80b6d6c887e80d diff --git a/test/TestSuite.hs b/test/TestSuite.hs index 09087b9..4fa222d 100644 --- a/test/TestSuite.hs +++ b/test/TestSuite.hs @@ -1,13 +1,15 @@ import Test.HUnit -import Twitter.Xml(xml_tests) +import StringUtils (string_utils_tests) +import Twitter.Status(status_tests) +import Html(html_tests) -- The list of HUnit tests. -test_suite = TestList (concat [xml_tests]) +test_suite = TestList (concat [html_tests, status_tests, string_utils_tests]) main :: IO () main = do putStrLn "HUnit" putStrLn "-----" runTestTT test_suite - return () \ No newline at end of file + return ()