Commit 8cf704f7 authored by Steffen Michels's avatar Steffen Michels

print invalid child messages

parent e9d5da2e
Pipeline #12729 passed with stage
in 38 seconds
...@@ -24,7 +24,7 @@ import System.Options ...@@ -24,7 +24,7 @@ import System.Options
import System.Process import System.Process
import Testing.Options import Testing.Options
import Testing.TestEvents import Testing.TestEvents
from Text import <+, class Text(join,replaceSubString,split,trim), instance Text String from Text import <+, class Text(join,replaceSubString,split,trim,concat), instance Text String
import Text.GenJSON import Text.GenJSON
import Text.GenParse import Text.GenParse
import Text.GenPrint import Text.GenPrint
...@@ -320,7 +320,10 @@ where ...@@ -320,7 +320,10 @@ where
# io = emit (EndEvent # io = emit (EndEvent
{ name = r.TestRun.name { name = r.TestRun.name
, event = event , event = event
, message = "Failed to read child messages" , message = concat
[ "Failed to read child messages:"
: flatten [["\n ", outp] \\ outp <- output.lines & Nothing <- results]
]
}) io }) io
= return event r io w = return event r io w
# ee = mergeResults $ map fromJust results # ee = mergeResults $ map fromJust results
......
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