This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Fix skips in test.pl
authorJerry D. Hedden <jdhedden@cpan.org>
Fri, 18 Jul 2008 09:09:41 +0000 (05:09 -0400)
committerSteve Hay <SteveHay@planit.com>
Tue, 22 Jul 2008 08:19:11 +0000 (08:19 +0000)
From: "Jerry D. Hedden" <jdhedden@cpan.org>
Message-ID: <1ff86f510807180609l7ca8a8d8i653dfd687ed9f36d@mail.gmail.com>

Changes skip messages to be consistent with Test::Builder.

p4raw-id: //depot/perl@34152

t/test.pl

index 779933c..75f7a1e 100644 (file)
--- a/t/test.pl
+++ b/t/test.pl
@@ -79,7 +79,7 @@ sub diag {
 
 sub skip_all {
     if (@_) {
-       _print "1..0 # Skipped: @_\n";
+        _print "1..0 # Skip @_\n";
     } else {
        _print "1..0\n";
     }
@@ -316,7 +316,7 @@ sub skip {
     my $why = shift;
     my $n    = @_ ? shift : 1;
     for (1..$n) {
-        _print "ok $test # skip: $why\n";
+        _print "ok $test # skip $why\n";
         $test = $test + 1;
     }
     local $^W = 0;
@@ -328,7 +328,7 @@ sub todo_skip {
     my $n   = @_ ? shift : 1;
 
     for (1..$n) {
-        _print "not ok $test # TODO & SKIP: $why\n";
+        _print "not ok $test # TODO & SKIP $why\n";
         $test = $test + 1;
     }
     local $^W = 0;