test/TestSuite.hs

   1 import Test.HUnit
   2
   3 import StringUtils (string_utils_tests)
   4 import Twitter.Status(status_tests)
   5 import Html(html_tests)
   6
   7 -- The list of HUnit tests.
   8 test_suite = TestList (concat [html_tests, status_tests, string_utils_tests])
   9
  10 main :: IO ()
  11 main = do
  12   putStrLn "HUnit"
  13   putStrLn "-----"
  14   runTestTT test_suite
  15   return ()