Lines Matching full:vms
1 # Tests for VMS::Stdio v2.2
2 use VMS::Stdio;
3 import VMS::Stdio qw(&flush &getname &rewind &sync &tmpnam);
8 #VMS can pretend that it is UNIX.
10 $perl = VMS::Filespec::vmsify($perl) if $^O eq 'VMS';
14 $fh = VMS::Stdio::vmsopen("+>$name",'ctx=rec','shr=put','fop=dlt','dna=.tmp');
38 ($gotname) = (VMS::Filespec::vmsify(getname($fh)) =~/\](.*)/);
42 $sfh = VMS::Stdio::vmssysopen($name, O_RDONLY, 0,
53 print +(&VMS::Stdio::tmpnam ? '' : 'not '),"ok 14\n";
57 # print +(VMS::Stdio::writeof(P) ? '' : 'not '),"ok 15\n";
60 # $fh = VMS::Stdio::vmsopen("$name.tmp");
70 $sfh = VMS::Stdio::vmsopen(">$name.tmp");
71 $setuperl = "\$ MCR $perl\nBEGIN { \@INC = qw(@INC) };\nuse VMS::Stdio qw(&setdef);";
79 #print +($defs[1] eq VMS::Filespec::rmsexpand('[-]') ? '' : "not ($defs[1]) "),"ok 19\n";
81 # This is not exactly a test of VMS::Stdio, but we need it to create a record-oriented
87 $fh = VMS::Stdio::vmsopen('>rectest.lis', 'rfm=var', 'rat=cr')