From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Thu, 26 Feb 2009 10:00:40 +0000 (+0100)
Subject: Remove spurious TODO indicators
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=ac62bc6fc9af2f4dca6b1ec668aab128962700d8;p=p5sagit%2Fp5-mst-13.2.git

Remove spurious TODO indicators

By definition, the first test in a series for testing a
leak should always succeed
---

diff --git a/t/io/perlio_leaks.t b/t/io/perlio_leaks.t
index ad76c39..7bd0346 100644
--- a/t/io/perlio_leaks.t
+++ b/t/io/perlio_leaks.t
@@ -11,11 +11,11 @@ use Test::More 'no_plan';
 # :crlf   -> ok
 
 TODO: {
-    local $TODO = "[perl #56644] PerlIO resource leaks on open() and then :pop in :unix and :stdio";
     foreach my $layer(qw(:unix :stdio  :perlio :crlf)){
         my $base_fd = do{ open my $in, '<', $0 or die $!; fileno $in };
 
         for(1 .. 3){
+	    local $TODO = "[perl #56644] PerlIO resource leaks on open() and then :pop in :unix and :stdio" if $_ > 1;
                 open my $fh, "<$layer", $0 or die $!;
 
                 is fileno($fh), $base_fd, $layer;