[PATCH] output of Test::Harness changed

[Bram]

The output of Test::Harness changed.

Without this patch the result FAIL(x) or PASS-so-far is displayed  
instead of FAIL.

Old output:

Test Summary Report
-------------------
base/rs.t                                                      (Wstat:  
0 Tests: 28 Failed: 1)
  Failed test:  11
New output:

Test Summary Report
-------------------
base/rs                                                      (Wstat: 0  
Tests: 28 Failed: 1)
  Failed test:  11

(The filename changed - rs.t vs rs)


Still todo: add tests for the new output.


diff -Naur old/lib/Test/Smoke/Smoker.pm new/lib/Test/Smoke/Smoker.pm
--- old/lib/Test/Smoke/Smoker.pm	2008-04-18 19:04:32.000000000 +0200
+++ new/lib/Test/Smoke/Smoker.pm	2008-08-08 19:21:25.000000000 +0200
@@ -841,7 +841,7 @@
     my $output = join "", grep defined $_ => map {
         my $line = $_;
 
-        my( $tname ) = $line =~ /^\s*(.+\.t)\s+\(Wstat/;
+        my( $tname ) = $line =~ /^\s*(.+(?:\.t)?)\s+\(Wstat/;
         my( $failed ) = $line =~ /$harness3_re/x;
         my( $parse_error ) = $line =~ /^  Parse errors: (.+)/;