diff options
| author | Jerry D. Hedden <jdhedden@cpan.org> | 2008-07-18 05:09:41 -0400 |
|---|---|---|
| committer | Steve Hay <SteveHay@planit.com> | 2008-07-22 08:19:11 +0000 |
| commit | 7bb7fa3865f82f68e5e39dfa527ac1bbbafc8dcf (patch) | |
| tree | 354a7394ff1c010488d2a22b035842b7685897a1 | |
| parent | ec83ea38ebd7a9cbfbb0209243d3f52270074917 (diff) | |
| download | perl-7bb7fa3865f82f68e5e39dfa527ac1bbbafc8dcf.tar.gz | |
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
| -rw-r--r-- | t/test.pl | 6 |
1 files changed, 3 insertions, 3 deletions
@@ -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; |