6 unless (exists $open::layers{'perlio'}) {
7 print "1..0 # Skip: not perlio\n";
17 open($fh,"+<",\$var) or print "not ";
20 print "not " unless eof($fh);
22 seek($fh,0,0) or print "not ";
23 print "not " if eof($fh);
26 print $fh "ok 7\n" or print "not ";
30 seek($fh,0,0) or print "not ";
31 print "not " if eof($fh);
33 print "not " unless <$fh> eq "foo\n";
35 # Test multiple consecutive writes to $var
38 print $fh "Fred and Wilma ";
39 print $fh "Flintstone";
40 print "not " unless $var eq "Fred and Wilma Flintstone";
44 $var = "Fred and Wilma ";
45 open $fh, ">>", \$var;
46 print $fh "Flintstone";
47 print "not " unless $var eq "Fred and Wilma Flintstone";