[Added descriptive output at the end of the test run.
Nils Anders Danielsson <nad@cs.chalmers.se>**20050601001523] hunk ./Test/ChasingBottoms/Tests.hs 55
-main = fmap and $ sequence theTests
+main = do
+  ok <- fmap and $ sequence theTests
+  putStrLn ""
+  if ok then
+    putStrLn "All tests succeeded."
+   else
+    putStrLn "At least one test failed."
+  return ok