projects
/
pintos-anon
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
pintos: Avoid literal control character in Perl variable name.
[pintos-anon]
/
src
/
tests
/
make-grade
diff --git
a/src/tests/make-grade
b/src/tests/make-grade
index 23f6ec32d7a9aa4aa9594fb6cf3f62af01af33d8..a3faa0ebd560ac1f5af6b1180a50f489125860ca 100755
(executable)
--- a/
src/tests/make-grade
+++ b/
src/tests/make-grade
@@
-72,7
+72,7
@@
while (<GRADING>) {
push (@rubrics, '');
my ($pct) = ($score / $possible) * $max_pct;
push (@rubrics, '');
my ($pct) = ($score / $possible) * $max_pct;
- push (@summary, sprintf ("%-4
0
s %3d/%3d %5.1f%%/%5.1f%%",
+ push (@summary, sprintf ("%-4
5
s %3d/%3d %5.1f%%/%5.1f%%",
$rubric_suffix,
$score, $possible,
$pct, $max_pct));
$rubric_suffix,
$score, $possible,
$pct, $max_pct));
@@
-82,16
+82,16
@@
while (<GRADING>) {
close GRADING;
my ($sum_line)
close GRADING;
my ($sum_line)
- = "---------------------------------------- --- --- ------ ------";
+ = "----------------------------------------
-----
--- --- ------ ------";
unshift (@summary,
"SUMMARY BY TEST SET",
'',
unshift (@summary,
"SUMMARY BY TEST SET",
'',
- sprintf ("%-4
0
s %3s %3s %6s %6s",
+ sprintf ("%-4
5
s %3s %3s %6s %6s",
"Test Set", "Pts", "Max", "% Ttl", "% Max"),
$sum_line);
push (@summary,
$sum_line,
"Test Set", "Pts", "Max", "% Ttl", "% Max"),
$sum_line);
push (@summary,
$sum_line,
- sprintf ("%-4
0
s %3s %3s %5.1f%%/%5.1f%%",
+ sprintf ("%-4
5
s %3s %3s %5.1f%%/%5.1f%%",
'Total', '', '', $pct_actual, $pct_possible));
unshift (@rubrics,
'Total', '', '', $pct_actual, $pct_possible));
unshift (@rubrics,
@@
-110,6
+110,9
@@
foreach my $name (keys (%verdicts)) {
}
}
push (@overall, sprintf ("TOTAL TESTING SCORE: %.1f%%", $pct_actual));
}
}
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, '');
my (@divider) = ('', '- ' x 38, '');