Commit 046d2170 authored by Steffen Michels's avatar Steffen Michels

set return code to 1 in case of failed tests

parent 1fb6a56d
......@@ -393,4 +393,7 @@ where
return :: !EndEventType !TestRun !*File !*World -> *(!RunResult, !*World)
return eet r io w
# (_,w) = fclose io w
# w = case eet of
Failed _ -> setReturnCode 1 w
_ -> w
= ({run=r, result=eet}, w)
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment