From 5a2fba607eed2405f8e6c812d4ae0bdb94bc70fa Mon Sep 17 00:00:00 2001
From: Paul Beckingham <paul@beckingham.net>
Date: Thu, 11 Aug 2011 18:25:10 -0400
Subject: [PATCH] Unit Tests

- New 'problems' script to help identify problem areas in the test
  suite.
---
 test/problems | 24 ++++++++++++++++++++++++
 1 file changed, 24 insertions(+)
 create mode 100755 test/problems

diff --git a/test/problems b/test/problems
new file mode 100755
index 000000000..86b5e4343
--- /dev/null
+++ b/test/problems
@@ -0,0 +1,24 @@
+#! /usr/bin/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;
+