projects
/
pintos-anon
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Always print output for failing test cases.
[pintos-anon]
/
src
/
tests
/
make-grade
diff --git
a/src/tests/make-grade
b/src/tests/make-grade
index 20e0cd9e3d7bf58b4787edbe4aa2b072297e57e1..f8c1443148cd6e0b473fb14bb4d6658759823710 100755
(executable)
--- a/
src/tests/make-grade
+++ b/
src/tests/make-grade
@@
-116,19
+116,22
@@
my (@divider) = ('', '- ' x 38, '');
print map ("$_\n", @overall, @divider, @summary, @divider, @rubrics);
for my $test (@failures) {
print map ("$_\n", @overall, @divider, @summary, @divider, @rubrics);
for my $test (@failures) {
- open (RESULT, '<', "$test.result") or next;
print map ("$_\n", @divider);
print "DETAILS OF $test FAILURE:\n\n";
print map ("$_\n", @divider);
print "DETAILS OF $test FAILURE:\n\n";
- my $first_line = <RESULT>;
- my ($cnt) = 0;
- while (<RESULT>) {
- print;
- $cnt++;
+
+ if (open (RESULT, '<', "$test.result")) {
+ my $first_line = <RESULT>;
+ my ($cnt) = 0;
+ while (<RESULT>) {
+ print;
+ $cnt++;
+ }
+ close (RESULT);
}
}
- close (RESULT);
- if ($cnt == 0) {
- open (OUTPUT, '<', "$test.output") or next;
+ if (open (OUTPUT, '<', "$test.output")) {
+ print "\nOUTPUT FROM $test:\n\n";
+
my ($panics) = 0;
while (<OUTPUT>) {
if (/PANIC/ && ++$panics > 2) {
my ($panics) = 0;
while (<OUTPUT>) {
if (/PANIC/ && ++$panics > 2) {
@@
-140,4
+143,3
@@
for my $test (@failures) {
close (OUTPUT);
}
}
close (OUTPUT);
}
}
-