Change 34152 by [EMAIL PROTECTED] on 2008/07/22 08:19:11
Subject: [PATCH] Fix skips in test.pl
From: "Jerry D. Hedden" <[EMAIL PROTECTED]>
Date: Fri, 18 Jul 2008 09:09:41 -0400
Message-ID: <[EMAIL PROTECTED]>
Changes skip messages to be consistent with Test::Builder.
Affected files ...
... //depot/perl/t/test.pl#83 edit
Differences ...
==== //depot/perl/t/test.pl#83 (text) ====
Index: perl/t/test.pl
--- perl/t/test.pl#82~34147~ 2008-07-16 07:11:13.000000000 -0700
+++ perl/t/test.pl 2008-07-22 01:19:11.000000000 -0700
@@ -79,7 +79,7 @@
sub skip_all {
if (@_) {
- _print "1..0 # Skipped: @_\n";
+ _print "1..0 # Skip @_\n";
} else {
_print "1..0\n";
}
@@ -316,7 +316,7 @@
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 @@
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;
End of Patch.
