[svn:parrot] r30219 - trunk/languages/perl6/tools

[pmichaud]

Author: pmichaud
Date: Thu Aug 14 00:36:18 2008
New Revision: 30219

Modified:
   trunk/languages/perl6/tools/test_summary.pl

Log:
[rakudo]: Update test_summary.pl to strip leading t/spec from output
  (so that output fits in 80-char windows again)


Modified: trunk/languages/perl6/tools/test_summary.pl
==============================================================================
--- trunk/languages/perl6/tools/test_summary.pl (original)
+++ trunk/languages/perl6/tools/test_summary.pl Thu Aug 14 00:36:18 2008
@@ -43,7 +43,8 @@
 my @tfiles = sort @pure, @fudge;
 my $max = 0;
 for my $tfile (@tfiles) {
-    if (length($tfile) > $max) { $max = length($tfile); }
+    my $tname = $tfile; $tname =~ s!^t/spec/!!;
+    if (length($tname) > $max) { $max = length($tname); }
 }
 
 $| = 1;
@@ -57,7 +58,8 @@
        if (/^\s*plan\D*(\d+)/) { $plan = $1; last; }
     }
     close($th);
-    printf "%s%s..%4d", $tfile, '.' x ($max - length($tfile)), $plan;
+    my $tname = $tfile; $tname =~ s!^t/spec/!!;
+    printf "%s%s..%4d", $tname, '.' x ($max - length($tname)), $plan;
     my $cmd = "../../parrot -G perl6.pbc $tfile";
     my @results = split "\n", `$cmd`;
     my ($test, $pass, $fail, $todo, $skip) = (0,0,0,0,0);