Cross Reference: /osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/File/Find/t/find.t

Lines Matching refs:dir_path
76     if (-d dir_path('for_find')) {
77         chdir(dir_path('for_find'));
79     if (-d dir_path('fa')) {
87 	rmdir dir_path('fa', 'faa');
88 	rmdir dir_path('fa', 'fab', 'faba');
89 	rmdir dir_path('fa', 'fab');
90 	rmdir dir_path('fa');
91 	rmdir dir_path('fb', 'fba');
92 	rmdir dir_path('fb');
95     if (-d dir_path('for_find')) {
96 	rmdir dir_path('for_find') or print "# Can't rmdir for_find: $!\n";
201 # Use dir_path() to specify a directory path that's expected for
205 # dir_path() concatenates directory names to form a *relative*
216 sub dir_path {
241 # find/finddepth. Basically, topdir() does the same as dir_path() (see
245     my $path = dir_path(@_);
306 MkDir( dir_path('for_find'), 0770 );
307 CheckDie(chdir( dir_path('for_find')));
308 MkDir( dir_path('fa'), 0770 );
309 MkDir( dir_path('fb'), 0770  );
311 MkDir( dir_path('fb', 'fba'), 0770  );
320 MkDir( dir_path('fa', 'faa'), 0770  );
322 MkDir( dir_path('fa', 'fab'), 0770  );
324 MkDir( dir_path('fa', 'fab', 'faba'), 0770  );
336 %Expect_Dir = ( dir_path('fa') => 1, dir_path('faa') => 1,
337                 dir_path('fab') => 1, dir_path('faba') => 1,
338                 dir_path('fb') => 1, dir_path('fba') => 1);
340 delete @Expect_Dir{ dir_path('fb'), dir_path('fba') } unless $symlink_exists;
355 %Expect_Dir = ( dir_path('fa') => 1, dir_path('faa') => 1,
356                 dir_path('fab') => 1, dir_path('faba') => 1,
357                 dir_path('fb') => 1, dir_path('fba') => 1);
359 delete @Expect_Dir{ dir_path('fb'), dir_path('fba') } unless $symlink_exists;
384 %Expect_Dir = (dir_path('fa') => 1,
385 	       dir_path('fa', 'faa') => 1,
386                dir_path('fa', 'fab') => 1,
387 	       dir_path('fa', 'fab', 'faba') => 1,
388 	       dir_path('fb') => 1,
389 	       dir_path('fb', 'fba') => 1);
391 delete @Expect_Dir{ dir_path('fb'), dir_path('fb', 'fba') }
454           dir_path('.', 'fa')                => {faa => 1, fab => 1, fa_ord => 1},
455           dir_path('.', 'fa', 'faa')         => {faa_ord => 1},
456           dir_path('.', 'fa', 'fab')         => {faba => 1, fab_ord => 1},
457           dir_path('.', 'fa', 'fab', 'faba') => {faba_ord => 1},
458           dir_path('.', 'fb')                => {fba => 1, fb_ord => 1},
459           dir_path('.', 'fb', 'fba')         => {fba_ord => 1}
473           dir_path('.', 'fa')                => 1,
474           dir_path('.', 'fa', 'faa')         => 1,
475           dir_path('.', 'fa', 'fab')         => 1,
476           dir_path('.', 'fa', 'fab', 'faba') => 1,
477           dir_path('.', 'fb')                => 1,
478           dir_path('.', 'fb', 'fba')         => 1
558     %Expect_Dir = (File::Spec->curdir => 1, dir_path('fa') => 1,
559                    dir_path('faa') => 1, dir_path('fab') => 1,
560                    dir_path('faba') => 1, dir_path('fb') => 1,
561                    dir_path('fba') => 1);
587     %Expect_Dir = (dir_path('fa') => 1,
588 		   dir_path('fa', 'faa') => 1,
589                    dir_path('fa', 'fab') => 1,
590 		   dir_path('fa', 'fab', 'faba') => 1,
591 		   dir_path('fb') => 1,
592 		   dir_path('fb', 'fba') => 1);
647     MkDir( dir_path('dangling_dir'), 0770 );
648     CheckDie( symlink( dir_path('dangling_dir'),
650     rmdir dir_path('dangling_dir');
743     %Expect_Dir = (dir_path('fa') => 1,
744 		   dir_path('fa', 'faa') => 1,
745                    dir_path('fa', 'fab') => 1,
746 		   dir_path('fa', 'fab', 'faba') => 1,
747 		   dir_path('fb') => 1,
748 		   dir_path('fb','fba') => 1);
804     %Expect_Dir = (dir_path('fa') => 1,
805 		   dir_path('fa', 'faa') => 1,
806                    dir_path('fa', 'fab') => 1,
807 		   dir_path('fa', 'fab', 'faba') => 1,
808 		   dir_path('fb') => 1,
809 		   dir_path('fb', 'fba') => 1);