diff options
Diffstat (limited to 't/TEST')
-rwxr-xr-x | t/TEST | 7 |
1 files changed, 5 insertions, 2 deletions
@@ -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 ) { |