This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
TODO-SKIP tests must be "not ok", or else the test harness will think
authorYves Orton <demerphq@gmail.com>
Sat, 17 Dec 2005 17:23:23 +0000 (18:23 +0100)
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Mon, 19 Dec 2005 09:52:03 +0000 (09:52 +0000)
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

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) {
     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;
         $test++;
     }
     local $^W = 0;