develooper Front page | perl.perl5.changes | Postings from April 2002

Change 16068: a Test::Harness tweak to make the test lines show up prettier

From:
Gurusamy Sarathy
Date:
April 22, 2002 04:00
Subject:
Change 16068: a Test::Harness tweak to make the test lines show up prettier
Message ID:
200204221100.g3MB05e20209@smtp3.ActiveState.com
Change 16068 by gsar@zinc-gsar on 2002/04/22 09:53:36

	a Test::Harness tweak to make the test lines show up prettier

Affected files ...

.... //depot/perl/lib/Test/Harness.pm#58 edit

Differences ...

==== //depot/perl/lib/Test/Harness.pm#58 (text) ====
Index: perl/lib/Test/Harness.pm
--- perl/lib/Test/Harness.pm.~1~	Mon Apr 22 04:00:05 2002
+++ perl/lib/Test/Harness.pm	Mon Apr 22 04:00:05 2002
@@ -36,6 +36,9 @@
 
 my $Files_In_Dir = $ENV{HARNESS_FILELEAK_IN_DIR};
 
+my $Running_In_Perl_Tree = 0;
+++$Running_In_Perl_Tree if -d "../t" and -f "../sv.c";
+
 my $Strap = Test::Harness::Straps->new;
 
 @ISA = ('Exporter');
@@ -599,7 +602,11 @@
     chomp($te);
     $te =~ s/\.\w+$/./;
 
-    if ($^O eq 'VMS') { $te =~ s/^.*\.t\./\[.t./s; }
+    if ($^O eq 'VMS') {
+	$te =~ s/^.*\.t\./\[.t./s;
+    }
+    $te =~ s,\\,/,g if $^O eq 'MSWin32';
+    $te =~ s,^\.\./,/, if $Running_In_Perl_Tree;
     my $blank = (' ' x 77);
     my $leader = "$te" . '.' x ($width - length($te));
     my $ml = "";
@@ -625,12 +632,15 @@
     foreach (@_) {
         my $suf    = /\.(\w+)$/ ? $1 : '';
         my $len    = length;
+	$len -= 2 if $Running_In_Perl_Tree and m{^\.\.[/\\]};
         my $suflen = length $suf;
         $maxlen    = $len    if $len    > $maxlen;
         $maxsuflen = $suflen if $suflen > $maxsuflen;
     }
-    # + 3 : we want three dots between the test name and the "ok"
-    return $maxlen + 3 - $maxsuflen;
+    # we want three dots between the test name and the "ok" for
+    # typical lengths, and just two dots if longer than 30 characters
+    $maxlen -= $maxsuflen;
+    return $maxlen + ($maxlen >= 30 ? 2 : 3);
 }
 
 
End of Patch.




nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About