TODO-SKIP tests must be "not ok", or else the test harness will think

it's an unexpected success

Subject: Re: Change 26165 broke ext/threads/t/stress_re.t test on Win32 (and patch to t/test.pl and/or Test::Harness)
Message-ID: <9b18b3110512170823q1bb2cd27h838b4d4dcdba72c9@mail.gmail.com>

p4raw-id: //depot/perl@26398

diff --git a/t/test.pl b/t/test.pl
index 1e8ed9c..42a3c88 100644 (file)
--- a/t/test.pl
+++ b/t/test.pl
@@ -296,7 +296,7 @@ sub todo_skip {
     my $n   = @_ ? shift : 1;
 
     for (1..$n) {
-        print STDOUT "ok $test # TODO & SKIP: $why\n";
+        print STDOUT "not ok $test # TODO & SKIP: $why\n";
         $test++;
     }
     local $^W = 0;