From: Abhijit Menon-Sen <ams@wiw.org>
Date: Sat, 16 Feb 2002 04:30:23 +0000 (+0000)
Subject: Remove dubious test.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=f1f9f91ecb7884b8731faafb0893a53dbe12d96b;p=p5sagit%2Fp5-mst-13.2.git

Remove dubious test.

p4raw-id: //depot/perl@14717
---

diff --git a/t/io/open.t b/t/io/open.t
index a0f703b..f49ba10 100755
--- a/t/io/open.t
+++ b/t/io/open.t
@@ -229,41 +229,3 @@ like( $@, qr/Bad filehandle:\s+afile/,          '       right error' );
     is( scalar <$x>, "ok\n",    '       readline' );
     ok( tell($x) >= 3,          '       tell' );
 }
-
-# this used to leak FILE* pointers on all platforms (and also died on
-# Windows after running a few hundred times)
-
-my $devnull = File::Spec->devnull;
-{
-    my $loopcount;
-
-    $loopcount = 0;
-    while ($loopcount++ < 555) {
-       open NEWOUT, ">$devnull" or die;
-       open SAVEOUT, ">&STDOUT" or die;
-       open STDOUT, ">&=" . fileno(NEWOUT) or die;
-       open STDOUT, ">&SAVEOUT" or die;
-       close NEWOUT;
-    }
-    ok;
-
-    $loopcount = 0;
-    while ($loopcount++ < 555) {
-       open NEWOUT, ">$devnull" or die;
-       open SAVEOUT, ">&STDOUT" or die;
-       open STDOUT, ">&=NEWOUT" or die;
-       open STDOUT, ">&SAVEOUT" or die;
-       close NEWOUT;
-    }
-    ok;
-
-    $loopcount = 0;
-    while ($loopcount++ < 555) {
-       open NEWOUT, ">$devnull" or die;
-       open SAVEOUT, ">&STDOUT" or die;
-       open STDOUT, ">&NEWOUT" or die;
-       open STDOUT, ">&SAVEOUT" or die;
-       close NEWOUT;
-    }
-    ok;
-}