Print error in failing tests to detect failing test coverage
commit10da3a024784815cc32cbbe182233027afe43cd7
authorPhil Freeman <paf31@cantab.net>
dateMon 23 Feb 2015, 10:59 (12 years ago)
parent326064a
tests/Main.hs+1−1
@@ -77,7 +77,7 @@ assertDoesNotCompile preludeExterns inputFile = do
7777 putStrLn $ "Assert " ++ inputFile ++ " does not compile"
7878 assert preludeExterns (P.defaultCompileOptions { P.optionsAdditional = P.CompileOptions "Tests" [] [] }) inputFile $ \e ->
7979 case e of
80− Left _ -> return Nothing
80+ Left err -> putStrLn err >> return Nothing
8181 Right _ -> return $ Just "Should not have compiled"
8282
8383findNodeProcess :: IO (Maybe String)