From d2a8a6dce8c60a1a181f67a6d4af98d5ce57743f Mon Sep 17 00:00:00 2001 From: Ben Pfaff Date: Tue, 21 Jun 2005 05:37:46 +0000 Subject: [PATCH] Print message for perfect score. --- src/tests/make-grade | 3 +++ 1 file changed, 3 insertions(+) diff --git a/src/tests/make-grade b/src/tests/make-grade index 23f6ec3..5f60fa3 100755 --- 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, ''); -- 2.30.2