From 11dab68fce7ec03937b7822e0b7180c2edd922e0 Mon Sep 17 00:00:00 2001
From: Paul Beckingham <paul@beckingham.net>
Date: Sat, 7 Mar 2015 17:50:56 -0500
Subject: [PATCH] Unit Tests

- Longer test script names need wider padding.
- Added counts for skipped tests.
---
 test/problems | 14 +++++++++++---
 1 file changed, 11 insertions(+), 3 deletions(-)

diff --git a/test/problems b/test/problems
index 8f8586901..96ed34f14 100755
--- a/test/problems
+++ b/test/problems
@@ -7,17 +7,25 @@ if (open my $fh, '<', 'all.log')
 {
   my $test_file;
   my %errors;
+  my %skipped;
 
   while (my $line = <$fh>)
   {
-    $test_file = $1       if $line =~ /^# (\S+\.t)$/;
-    $errors{$test_file}++ if $line =~ /^not /;
+    $test_file = $1        if $line =~ /^# (\S+\.t)$/;
+    $errors{$test_file}++  if $line =~ /^not /;
+    $skipped{$test_file}++ if $line =~ /^skip /;
   }
 
   close $fh;
 
-  printf "%-24s %4d\n", $_, $errors{$_}
+  print "Failed\n";
+  printf "%-32s %4d\n", $_, $errors{$_}
     for sort {$errors{$b} <=> $errors{$a}} keys %errors;
+
+  print "\n";
+  print "Skipped\n";
+  printf "%-32s %4d\n", $_, $skipped{$_}
+    for sort {$skipped{$b} <=> $skipped{$a}} keys %skipped;
 }
 
 exit 0;