5 my $symlink_exists = eval { symlink("",""); 1 };
12 if ( $symlink_exists ) { print "1..117\n"; }
13 else { print "1..61\n"; }
19 find(sub { print "ok 1\n" if $_ eq 'filefind.t'; }, ".");
20 finddepth(sub { print "ok 2\n" if $_ eq 'filefind.t'; }, ".");
23 my $FastFileTests_OK = 0;
30 unlink 'fa/fa_ord', 'fa/fsl', 'fa/faa/faa_ord',
31 'fa/fab/fab_ord', 'fa/fab/faba/faba_ord',
32 'fb/fb_ord', 'fb/fba/fba_ord';
50 if ($_[0]) { print "ok $case\n"; }
51 else { print "not ok $case\n"; }
56 if ($_[0]) { print "ok $case\n"; }
57 else { print "not ok $case\n $!\n"; exit 0; }
61 CheckDie( open(my $T,'>',$_[0]) );
65 CheckDie( mkdir($_[0],$_[1]) );
69 print "# '$_' => 1\n";
70 s#\.$## if ($^O eq 'VMS' && $_ ne '.');
72 if ( $FastFileTests_OK ) {
74 unless ( $Expect_Dir{$_} && ! -d _ );
77 unless ( $Expect_Dir{$_} && ! -d $_ );
79 $File::Find::prune=1 if $_ eq 'faba';
84 my $n = $File::Find::name;
85 $n =~ s#\.$## if ($^O eq 'VMS' && $n ne '.');
86 print "# '$n' => 1\n";
87 my $i = rindex($n,'/');
88 my $OK = exists($Expect{$n});
90 $OK= exists($Expect{substr($n,0,$i)}) if $i >= 0;
97 print "# '$_' => 1\n";
98 s#\.$## if ($^O eq 'VMS' && $_ ne '.');
99 my $i = rindex($_,'/');
100 my $OK = exists($Expect{$_});
102 $OK= exists($Expect{substr($_,0,$i)}) if $i >= 0;
108 MkDir( 'for_find',0770 );
109 CheckDie(chdir(for_find));
113 MkDir( 'fb/fba',0770 );
114 touch('fb/fba/fba_ord');
115 CheckDie( symlink('../fb','fa/fsl') ) if $symlink_exists;
118 MkDir( 'fa/faa',0770 );
119 touch('fa/faa/faa_ord');
120 MkDir( 'fa/fab',0770 );
121 touch('fa/fab/fab_ord');
122 MkDir( 'fa/fab/faba',0770 );
123 touch('fa/fab/faba/faba_ord');
125 %Expect = ('.' => 1, 'fsl' => 1, 'fa_ord' => 1, 'fab' => 1, 'fab_ord' => 1,
126 'faba' => 1, 'faa' => 1, 'faa_ord' => 1);
127 delete $Expect{'fsl'} unless $symlink_exists;
128 %Expect_Dir = ('fa' => 1, 'faa' => 1, 'fab' => 1, 'faba' => 1,
129 'fb' => 1, 'fba' => 1);
130 delete @Expect_Dir{'fb','fba'} unless $symlink_exists;
131 File::Find::find( {wanted => \&wanted, },'fa' );
132 Check( scalar(keys %Expect) == 0 );
134 %Expect=('fa' => 1, 'fa/fsl' => 1, 'fa/fa_ord' => 1, 'fa/fab' => 1,
135 'fa/fab/fab_ord' => 1, 'fa/fab/faba' => 1,
136 'fa/fab/faba/faba_ord' => 1, 'fa/faa' => 1, 'fa/faa/faa_ord' => 1);
137 delete $Expect{'fa/fsl'} unless $symlink_exists;
138 %Expect_Dir = ('fa' => 1, 'fa/faa' => 1, '/fa/fab' => 1, 'fa/fab/faba' => 1,
139 'fb' => 1, 'fb/fba' => 1);
140 delete @Expect_Dir{'fb','fb/fba'} unless $symlink_exists;
141 File::Find::find( {wanted => \&wanted, no_chdir => 1},'fa' );
143 Check( scalar(keys %Expect) == 0 );
145 %Expect=('.' => 1, './fa' => 1, './fa/fsl' => 1, './fa/fa_ord' => 1, './fa/fab' => 1,
146 './fa/fab/fab_ord' => 1, './fa/fab/faba' => 1,
147 './fa/fab/faba/faba_ord' => 1, './fa/faa' => 1, './fa/faa/faa_ord' => 1,
148 './fb' => 1, './fb/fba' => 1, './fb/fba/fba_ord' => 1, './fb/fb_ord' => 1);
149 delete $Expect{'./fa/fsl'} unless $symlink_exists;
150 %Expect_Dir = ('./fa' => 1, './fa/faa' => 1, '/fa/fab' => 1, './fa/fab/faba' => 1,
151 './fb' => 1, './fb/fba' => 1);
152 delete @Expect_Dir{'./fb','./fb/fba'} unless $symlink_exists;
153 File::Find::finddepth( {wanted => \&dn_wanted },'.' );
154 Check( scalar(keys %Expect) == 0 );
156 %Expect=('.' => 1, './fa' => 1, './fa/fsl' => 1, './fa/fa_ord' => 1, './fa/fab' => 1,
157 './fa/fab/fab_ord' => 1, './fa/fab/faba' => 1,
158 './fa/fab/faba/faba_ord' => 1, './fa/faa' => 1, './fa/faa/faa_ord' => 1,
159 './fb' => 1, './fb/fba' => 1, './fb/fba/fba_ord' => 1, './fb/fb_ord' => 1);
160 delete $Expect{'./fa/fsl'} unless $symlink_exists;
161 %Expect_Dir = ('./fa' => 1, './fa/faa' => 1, '/fa/fab' => 1, './fa/fab/faba' => 1,
162 './fb' => 1, './fb/fba' => 1);
163 delete @Expect_Dir{'./fb','./fb/fba'} unless $symlink_exists;
164 File::Find::finddepth( {wanted => \&d_wanted, no_chdir => 1 },'.' );
165 Check( scalar(keys %Expect) == 0 );
167 if ( $symlink_exists ) {
168 $FastFileTests_OK= 1;
169 %Expect=('.' => 1, 'fa_ord' => 1, 'fsl' => 1, 'fb_ord' => 1, 'fba' => 1,
170 'fba_ord' => 1, 'fab' => 1, 'fab_ord' => 1, 'faba' => 1, 'faa' => 1,
172 %Expect_Dir = ('fa' => 1, 'fa/faa' => 1, '/fa/fab' => 1, 'fa/fab/faba' => 1,
173 'fb' => 1, 'fb/fba' => 1);
175 File::Find::find( {wanted => \&wanted, follow_fast => 1},'fa' );
176 Check( scalar(keys %Expect) == 0 );
178 %Expect=('fa' => 1, 'fa/fa_ord' => 1, 'fa/fsl' => 1, 'fa/fsl/fb_ord' => 1,
179 'fa/fsl/fba' => 1, 'fa/fsl/fba/fba_ord' => 1, 'fa/fab' => 1,
180 'fa/fab/fab_ord' => 1, 'fa/fab/faba' => 1, 'fa/fab/faba/faba_ord' => 1,
181 'fa/faa' => 1, 'fa/faa/faa_ord' => 1);
182 %Expect_Dir = ('fa' => 1, 'fa/faa' => 1, '/fa/fab' => 1, 'fa/fab/faba' => 1,
183 'fb' => 1, 'fb/fba' => 1);
184 File::Find::find( {wanted => \&wanted, follow_fast => 1, no_chdir => 1},'fa' );
185 Check( scalar(keys %Expect) == 0 );
187 %Expect=('fa' => 1, 'fa/fa_ord' => 1, 'fa/fsl' => 1, 'fa/fsl/fb_ord' => 1,
188 'fa/fsl/fba' => 1, 'fa/fsl/fba/fba_ord' => 1, 'fa/fab' => 1,
189 'fa/fab/fab_ord' => 1, 'fa/fab/faba' => 1, 'fa/fab/faba/faba_ord' => 1,
190 'fa/faa' => 1, 'fa/faa/faa_ord' => 1);
191 %Expect_Dir = ('fa' => 1, 'fa/faa' => 1, '/fa/fab' => 1, 'fa/fab/faba' => 1,
192 'fb' => 1, 'fb/fba' => 1);
194 File::Find::finddepth( {wanted => \&dn_wanted, follow_fast => 1},'fa' );
195 Check( scalar(keys %Expect) == 0 );
197 %Expect=('fa' => 1, 'fa/fa_ord' => 1, 'fa/fsl' => 1, 'fa/fsl/fb_ord' => 1,
198 'fa/fsl/fba' => 1, 'fa/fsl/fba/fba_ord' => 1, 'fa/fab' => 1,
199 'fa/fab/fab_ord' => 1, 'fa/fab/faba' => 1, 'fa/fab/faba/faba_ord' => 1,
200 'fa/faa' => 1, 'fa/faa/faa_ord' => 1);
201 %Expect_Dir = ('fa' => 1, 'fa/faa' => 1, '/fa/fab' => 1, 'fa/fab/faba' => 1,
202 'fb' => 1, 'fb/fba' => 1);
204 File::Find::finddepth( {wanted => \&d_wanted, follow_fast => 1, no_chdir => 1},'fa' );
205 Check( scalar(keys %Expect) == 0 );
208 print "# of cases: $case\n";