pod/perlipc.pod patch

[p5sagit/p5-mst-13.2.git] / vms / ext / Stdio / test.pl

# Tests for VMS::Stdio v2.0
use VMS::Stdio;
import VMS::Stdio qw(&flush &getname &rewind &sync);

print "1..13\n";
print +(defined(&getname) ? '' : 'not '), "ok 1\n";

$name = "test$$";
$name++ while -e "$name.tmp";
$fh = VMS::Stdio::vmsopen("+>$name",'ctx=rec','shr=put','fop=dlt','dna=.tmp');
print +($fh ? '' : 'not '), "ok 2\n";

print +(flush($fh) ? '' : 'not '),"ok 3\n";
print +(sync($fh) ? '' : 'not '),"ok 4\n";

$time = (stat("$name.tmp"))[9];
print +($time ? '' : 'not '), "ok 5\n";

print 'not ' unless print $fh scalar(localtime($time)),"\n";
print "ok 6\n";

print +(rewind($fh) ? '' : 'not '),"ok 7\n";

chop($line = <$fh>);
print +($line eq localtime($time) ? '' : 'not '), "ok 8\n";

($gotname) = (getname($fh) =~/\](.*);/);
print +($gotname eq "\U$name.tmp" ? '' : 'not '), "ok 9\n";

$sfh = VMS::Stdio::vmssysopen($name, O_RDONLY, 0,
                              'ctx=rec', 'shr=put', 'dna=.tmp');
print +($sfh ? '' : 'not ($!) '), "ok 10\n";

close($fh);
sysread($sfh,$line,24);
print +($line eq localtime($time) ? '' : 'not '), "ok 11\n";

undef $sfh;
print +(stat("$name.tmp") ? 'not ' : ''),"ok 12\n";

print +(&VMS::Stdio::tmpnam ? '' : 'not '),"ok 13\n";