Commit 0491386f authored by Camil Staps's avatar Camil Staps 🍃

Merge branch 'printInvalidChildMessages' into 'master'

print invalid child messages

See merge request !7
parents a4d76390 c272df80
Pipeline #12732 passed with stage
in 37 seconds
......@@ -24,7 +24,7 @@ import System.Options
import System.Process
import Testing.Options
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.GenParse
import Text.GenPrint
......@@ -320,8 +320,15 @@ where
# io = emit (EndEvent
{ name = r.TestRun.name
, event = event
, message = "Failed to read child messages"
, message = join "\n "
[ "Failed to read child messages:"
: [printToString (ellipsis 40 outp) \\ outp <- output.lines & Nothing <- results]
]
}) io
with
ellipsis n s
| size s <= n = s
| otherwise = s % (0,n-4) +++ "..."
= return event r io w
# ee = mergeResults $ map fromJust results
# io = emit (EndEvent ee) io
......
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