Make tests public. Rewrite most tests. Add tests.

[pintos-anon] / src / tests / make-grade

diff --git a/src/tests/make-grade b/src/tests/make-grade
new file mode 100755 (executable)
index 0000000..adb0fdd
--- /dev/null
+++ b/src/tests/make-grade
@@ -0,0 +1,53 @@
+#! /usr/bin/perl
+
+use strict;
+use warnings;
+
+my (@rubric) = read_text_file (shift);
+my (@pass) = @ARGV;
+
+my (@grade);
+
+our ($possible_overall, $score_overall) = (0, 0);
+our ($possible, $score) = (0, 0);
+for my $i (0...$#rubric) {
+    local ($_) = $rubric[$i];
+    if (/^\S/ || /^\s*$/) {
+       end_section ();
+       push (@grade, $_);
+    } elsif (my ($value, $name, $desc) = /^\s+(\d+)\s+(\S+):\s+(.*)$/) {
+       $possible += $value;
+       my ($marker);
+       if (grep ($_ eq $name, @pass)) {
+           $score += $value;
+           $marker = ' ';
+       } else {
+           $marker = '-';
+           }
+       push (@grade, "  $marker$value $name: $desc");
+    } else {
+       die;
+    }
+}
+end_section ();
+
+push (@grade, "", "TESTING TOTAL: $score_overall of $possible_overall points");
+
+print map ("$_\n", @grade);
+
+sub end_section {
+    return if !$possible;
+    push (@grade, "Subtotal: $score of $possible points");
+    $possible_overall += $possible;
+    $score_overall += $score;
+    $possible = $score = 0;
+}
+
+sub read_text_file {
+    my ($file_name) = @_;
+    open (FILE, '<', $file_name) or die "$file_name: open: $!\n";
+    my (@content) = <FILE>;
+    chomp (@content);
+    close (FILE);
+    return @content;
+}