diff --git a/cleantest.icl b/cleantest.icl index ba9bb7e1f50da7c9b1d0845ec2fb1874f6dbfb2f..0ccf6b4f5c65d72079837d2a24df7366758d8fec 100644 --- a/cleantest.icl +++ b/cleantest.icl @@ -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