Fix fromJust runtime error when child gives unreadable messages

cleantest.icl

@@ -311,9 +311,9 @@ where
 	// Check child output
 	# (continue,output,io,w) = readPipes output pio io w
 	| isError continue = return (Failed Nothing) r io w
-	| continue =: (Ok False)
+	| continue=:(Ok False)
 		# results = map (fromJSON o fromString) $ filter ((<>) "") output.lines
-		# ee = mergeResults $ map fromJust results
+		# ee = collectEvents $ map fromJust results
 		= return ee.event r io w
 	// Check if child has terminated
 	# (t,w) = checkProcess h w
@@ -346,7 +346,7 @@ where
 					| size s <= n = s
 					| otherwise   = s % (0,n-4) +++ "..."
 			= return event r io w
-		# ee = mergeResults $ map fromJust results
+		# ee = collectEvents $ map fromJust results
 		# io = emit (EndEvent ee) io
 		| fromJust rcode <> 0
 			# event = Failed Nothing
@@ -361,8 +361,8 @@ where
 	# w = snd $ fclose io w
 	= redirect output h pio r w
 	where
-		mergeResults :: [TestEvent] -> EndEvent
-		mergeResults tes =
+		collectEvents :: [TestEvent] -> EndEvent
+		collectEvents tes =
 			{ name    = r.TestRun.name
 			, event   = if (isEmpty failed && isEmpty lost) Passed
 				(Failed $ Just $ FailedChildren $
@@ -401,7 +401,7 @@ where
 				| not continue && opts.stop_on_first_failure
 					-> (continue, io)
 					-> case fromJSON $ fromString s of
-						Nothing -> (False, io)
+						Nothing -> (True, io)
 						Just ev -> (not $ ev=:(EndEvent {event=Failed _}), emit ev io))
 			output
 			(True, io)