From 53899296b11c96b8374714be9bee1f8194429b3a Mon Sep 17 00:00:00 2001
From: Renato Alves <alves.rjc+taskw@gmail.com>
Date: Mon, 25 May 2015 17:57:00 +0100
Subject: [PATCH] List expected failures with test/problems

---
 test/problems | 13 ++++++++++---
 1 file changed, 10 insertions(+), 3 deletions(-)

diff --git a/test/problems b/test/problems
index 96ed34f14..6a188ee05 100755
--- a/test/problems
+++ b/test/problems
@@ -8,12 +8,14 @@ if (open my $fh, '<', 'all.log')
   my $test_file;
   my %errors;
   my %skipped;
+  my %expected;
 
   while (my $line = <$fh>)
   {
-    $test_file = $1        if $line =~ /^# (\S+\.t)$/;
-    $errors{$test_file}++  if $line =~ /^not /;
-    $skipped{$test_file}++ if $line =~ /^skip /;
+    $test_file = $1         if $line =~ /^# (\S+\.t)$/;
+    $errors{$test_file}++   if $line =~ /^not /;
+    $skipped{$test_file}++  if $line =~ /^skip /;
+    $expected{$test_file}++ if $line =~ /^# EXPECTED_FAILURE: /;
   }
 
   close $fh;
@@ -26,6 +28,11 @@ if (open my $fh, '<', 'all.log')
   print "Skipped\n";
   printf "%-32s %4d\n", $_, $skipped{$_}
     for sort {$skipped{$b} <=> $skipped{$a}} keys %skipped;
+
+  print "\n";
+  print "Expected failures\n";
+  printf "%-32s %4d\n", $_, $expected{$_}
+    for sort {$expected{$b} <=> $expected{$a}} keys %expected;
 }
 
 exit 0;