Lines Matching refs:outfile
63 $outfile = 'sysio.out';
65 open(O, ">$outfile") || die "sysio.t: cannot write $outfile: $!";
78 # $outfile still intact
79 print 'not ' if (-s $outfile);
91 # $outfile still intact
93 close O; open(O, ">>$outfile") || die "sysio.t: cannot write $outfile: $!";
95 print 'not ' if (-s $outfile);
108 # $outfile still intact
110 close O; open(O, ">>$outfile") || die "sysio.t: cannot write $outfile: $!";
112 print 'not ' if (-s $outfile);
129 # $outfile should have grown now
131 close O; open(O, ">>$outfile") || die "sysio.t: cannot write $outfile: $!";
133 print 'not ' unless (-s $outfile == 2);
144 # $outfile should have grown now
146 close O; open(O, ">>$outfile") || die "sysio.t: cannot write $outfile: $!";
148 print 'not ' unless (-s $outfile == 4);
159 # $outfile should have grown now
161 close O; open(O, ">>$outfile") || die "sysio.t: cannot write $outfile: $!";
163 print 'not ' unless (-s $outfile == 7);
174 # $outfile should have grown now
176 close O; open(O, ">>$outfile") || die "sysio.t: cannot write $outfile: $!";
178 print 'not ' unless (-s $outfile == 10);
183 open(I, $outfile) || die "sysio.t: cannot read $outfile: $!";
215 unlink $outfile;
218 open(I, ">$outfile") || die "sysio.t: cannot write $outfile: $!";
238 unlink $outfile;