From: Yves Orton <demerphq@gmail.com>
Date: Sat, 17 Dec 2005 17:23:23 +0000 (+0100)
Subject: TODO-SKIP tests must be "not ok", or else the test harness will think
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=a27e4e7f280a6900800142247279c369dc3b8673;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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;