summaryrefslogtreecommitdiff
path: root/t/TEST
diff options
context:
space:
mode:
Diffstat (limited to 't/TEST')
-rwxr-xr-xt/TEST7
1 files changed, 5 insertions, 2 deletions
diff --git a/t/TEST b/t/TEST
index 38afe6f691..d60b4f62da 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 ) {