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 ...@@ -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,8 +320,15 @@ where ...@@ -320,8 +320,15 @@ 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 = join "\n "
[ "Failed to read child messages:"
: [printToString (ellipsis 40 outp) \\ outp <- output.lines & Nothing <- results]
]
}) io }) io
with
ellipsis n s
| size s <= n = s
| otherwise = s % (0,n-4) +++ "..."
= return event r io w = return event r io w
# ee = mergeResults $ map fromJust results # ee = mergeResults $ map fromJust results
# io = emit (EndEvent ee) io # 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