Merge branch 'printInvalidChildMessages' into 'master'

print invalid child messages

See merge request !7

cleantest.icl

@@ -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