Verified Commit c272df80 authored by Camil Staps's avatar Camil Staps 🚀

Printing failed child messages: avoid {flatten,weird characters in output,long lines of output}

parent 8cf704f7
Pipeline #12730 passed with stage
in 36 seconds
......@@ -320,11 +320,15 @@ where
# io = emit (EndEvent
{ name = r.TestRun.name
, event = event
, message = concat
, message = join "\n "
[ "Failed to read child messages:"
: flatten [["\n ", outp] \\ outp <- output.lines & Nothing <- results]
: [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