+import Test.HUnit
+
+import Twitter.Xml(xml_tests)
+
+-- The list of HUnit tests.
+test_suite = TestList (concat [xml_tests])
+
+main :: IO ()
+main = do
+ putStrLn "HUnit"
+ putStrLn "-----"
+ runTestTT test_suite
+ return ()
\ No newline at end of file