Print message for perfect score.

diff --git a/src/tests/make-grade b/src/tests/make-grade
index 23f6ec32d7a9aa4aa9594fb6cf3f62af01af33d8..5f60fa3d1fe7edddbed270886228e6bd5881548a 100755 (executable)
--- a/src/tests/make-grade
+++ b/src/tests/make-grade
@@ -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, '');