Lines Matching refs:created
69 my @created = mkpath([@dir]);
71 is(scalar(@created), 7, "created list of directories");
74 @created = mkpath([$tmp_base]);
75 is(scalar(@created), 0, "skipped making existing directory")
76 or diag("unexpectedly recreated @created");
97 @created = mkpath('');
98 is(scalar(@created), 0, "Can't create a directory named ''");
213 @created = mkpath($tmp_base, 0);
215 is(scalar(@created), 0, "skipped making existing directories (old style 1)")
216 or diag("unexpectedly recreated @created");
221 @created = make_path($tmp_base, $dir);
223 is(scalar(@created), 1, "created directory (new style 1)");
225 is($created[0], $dir, "created directory (new style 1) cross-check");
227 @created = mkpath($tmp_base, 0, 0700);
229 is(scalar(@created), 0, "skipped making existing directories (old style 2)")
230 or diag("unexpectedly recreated @created");
235 @created = make_path($tmp_base, $dir, $dir2);
237 is(scalar(@created), 1, "created directory (new style 2)");
239 is($created[0], $dir2, "created directory (new style 2) cross-check");
255 @created =mkpath($dir);
257 cmp_ok(scalar(@created), '>=', 1, "made one or more dirs because of ..");
259 cmp_ok(scalar(@created), '<=', 2, "made less than two dirs because of ..");
263 @created = make_path(catdir(curdir(), $tmp_base));
265 is(scalar(@created), 0, "nothing created")
266 or diag(@created);
293 @created = mkpath($dir, undef, 0770);
295 is(scalar(@created), 1, "created directory (old style 2 verbose undef)");
297 is($created[0], $dir, "created directory (old style 2 verbose undef) cross-check");
301 @created = mkpath($dir, undef);
303 is(scalar(@created), 1, "created directory (old style 2a verbose undef)");
305 is($created[0], $dir, "created directory (old style 2a verbose undef) cross-check");
309 @created = mkpath($dir, 0, undef);
311 is(scalar(@created), 1, "created directory (old style 3 mode undef)");
313 is($created[0], $dir, "created directory (old style 3 mode undef) cross-check");
322 @created = mkpath($dir, undef, 0400);
324 is(scalar(@created), 1, "created read-only dir");
326 is($created[0], $dir, "created read-only directory cross-check");
342 @created = make_path( $dir, 0, $dir2 );
344 is(scalar @created, 3, 'new-style 3 dirs created');
350 @created = make_path( $dir, $dir2, 1 );
352 is(scalar @created, 3, 'new-style 3 dirs created (redux)');
358 @created = make_path( $dir, $dir2 );
360 is(scalar @created, 2, 'new-style 2 dirs created');
375 @created = make_path( $dir, $dir2 );
377 is(scalar @created, 3, 'new-style 3 dirs created in parent with newline');
398 @created = make_path($dir, {mask => 0700});
400 is( scalar @created, 1, 'bug 487319 setup' );
453 eval {@created = mkpath($entry, 0, 0700)};
457 or diag(@created);
462 @created = mkpath($dir);
463 is(scalar(@created), 1, "create a ZZ directory");
496 @created = mkpath($dir, {chmod => $input});
513 is(_run_for_verbose(sub {@created = mkpath($dir_a, 1)}),
519 is(_run_for_verbose(sub {@created = mkpath([$dir_b], 1)}),
539 is(_run_for_verbose(sub {@created = mkpath( $dir_a,
545 is(_run_for_verbose(sub {@created = mkpath($dir_b, 1, 0771)}),
561 is(_run_for_verbose(sub {@created = make_path( $dir_a, $dir_b,
571 is(_run_for_verbose(sub {@created = remove_tree( $dir_a, $dir_b,
581 @created = make_path(
586 is(@created, 2, "2 directories created");
616 my @created = make_path(
630 my @created = remove_tree(
762 my @created;
763 @created = File::Path::make_path($deepest, { mode => 0711 });
764 is(scalar(@created), 3, "Created 3 subdirectories");
826 my (@created, $error);
828 @created = mkpath($deepest, { mode => 0711, user => $user, error => \$error });
847 my (@created, $error);
850 @created = mkpath($deepest, { mode => 0711, uid => $>, error => \$error });
860 is(scalar(@created), 3, "Provide valid 'uid' argument: 3 subdirectories created");
873 my (@created, $error);
875 @created = mkpath($deepest, { mode => 0711, owner => $name, error => \$error });
876 is(scalar(@created), 3, "Provide valid 'owner' argument: 3 subdirectories created");
889 my (@created, $error);
891 @created = mkpath($deepest, { mode => 0711, group => $bad_group, error => \$error });
910 my (@created, $error);
913 @created = mkpath($deepest, { mode => 0711, group => $(, error => \$error });
923 is(scalar(@created), 3, "Provide valid 'group' argument: 3 subdirectories created");
936 my (@created, $error);
938 @created = mkpath($deepest, { mode => 0711, group => $group_name, error => \$error });
939 is(scalar(@created), 3, "Provide valid 'group' argument: 3 subdirectories created");
952 my (@created, $error);
955 …@created = mkpath($deepest, { mode => 0711, owner => $name, group => $group_name, error => \$error…
956 …is(scalar(@created), 3, "Provide valid 'owner' and 'group' 'group' arguments: 3 subdirectories cre…