$kw_line =~ s/^\([^\)]+\)\s+//;
print "$kw_line\n";
- # Append output, eliminating uninteresting header and trailer info
- # if possible.
- my (@core) = get_core_output (@output);
- @output = @core if @core;
- print "Program output:\n\n" . join ('', map ("$_\n", @output));
-
fail;
}
print <<EOF;
Pintos spontaneously rebooted during this test.
-This is most often caused by unhandled page faults. Output from
-initial boot through the first reboot is shown below:
-
+This is most often caused by unhandled page faults.
EOF
- my ($i) = 0;
- local ($_);
- for (@output) {
- print " $_\n";
- last if /Pintos booting/ && ++$i > 1;
- }
-
fail;
}
}
die "unknown option " . (keys (%options))[0] . "\n" if %options;
- my ($msg) = "Actual output:\n" . join ('', map (" $_\n", @output));
+ my ($msg);
# Compare actual output against each allowed output.
foreach my $exp_string (@$expected) {
my (@expected) = split ("\n", $exp_string);
- $msg .= "\nAcceptable output:\n";
+ $msg .= "Acceptable output:\n";
$msg .= join ('', map (" $_\n", @expected));
# Check whether actual and expected match.