Print message for perfect score.
[pintos-anon] / src / tests / make-grade
index e6c4b9cdaad627eec2f2ab46612f7b3c43b987ce..5f60fa3d1fe7edddbed270886228e6bd5881548a 100755 (executable)
@@ -110,6 +110,9 @@ foreach my $name (keys (%verdicts)) {
     }
 }
 push (@overall, sprintf ("TOTAL TESTING SCORE: %.1f%%", $pct_actual));
+if (sprintf ("%.1f", $pct_actual) eq sprintf ("%.1f", $pct_possible)) {
+    push (@overall, "ALL TESTED PASSED -- PERFECT SCORE");
+}
 
 my (@divider) = ('', '- ' x 38, '');
 
@@ -132,13 +135,17 @@ for my $test (@failures) {
     if (open (OUTPUT, '<', "$test.output")) {
        print "\nOUTPUT FROM $test:\n\n";
     
-       my ($panics) = 0;
+       my ($panics, $boots) = (0, 0);
        while (<OUTPUT>) {
            if (/PANIC/ && ++$panics > 2) {
                print "[...details of additional panic(s) omitted...]\n";
                last;
            }
            print;
+           if (/Pintos booting/ && ++$boots > 1) {
+               print "[...details of reboot(s) omitted...]\n";
+               last;
+           }
        }
        close (OUTPUT);
     }