io_xs.t revision 7c478bd95313f5f23a4c958a745db2134aa03244
#!./perl
BEGIN {
chdir 't' if -d 't';
}
}
use Config;
BEGIN {
print "1..0 # Skip: IO extension not built\n";
exit 0;
}
}
print "1..0 # Skip: not compatible with the VAXCRTL\n";
exit 0;
}
}
print "1..4\n";
print "ok 1\n";
print $x "ok 2\n";
print <$x>;
print $x "not ok 3\n";
$p = $x->getpos;
print $x "ok 3\n";
$x->flush;
$x->setpos($p);
print scalar <$x>;
$! = 0;
print $! ? "ok 4 # $!\n" : "not ok 4\n";