File-Find/t/find.t

40     file_path
102     unlink file_path('fa', 'fa_ord'),
103            file_path('fa', 'fsl'),
104            file_path('fa', 'faa', 'faa_ord'),
105            file_path('fa', 'fab', 'fab_ord'),
106            file_path('fa', 'fab', 'faba', 'faba_ord'),
107            file_path('fa', 'fac', 'faca'),
108            file_path('fb', 'fb_ord'),
109            file_path('fb', 'fba', 'fba_ord'),
110            file_path('fb', 'fbc', 'fbca'),
111            file_path('fa', 'fax', 'faz'),
112            file_path('fa', 'fay');
125             file_path('fc', 'fca', 'match_alpha'),
126             file_path('fc', 'fca', 'match_beta'),
127             file_path('fc', 'fcb', 'match_gamma'),
128             file_path('fc', 'fcb', 'delta'),
129             file_path('fc', 'fcc', 'match_epsilon'),
130             file_path('fc', 'fcc', 'match_zeta'),
131             file_path('fc', 'fcc', 'eta'),
239 *file_path_name = \&file_path;
251 create_file_ok( file_path('fb', $testing_basenames[0]) );
253 create_file_ok( file_path('fb', 'fba', $testing_basenames[1]) );
257 create_file_ok( file_path('fa', $testing_basenames[2]) );
260 create_file_ok( file_path('fa', 'faa', $testing_basenames[3]) );
262 create_file_ok( file_path('fa', 'fab', $testing_basenames[4]) );
264 create_file_ok( file_path('fa', 'fab', 'faba', $testing_basenames[5]) );
318 %Expect_File = (File::Spec->curdir => 1, file_path('fsl') => 1,
319                 file_path('fa_ord') => 1, file_path('fab') => 1,
320                 file_path('fab_ord') => 1, file_path('faba') => 1,
321                 file_path('faa') => 1, file_path('faa_ord') => 1);
323 delete $Expect_File{ file_path('fsl') } unless $symlink_exists;
338 %Expect_File = (File::Spec->curdir => 1, file_path('fsl') => 1,
339                 file_path('fa_ord') => 1, file_path('fab') => 1,
340                 file_path('fab_ord') => 1, file_path('faba') => 1,
341                 file_path('faa') => 1, file_path('faa_ord') => 1);
343 delete $Expect_File{ file_path('fsl') } unless $symlink_exists;
408 delete $Expect_Name{ file_path('.', 'fa', 'fsl') } unless $symlink_exists;
546     %Expect_File = ( file_path('fsl') => 1 );
555     %Expect_File = (File::Spec->curdir => 1, file_path('fa_ord') => 1,
556                     file_path('fsl') => 1, file_path('fb_ord') => 1,
557                     file_path('fba') => 1, file_path('fba_ord') => 1,
558                     file_path('fab') => 1, file_path('fab_ord') => 1,
559                     file_path('faba') => 1, file_path('faa') => 1,
560                     file_path('faa_ord') => 1);
664     symlink_ok( dir_path('dangling_dir'), file_path('dangling_dir_sl'),
667     create_file_ok(file_path('dangling_file'));
670     unlink file_path('dangling_file');
677             file_path('dangling_file_sl') => 1,
678             file_path('fa_ord') => 1,
679             file_path('fsl') => 1,
680             file_path('fb_ord') => 1,
681             file_path('fba') => 1,
682             file_path('fba_ord') => 1,
683             file_path('fab') => 1,
684             file_path('fab_ord') => 1,
685             file_path('faba') => 1,
686             file_path('faba_ord') => 1,
687             file_path('faa') => 1,
688             file_path('faa_ord') => 1);
704         unlink file_path('fa', 'dangling_file_sl'),
705             file_path('dangling_dir_sl');
721     unlink file_path('fa', 'faa', 'faa_sl');
773     unlink file_path('fa', 'fa_ord_sl');
850     unlink file_path('fa', 'faa_sl');
865                     file_path('fsl') => 1,
866                     file_path('fa_ord') => 1,
867                     file_path('fab') => 1,
868                     file_path('fab_ord') => 1,
869                     file_path('faba') => 1,
870                     file_path('faba_ord') => 1,
871                     file_path('faa') => 1,
872                     file_path('faa_ord') => 1);
874     delete $Expect_File{ file_path('fsl') } unless $symlink_exists;
920     create_file_ok(file_path ('fa', 'fac', 'faca'));
947     create_file_ok(file_path ('fa', 'fax', 'faz'));
948     symlink_ok( file_path ('..', 'fa', 'fax', 'faz'), file_path ('fa', 'fay') );
955             my $subdir = file_path qw/for_find fa fax faz/;
976 create_file_ok( file_path('fc', 'fca', 'match_alpha') );
977 create_file_ok( file_path('fc', 'fca', 'match_beta') );
978 create_file_ok( file_path('fc', 'fcb', 'match_gamma') );
979 create_file_ok( file_path('fc', 'fcb', 'delta') );
980 create_file_ok( file_path('fc', 'fcc', 'match_epsilon') );
981 create_file_ok( file_path('fc', 'fcc', 'match_zeta') );
982 create_file_ok( file_path('fc', 'fcc', 'eta') );
1003     file_path('fc', 'fcc', 'match_epsilon'),
1004     file_path('fc', 'fcc', 'eta'),