11 unlink("afile") if -f "afile";
12 print "$!\nnot " unless open(my $f,"+>afile");
15 print "not " unless -f "afile";
17 print "not " unless print $f "SomeData\n";
19 print "not " unless tell($f) == 9;
21 print "not " unless seek($f,0,0);
24 print "not " unless $b eq "SomeData\n";
26 print "not " unless -f $f;
28 eval { die "Message" };
30 print "not " unless $@ =~ /<\$f> line 1/;
32 print "not " unless close($f);