From: Jerry D. Hedden <jdhedden@cpan.org>
Date: Fri, 18 Jul 2008 09:09:41 +0000 (-0400)
Subject: Fix skips in test.pl
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=7bb7fa3865f82f68e5e39dfa527ac1bbbafc8dcf;p=p5sagit%2Fp5-mst-13.2.git

Fix skips in test.pl
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
---

diff --git a/t/test.pl b/t/test.pl
index 779933c..75f7a1e 100644
--- 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;