From: H.Merijn Brand <h.m.brand@xs4all.nl>
Date: Wed, 6 Apr 2005 06:14:51 +0000 (+0000)
Subject: 1. t/TEST now deals with SKIP as if it was TODO. This complies to TAP
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=eac7c7286dd025decafd0b9e9f1c01aba6ce02d6;p=p5sagit%2Fp5-mst-13.2.git

1. t/TEST now deals with SKIP as if it was TODO. This complies to TAP
2. Removed the depricated 'my $foo if expr' there

p4raw-id: //depot/perl@24173
---

diff --git a/t/TEST b/t/TEST
index 38afe6f..d60b4f6 100755
--- a/t/TEST
+++ b/t/TEST
@@ -426,8 +426,11 @@ EOT
 			}
 			$seen_ok = 1;
 			if ($2 == $next) {
-			    my($not, $num, $extra) = ($1, $2, $3);
-			    my($istodo) = $extra =~ /#\s*TODO/ if $extra;
+			    my($not, $num, $extra, $istodo) = ($1, $2, $3, 0);
+			    # SKIP is essentially the same as TODO for t/TEST
+			    # this still conforms to TAP:
+			    # http://search.cpan.org/dist/Test-Harness/lib/Test/Harness/TAP.pod
+			    $extra and $istodo = $extra =~ /#\s*(?:TODO|SKIP)\b/;
 			    $istodo = 1 if $todo{$num};
 
 			    if( $not && !$istodo ) {