From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Mon, 13 Nov 2000 14:42:42 +0000 (+0000)
Subject: Remove the new two tests of lib/io_xs for now, they seem to
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=1e9fe98ffa8eff5b97c7a72e383e0e285c3b9fa4;p=p5sagit%2Fp5-mst-13.2.git

Remove the new two tests of lib/io_xs for now, they seem to
fail under perlio on some platforms.

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

diff --git a/t/lib/io_xs.t b/t/lib/io_xs.t
index 47a20aa..2449fc4 100755
--- a/t/lib/io_xs.t
+++ b/t/lib/io_xs.t
@@ -21,7 +21,7 @@ BEGIN {
 use IO::File;
 use IO::Seekable;
 
-print "1..6\n";
+print "1..4\n";
 
 $x = new_tmpfile IO::File or print "not ";
 print "ok 1\n";
@@ -41,22 +41,3 @@ $! = 0;
 $x->setpos(undef);
 print $! ? "ok 4 # $!\n" : "not ok 4\n";
 
-# These shenanigans are intended to make a perl IO pointing to C FILE *
-# (or equivalent) on a closed file handle. Something that will fail fgetops()
-# Might be easier to use STDIN if (-t STDIN || -P STDIN) if ttys/pipes on
-# all platforms fail to fgetpos()
-$fn = $x->fileno();
-$y = new IO::File;
-if ($y->fdopen ($fn, "r")) {
-  print "ok 5\n";
-  $x->close() or die $!;
-  $!=0;
-  $p = $y->getpos;
-  if (defined $p) {
-    print "not ok 6 # closed handle returned defined position, \$!='$!'\n";
-  } else {
-    print "ok 6 # $!\n";
-  }
-} else {
-  print "not ok 5 # failed to duplicated file number $fd\n", "not ok 6\n";
-}