test/TestSuite.hs

   1 import Test.HUnit
   2
   3 import Twitter.Xml(xml_tests)
   4
   5 -- The list of HUnit tests.
   6 test_suite = TestList (concat [xml_tests])
   7
   8 main :: IO ()
   9 main = do
  10   putStrLn "HUnit"
  11   putStrLn "-----"
  12   runTestTT test_suite
  13   return ()