Unit Tests

- Set up initial test directory.

test/problems

@@ -0,0 +1,24 @@
+#!/usr/bin/env perl
+
+use strict;
+use warnings;
+
+if (open my $fh, '<', 'all.log')
+{
+  my $test_file;
+  my %errors;
+
+  while (my $line = <$fh>)
+  {
+    $test_file = $1       if $line =~ /^# (\S+\.t)$/;
+    $errors{$test_file}++ if $line =~ /^not /;
+  }
+
+  close $fh;
+
+  printf "%-24s %4d\n", $_, $errors{$_}
+    for sort {$errors{$b} <=> $errors{$a}} keys %errors;
+}
+
+exit 0;
+