Lines Matching full:foo*
46 open(FOO, ">$tmpfile") || DIE("Can't open temp test file: $!");
47 close FOO;
49 open(FOO, ">$tmpfile") || DIE("Can't open temp test file: $!");
51 my($nlink, $mtime, $ctime) = (stat(FOO))[$NLINK, $MTIME, $CTIME];
71 print FOO "Now is the time for all good men to come to.\n";
72 close(FOO);
355 open(FOO,$statfile);
357 eval { -T FOO; };
362 ok(-T FOO, ' -T');
363 ok(! -B FOO, ' !-B');
365 $_ = <FOO>;
367 ok(-T FOO, ' still -T');
368 ok(! -B FOO, ' still -B');
369 close(FOO);
371 open(FOO,$statfile);
372 $_ = <FOO>;
374 ok(-T FOO, ' still -T');
375 ok(! -B FOO, ' still !-B');
377 ok(seek(FOO,0,0), 'after seek');
378 ok(-T FOO, ' still -T');
379 ok(! -B FOO, ' still !-B');
382 () = <FOO>;
383 ok(eof FOO, 'at EOF');
384 ok(-T FOO, ' still -T');
385 ok(-B FOO, ' now -B');
387 close(FOO);