}
if($r == 0) {
- my $stderrlog="";
- if($linecount > 0) {
- $stderrlog=sprintf("-- %d lines extra in stderr", $linecount);
+ if($linecount == 0) {
+ printf " %-35s: passed\n", $name;
+ } else {
+ printf " %-35s: passed with error messages:\n", $name;
+ system "cat $stderrlog";
}
- printf " %-35s: passed%s\n", $name, $stderrlog;
unlink "DIFF/$outputbase.diff";
exit 0;
}
if(-f "core") {
$with = "with";
}
- printf " (terminated with signal %u, %s coredump)\n", ($r & 127), $with;
+ printf " (terminated with signal %u, %s coredump)", ($r & 127), $with;
+ if($linecount == 0) {
+ print "\n";
+ } else {
+ print " with error messages:\n";
+ system "cat $stderrlog";
+ }
exit ($r & 128) ? 10 : 20;
}
-print "\n";
+if($linecount == 0) {
+ print "\n";
+} else {
+ print " with error messages:\n";
+ system "cat $stderrlog";
+}
exit $r >> 8;