@@ -172,9 +172,19 @@ assertDoesNotCompile inputFiles foreigns = do
173main :: IO ()
173main :: IO ()
175+ heading "Main compiler test suite"
175 testCompiler
176 testCompiler
177+ heading "psc-publish test suite"
176 testPscPublish
178 testPscPublish
183+ putStrLn $ replicate 79 '#'
184+ putStrLn $ "# " ++ msg
185+ putStrLn $ replicate 79 '#'
178testCompiler :: IO ()
188testCompiler :: IO ()
179testCompiler = do
189testCompiler = do
180 fetchSupportCode
190 fetchSupportCode