Commit a8e2fe3a authored by Steffen Michels's avatar Steffen Michels

read rest of child output, also if child exists with error

parent 62371f47
Pipeline #12459 passed with stage
in 40 seconds
......@@ -289,7 +289,7 @@ where
= return event r io w
# rcode = fromOk t
// Check return code
| rcode == Just 0
| isJust rcode
# (_,output,io,w) = readPipes output pio io w
# results = map (fromJSON o fromString) $ filter ((<>) "") output.lines
| any isNothing results
......@@ -302,16 +302,16 @@ where
= return event r io w
# ee = mergeResults $ map fromJust results
# io = emit (EndEvent ee) io
| fromJust rcode <> 0
# event = Failed Nothing
# io = emit ( EndEvent { name = r.TestRun.name
, event = event
, message = "Child process exited with " <+ fromJust rcode
}
)
io
= return event r io w
= return ee.event r io w
| isJust rcode
# (_,output,io,w) = readPipes output pio io w
# event = Failed Nothing
# io = emit (EndEvent
{ name = r.TestRun.name
, event = event
, message = "Child process exited with " <+ fromJust rcode
}) io
= return event r io w
# w = snd $ fclose io w
= redirect output h pio r w
where
......
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