Skip to content
Snippets Groups Projects
Commit 240205a9 authored by f-a's avatar f-a Committed by andreas.abel
Browse files

Add test summary

parent cb920e55
No related branches found
No related tags found
No related merge requests found
......@@ -214,8 +214,13 @@ main = do
unexpected_passes <- takeMVar unexpected_passes_var
skipped <- takeMVar skipped_var
-- print skipped
logAll $ "SKIPPED " ++ show (length skipped) ++ " tests"
-- print summary
let sl = show . length
testSummary =
sl all_tests ++ " tests, " ++ sl skipped ++ " skipped, "
++ sl unexpected_passes ++ " unexpected passes, "
++ sl unexpected_fails ++ " unexpected fails."
logAll testSummary
-- print failed or unexpected ok
if null (unexpected_fails ++ unexpected_passes)
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment