Lines Matching refs:dir
61 my @dir = (
69 my @created = mkpath([@dir]);
100 my $dir;
168 my $dir = catdir($cwd, 'remove');
176 rmtree($dir, {error => \$error});
184 is($file, $dir, "ancestor named");
193 ok(-d $dir, "ancestor not removed");
202 rmtree($dir);
204 ok(!(-d $dir), "ancestor now removed");
218 $dir = catdir($tmp_base,'C');
220 $dir = VMS::Filespec::unixify($dir) if $Is_VMS;
221 @created = make_path($tmp_base, $dir);
225 is($created[0], $dir, "created directory (new style 1) cross-check");
235 @created = make_path($tmp_base, $dir, $dir2);
241 $count = rmtree($dir, 0);
254 $dir = catdir($tmp_base, 'E', updir(), 'Y');
255 @created =mkpath($dir);
268 $dir = catdir($tmp_base, 'a');
271 rmtree( $dir, $dir2,
285 ok(-d $dir, "dir a still exists");
289 $dir = catdir($tmp_base,'F');
291 $dir = VMS::Filespec::unixify($dir) if $Is_VMS;
293 @created = mkpath($dir, undef, 0770);
297 is($created[0], $dir, "created directory (old style 2 verbose undef) cross-check");
299 is(rmtree($dir, undef, 0), 1, "removed directory 2 verbose undef");
301 @created = mkpath($dir, undef);
305 is($created[0], $dir, "created directory (old style 2a verbose undef) cross-check");
307 is(rmtree($dir, undef), 1, "removed directory 2a verbose undef");
309 @created = mkpath($dir, 0, undef);
313 is($created[0], $dir, "created directory (old style 3 mode undef) cross-check");
315 is(rmtree($dir, 0, undef), 1, "removed directory 3 verbose undef");
319 $dir = catdir($tmp_base,'G');
320 $dir = VMS::Filespec::unixify($dir) if $Is_VMS;
322 @created = mkpath($dir, undef, 0400);
326 is($created[0], $dir, "created read-only directory cross-check");
328 is(rmtree($dir), 1, "removed read-only dir");
339 $dir = catdir('a', 'd1');
342 @created = make_path( $dir, 0, $dir2 );
346 $count = remove_tree( $dir, 0, $dir2, );
350 @created = make_path( $dir, $dir2, 1 );
354 $count = remove_tree( $dir, $dir2, 1 );
358 @created = make_path( $dir, $dir2 );
362 $count = remove_tree( $dir, $dir2 );
366 $dir = catdir("a\nb", 'd1');
375 @created = make_path( $dir, $dir2 );
379 $count = remove_tree( $dir, $dir2 );
396 $dir = 'bug487319';
398 @created = make_path($dir, {mask => 0700});
401 symlink($dir, $dir2);
405 chmod 0500, $dir;
406 my $mask_initial = (stat $dir)[2];
409 my $mask = (stat $dir)[2];
434 remove_tree($dir);
461 $dir = catdir($tmp_base, 'ZZ');
462 @created = mkpath($dir);
465 local @ARGV = ($dir);
467 ok(!-e $dir, "blow it away via \@ARGV");
492 $dir = catdir($tmp_base, sprintf("chmod_test%04o", $input));
496 @created = mkpath($dir, {chmod => $input});
497 $mode = (stat($dir))[2];
505 rmtree( $dir );
611 my $dir = catdir( $base, 'A');
617 $dir,
631 $dir,