From f1f9f91ecb7884b8731faafb0893a53dbe12d96b Mon Sep 17 00:00:00 2001 From: Abhijit Menon-Sen Date: Sat, 16 Feb 2002 04:30:23 +0000 Subject: [PATCH] Remove dubious test. p4raw-id: //depot/perl@14717 --- t/io/open.t | 38 -------------------------------------- 1 file changed, 38 deletions(-) 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; -} -- 2.7.4