Lines Matching refs:fh
185 ok(open(my $fh, "<", "a"), "open a");
186 is(chmod(0, $fh), 1, "fchmod");
194 $mode = (stat $fh)[2];
201 close $fh;
203 ok(!chmod(0666, $fh), "chmod through closed handle fails");
209 open(my $fh, "<", "a");
210 is(chown(-1, -1, $fh), 1, "fchown");
215 close $fh;
217 ok(!chown(-1, -1, $fh), "chown on closed handle fails");
223 open(my $fh, "<", "a");
224 eval { chmod(0777, $fh); };
230 open(my $fh, "<", "a");
231 eval { chown(0, 0, $fh); };
261 open(my $fh, "<", 'b');
262 $foo = (utime $ut,$ut + $delta, $fh);
266 close $fh;
268 ok(!utime($ut,$ut + $delta, $fh),
275 open(my $fh, "<", "b") || die;
276 eval { utime(undef, undef, $fh); };
347 ok(truncate(FH, 200), "fh resize to 200");
354 is(-s $tmpfile, 200, "fh resize to 200 working (filename check)");
356 ok(truncate(FH, 0), "fh resize to zero");
362 ok(-z $tmpfile, "fh resize to zero working (filename check)");
376 ok(truncate(*FH{IO}, 100), "fh resize by IO slot");
383 is(-s $tmpfile, 100, "fh resize by IO slot working");