6 require Config; import Config;
7 if ($Config{'extensions'} !~ /\bIO\b/ && $^O ne 'VMS') {
18 $mystdout = new_from_fd FileHandle 1,"w";
23 print $mystdout "ok ",fileno($mystdout),"\n";
25 $fh = new FileHandle "TEST", O_RDONLY and print "ok 2\n";
29 print $buffer eq "#!./perl\n" ? "ok 3\n" : "not ok 3\n";
33 CORE::read($fh, $buf,1);
34 print $buf eq 'A' ? "ok 4\n" : "not ok 4\n";
40 print "not " unless ($fh->open("< TEST") && <$fh> eq $buffer);
44 print "not " unless (<$fh> eq $buffer);
49 print "not " if (defined($line) || !$fh->eof);
52 print "not " unless ($fh->open("TEST","r") && !$fh->tell && $fh->close);
62 print "not " unless ($|);
65 ($rd,$wr) = FileHandle::pipe;
73 $wr->printf("ok %d\n",11);