9 tie *tst,Tie::StdHandle;
17 unlink("afile.new") if -f "afile";
18 print "$!\nnot " unless open($f,"+>afile") && open($f, "+<", "afile");
20 print "$!\nnot " unless binmode($f);
22 print "not " unless -f "afile";
24 print "not " unless print $f "SomeData\n";
26 print "not " unless tell($f) == 9;
28 print "not " unless printf $f "Some %d value\n",1234;
30 print "not " unless seek($f,0,0);
33 print "not " unless $b eq "SomeData\n";
35 print "not " if eof($f);
38 print "'$b' not " unless $b eq 'Some';
40 print "not " unless getc($f) eq ' ';
43 print "not " unless eof($f);
45 print "not " unless close($f);