This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Helpful File::Find debugging code
[perl5.git] / lib / File / Find / t / find.t
1 #!./perl
2
3
4 my %Expect_File = (); # what we expect for $_ 
5 my %Expect_Name = (); # what we expect for $File::Find::name/fullname
6 my %Expect_Dir  = (); # what we expect for $File::Find::dir
7 my $symlink_exists = eval { symlink("",""); 1 };
8 my $warn_msg;
9
10
11 BEGIN {
12     chdir 't' if -d 't';
13     unshift @INC => '../lib';
14
15     $SIG{'__WARN__'} = sub { $warn_msg = $_[0]; warn "# $_[0]"; }
16 }
17
18 if ( $symlink_exists ) { print "1..188\n"; }
19 else                   { print "1..78\n";  }
20
21 # Uncomment this to see where File::Find is chdir'ing to.  Helpful for
22 # debugging its little jaunts around the filesystem.
23 # BEGIN {
24 #     use Cwd;
25 #     *CORE::GLOBAL::chdir = sub ($) { 
26 #         my($file, $line) = (caller)[1,2];
27 #
28 #         printf "# cwd:      %s\n", cwd();
29 #         print "# chdir: @_ from $file at $line\n";
30 #         my($return) = CORE::chdir($_[0]);
31 #         printf "# newcwd:   %s\n", cwd();
32 #
33 #         return $return;
34 #     };
35 # }
36
37
38 BEGIN {
39     use File::Spec;
40     if ($^O eq 'MSWin32' || $^O eq 'cygwin' || $^O eq 'VMS')
41      {
42       # This is a hack - at present File::Find does not produce native names on 
43       # Win32 or VMS, so force File::Spec to use Unix names.
44       # must be set *before* importing File::Find
45       require File::Spec::Unix;
46       @File::Spec::ISA = 'File::Spec::Unix';
47      }
48      require File::Find;
49      import File::Find;
50 }
51 cleanup();
52
53 find({wanted => sub { print "ok 1\n" if $_ eq 'commonsense.t'; } },
54    File::Spec->curdir);
55
56 finddepth({wanted => sub { print "ok 2\n" if $_ eq 'commonsense.t'; } },
57         File::Spec->curdir);
58
59 my $case = 2;
60 my $FastFileTests_OK = 0;
61
62 sub cleanup {
63     if (-d dir_path('for_find')) {
64         chdir(dir_path('for_find'));
65     }
66     if (-d dir_path('fa')) {
67         unlink file_path('fa', 'fa_ord'),
68                file_path('fa', 'fsl'),
69                file_path('fa', 'faa', 'faa_ord'),
70                file_path('fa', 'fab', 'fab_ord'),
71                file_path('fa', 'fab', 'faba', 'faba_ord'),
72                file_path('fb', 'fb_ord'),
73                file_path('fb', 'fba', 'fba_ord');
74         rmdir dir_path('fa', 'faa');
75         rmdir dir_path('fa', 'fab', 'faba');
76         rmdir dir_path('fa', 'fab');
77         rmdir dir_path('fa');
78         rmdir dir_path('fb', 'fba');
79         rmdir dir_path('fb');
80         chdir(File::Spec->updir);
81         rmdir dir_path('for_find');
82     }
83 }
84
85 END {
86     cleanup();
87 }
88
89 sub Check($) {
90     $case++;
91     if ($_[0]) { print "ok $case\n"; }
92     else       { print "not ok $case\n"; }
93 }
94
95 sub CheckDie($) {
96     $case++;
97     if ($_[0]) { print "ok $case\n"; }
98     else { print "not ok $case\n $!\n"; exit 0; }
99 }
100
101 sub touch {
102     CheckDie( open(my $T,'>',$_[0]) );
103 }
104
105 sub MkDir($$) {
106     CheckDie( mkdir($_[0],$_[1]) );
107 }
108
109 sub wanted_File_Dir {
110     print "# \$File::Find::dir => '$File::Find::dir'\n";
111     print "# \$_ => '$_'\n";
112     s#\.$## if ($^O eq 'VMS' && $_ ne '.');
113     Check( $Expect_File{$_} );
114     if ( $FastFileTests_OK ) {
115         delete $Expect_File{ $_} 
116           unless ( $Expect_Dir{$_} && ! -d _ );
117     } else {
118         delete $Expect_File{$_} 
119           unless ( $Expect_Dir{$_} && ! -d $_ );
120     }
121 }
122
123 sub wanted_File_Dir_prune {
124     &wanted_File_Dir;
125     $File::Find::prune=1 if  $_ eq 'faba';
126 }
127
128 sub wanted_Name {
129     my $n = $File::Find::name;
130     $n =~ s#\.$## if ($^O eq 'VMS' && $n ne '.');
131     print "# \$File::Find::name => '$n'\n";
132     my $i = rindex($n,'/');
133     my $OK = exists($Expect_Name{$n});
134     unless ($^O eq 'MacOS') {
135         if ( $OK ) {
136             $OK= exists($Expect_Name{substr($n,0,$i)})  if $i >= 0;    
137         }
138     }
139     Check($OK);
140     delete $Expect_Name{$n};
141 }
142
143 sub wanted_File {
144     print "# \$_ => '$_'\n";
145     s#\.$## if ($^O eq 'VMS' && $_ ne '.');
146     my $i = rindex($_,'/');
147     my $OK = exists($Expect_File{ $_});
148     unless ($^O eq 'MacOS') {
149         if ( $OK ) {
150             $OK= exists($Expect_File{ substr($_,0,$i)})  if $i >= 0;
151         }
152     }
153     Check($OK);
154     delete $Expect_File{ $_};
155 }
156
157 sub simple_wanted {
158     print "# \$File::Find::dir => '$File::Find::dir'\n";
159     print "# \$_ => '$_'\n";
160 }
161
162 sub noop_wanted {}
163
164 sub my_preprocess {
165     @files = @_;
166     print "# --preprocess--\n";
167     print "#   \$File::Find::dir => '$File::Find::dir' \n";
168     foreach $file (@files) {
169         $file =~ s/\.(dir)?$// if $^O eq 'VMS';
170         print "#   $file \n";
171         delete $Expect_Dir{ $File::Find::dir }->{$file};
172     }
173     print "# --end preprocess--\n";
174     Check(scalar(keys %{$Expect_Dir{ $File::Find::dir }}) == 0);
175     if (scalar(keys %{$Expect_Dir{ $File::Find::dir }}) == 0) {
176         delete $Expect_Dir{ $File::Find::dir }
177     }
178     return @files;
179 }
180
181 sub my_postprocess {
182     print "# postprocess: \$File::Find::dir => '$File::Find::dir' \n";
183     delete $Expect_Dir{ $File::Find::dir};
184 }
185
186
187 # Use dir_path() to specify a directory path that's expected for
188 # $File::Find::dir (%Expect_Dir). Also use it in file operations like
189 # chdir, rmdir etc.
190 #
191 # dir_path() concatenates directory names to form a *relative*
192 # directory path, independent from the platform it's run on, although
193 # there are limitations. Don't try to create an absolute path,
194 # because that may fail on operating systems that have the concept of
195 # volume names (e.g. Mac OS). As a special case, you can pass it a "." 
196 # as first argument, to create a directory path like "./fa/dir" on
197 # operating systems other than Mac OS (actually, Mac OS will ignore
198 # the ".", if it's the first argument). If there's no second argument,
199 # this function will return the empty string on Mac OS and the string
200 # "./" otherwise.
201
202 sub dir_path {
203     my $first_arg = shift @_;
204
205     if ($first_arg eq '.') {
206         if ($^O eq 'MacOS') {
207             return '' unless @_;
208             # ignore first argument; return a relative path
209             # with leading ":" and with trailing ":"
210             return File::Spec->catdir(@_); 
211         } else { # other OS
212             return './' unless @_;
213             my $path = File::Spec->catdir(@_);
214             # add leading "./"
215             $path = "./$path";
216             return $path;
217         }
218
219     } else { # $first_arg ne '.'
220         return $first_arg unless @_; # return plain filename
221         return File::Spec->catdir($first_arg, @_); # relative path
222     }
223 }
224
225
226 # Use topdir() to specify a directory path that you want to pass to
227 # find/finddepth. Basically, topdir() does the same as dir_path() (see
228 # above), except that there's no trailing ":" on Mac OS.
229
230 sub topdir {
231     my $path = dir_path(@_);
232     $path =~ s/:$// if ($^O eq 'MacOS');
233     return $path;
234 }
235
236
237 # Use file_path() to specify a file path that's expected for $_
238 # (%Expect_File). Also suitable for file operations like unlink etc.
239 #
240 # file_path() concatenates directory names (if any) and a filename to
241 # form a *relative* file path (the last argument is assumed to be a
242 # file). It's independent from the platform it's run on, although
243 # there are limitations. As a special case, you can pass it a "." as 
244 # first argument, to create a file path like "./fa/file" on operating 
245 # systems other than Mac OS (actually, Mac OS will ignore the ".", if 
246 # it's the first argument). If there's no second argument, this 
247 # function will return the empty string on Mac OS and the string "./" 
248 # otherwise.
249
250 sub file_path {
251     my $first_arg = shift @_;
252
253     if ($first_arg eq '.') {
254         if ($^O eq 'MacOS') {
255             return '' unless @_;
256             # ignore first argument; return a relative path  
257             # with leading ":", but without trailing ":"
258             return File::Spec->catfile(@_); 
259         } else { # other OS
260             return './' unless @_;
261             my $path = File::Spec->catfile(@_);
262             # add leading "./" 
263             $path = "./$path"; 
264             return $path;
265         }
266
267     } else { # $first_arg ne '.'
268         return $first_arg unless @_; # return plain filename
269         return File::Spec->catfile($first_arg, @_); # relative path
270     }
271 }
272
273
274 # Use file_path_name() to specify a file path that's expected for
275 # $File::Find::Name (%Expect_Name). Note: When the no_chdir => 1
276 # option is in effect, $_ is the same as $File::Find::Name. In that
277 # case, also use this function to specify a file path that's expected
278 # for $_.
279 #
280 # Basically, file_path_name() does the same as file_path() (see
281 # above), except that there's always a leading ":" on Mac OS, even for
282 # plain file/directory names.
283
284 sub file_path_name {
285     my $path = file_path(@_);
286     $path = ":$path" if (($^O eq 'MacOS') && ($path !~ /:/));
287     return $path;
288 }
289
290
291
292 MkDir( dir_path('for_find'), 0770 );
293 CheckDie(chdir( dir_path('for_find')));
294 MkDir( dir_path('fa'), 0770 );
295 MkDir( dir_path('fb'), 0770  );
296 touch( file_path('fb', 'fb_ord') );
297 MkDir( dir_path('fb', 'fba'), 0770  );
298 touch( file_path('fb', 'fba', 'fba_ord') );
299 if ($^O eq 'MacOS') {
300       CheckDie( symlink(':fb',':fa:fsl') ) if $symlink_exists;
301 } else {
302       CheckDie( symlink('../fb','fa/fsl') ) if $symlink_exists;
303 }
304 touch( file_path('fa', 'fa_ord') );
305
306 MkDir( dir_path('fa', 'faa'), 0770  );
307 touch( file_path('fa', 'faa', 'faa_ord') );
308 MkDir( dir_path('fa', 'fab'), 0770  );
309 touch( file_path('fa', 'fab', 'fab_ord') );
310 MkDir( dir_path('fa', 'fab', 'faba'), 0770  );
311 touch( file_path('fa', 'fab', 'faba', 'faba_ord') );
312
313
314 %Expect_File = (File::Spec->curdir => 1, file_path('fsl') => 1,
315                 file_path('fa_ord') => 1, file_path('fab') => 1,
316                 file_path('fab_ord') => 1, file_path('faba') => 1,
317                 file_path('faa') => 1, file_path('faa_ord') => 1);
318
319 delete $Expect_File{ file_path('fsl') } unless $symlink_exists;
320 %Expect_Name = ();
321
322 %Expect_Dir = ( dir_path('fa') => 1, dir_path('faa') => 1,
323                 dir_path('fab') => 1, dir_path('faba') => 1,
324                 dir_path('fb') => 1, dir_path('fba') => 1);
325
326 delete @Expect_Dir{ dir_path('fb'), dir_path('fba') } unless $symlink_exists;
327 File::Find::find( {wanted => \&wanted_File_Dir_prune}, topdir('fa') ); 
328 Check( scalar(keys %Expect_File) == 0 );
329
330
331 print "# check re-entrancy\n";
332
333 %Expect_File = (File::Spec->curdir => 1, file_path('fsl') => 1,
334                 file_path('fa_ord') => 1, file_path('fab') => 1,
335                 file_path('fab_ord') => 1, file_path('faba') => 1,
336                 file_path('faa') => 1, file_path('faa_ord') => 1);
337
338 delete $Expect_File{ file_path('fsl') } unless $symlink_exists;
339 %Expect_Name = ();
340
341 %Expect_Dir = ( dir_path('fa') => 1, dir_path('faa') => 1,
342                 dir_path('fab') => 1, dir_path('faba') => 1,
343                 dir_path('fb') => 1, dir_path('fba') => 1);
344
345 delete @Expect_Dir{ dir_path('fb'), dir_path('fba') } unless $symlink_exists;
346
347 File::Find::find( {wanted => sub { wanted_File_Dir_prune();
348                                     File::Find::find( {wanted => sub
349                                     {} }, File::Spec->curdir ); } },
350                                     topdir('fa') );
351
352 Check( scalar(keys %Expect_File) == 0 ); 
353
354
355 # no_chdir is in effect, hence we use file_path_name to specify the expected paths for %Expect_File
356
357 %Expect_File = (file_path_name('fa') => 1,
358                 file_path_name('fa', 'fsl') => 1,
359                 file_path_name('fa', 'fa_ord') => 1,
360                 file_path_name('fa', 'fab') => 1,
361                 file_path_name('fa', 'fab', 'fab_ord') => 1,
362                 file_path_name('fa', 'fab', 'faba') => 1,
363                 file_path_name('fa', 'fab', 'faba', 'faba_ord') => 1,
364                 file_path_name('fa', 'faa') => 1,
365                 file_path_name('fa', 'faa', 'faa_ord') => 1,);
366
367 delete $Expect_File{ file_path_name('fa', 'fsl') } unless $symlink_exists;
368 %Expect_Name = ();
369
370 %Expect_Dir = (dir_path('fa') => 1,
371                dir_path('fa', 'faa') => 1,
372                dir_path('fa', 'fab') => 1,
373                dir_path('fa', 'fab', 'faba') => 1,
374                dir_path('fb') => 1,
375                dir_path('fb', 'fba') => 1);
376
377 delete @Expect_Dir{ dir_path('fb'), dir_path('fb', 'fba') }
378     unless $symlink_exists;
379
380 File::Find::find( {wanted => \&wanted_File_Dir, no_chdir => 1},
381                   topdir('fa') ); Check( scalar(keys %Expect_File) == 0 );
382
383
384 %Expect_File = ();
385
386 %Expect_Name = (File::Spec->curdir => 1,
387                 file_path_name('.', 'fa') => 1,
388                 file_path_name('.', 'fa', 'fsl') => 1,
389                 file_path_name('.', 'fa', 'fa_ord') => 1,
390                 file_path_name('.', 'fa', 'fab') => 1,
391                 file_path_name('.', 'fa', 'fab', 'fab_ord') => 1,
392                 file_path_name('.', 'fa', 'fab', 'faba') => 1,
393                 file_path_name('.', 'fa', 'fab', 'faba', 'faba_ord') => 1,
394                 file_path_name('.', 'fa', 'faa') => 1,
395                 file_path_name('.', 'fa', 'faa', 'faa_ord') => 1,
396                 file_path_name('.', 'fb') => 1,
397                 file_path_name('.', 'fb', 'fba') => 1,
398                 file_path_name('.', 'fb', 'fba', 'fba_ord') => 1,
399                 file_path_name('.', 'fb', 'fb_ord') => 1);
400
401 delete $Expect_Name{ file_path('.', 'fa', 'fsl') } unless $symlink_exists;
402 %Expect_Dir = (); 
403 File::Find::finddepth( {wanted => \&wanted_Name}, File::Spec->curdir );
404 Check( scalar(keys %Expect_Name) == 0 );
405
406
407 # no_chdir is in effect, hence we use file_path_name to specify the
408 # expected paths for %Expect_File
409
410 %Expect_File = (File::Spec->curdir => 1,
411                 file_path_name('.', 'fa') => 1,
412                 file_path_name('.', 'fa', 'fsl') => 1,
413                 file_path_name('.', 'fa', 'fa_ord') => 1,
414                 file_path_name('.', 'fa', 'fab') => 1,
415                 file_path_name('.', 'fa', 'fab', 'fab_ord') => 1,
416                 file_path_name('.', 'fa', 'fab', 'faba') => 1,
417                 file_path_name('.', 'fa', 'fab', 'faba', 'faba_ord') => 1,
418                 file_path_name('.', 'fa', 'faa') => 1,
419                 file_path_name('.', 'fa', 'faa', 'faa_ord') => 1,
420                 file_path_name('.', 'fb') => 1,
421                 file_path_name('.', 'fb', 'fba') => 1,
422                 file_path_name('.', 'fb', 'fba', 'fba_ord') => 1,
423                 file_path_name('.', 'fb', 'fb_ord') => 1);
424
425 delete $Expect_File{ file_path_name('.', 'fa', 'fsl') } unless $symlink_exists;
426 %Expect_Name = ();
427 %Expect_Dir = (); 
428
429 File::Find::finddepth( {wanted => \&wanted_File, no_chdir => 1},
430                      File::Spec->curdir );
431
432 Check( scalar(keys %Expect_File) == 0 );
433
434
435 print "# check preprocess\n";
436 %Expect_File = ();
437 %Expect_Name = ();
438 %Expect_Dir = (
439           File::Spec->curdir                 => {fa => 1, fb => 1}, 
440           dir_path('.', 'fa')                => {faa => 1, fab => 1, fa_ord => 1},
441           dir_path('.', 'fa', 'faa')         => {faa_ord => 1},
442           dir_path('.', 'fa', 'fab')         => {faba => 1, fab_ord => 1},
443           dir_path('.', 'fa', 'fab', 'faba') => {faba_ord => 1},
444           dir_path('.', 'fb')                => {fba => 1, fb_ord => 1},
445           dir_path('.', 'fb', 'fba')         => {fba_ord => 1}
446           );
447
448 File::Find::find( {wanted => \&noop_wanted,
449                    preprocess => \&my_preprocess}, File::Spec->curdir );
450
451 Check( scalar(keys %Expect_Dir) == 0 );
452
453
454 print "# check postprocess\n";
455 %Expect_File = ();
456 %Expect_Name = ();
457 %Expect_Dir = (
458           File::Spec->curdir                 => 1,
459           dir_path('.', 'fa')                => 1,
460           dir_path('.', 'fa', 'faa')         => 1,
461           dir_path('.', 'fa', 'fab')         => 1,
462           dir_path('.', 'fa', 'fab', 'faba') => 1,
463           dir_path('.', 'fb')                => 1,
464           dir_path('.', 'fb', 'fba')         => 1
465           );
466
467 File::Find::find( {wanted => \&noop_wanted,
468                    postprocess => \&my_postprocess}, File::Spec->curdir );
469
470 Check( scalar(keys %Expect_Dir) == 0 );
471
472
473 if ( $symlink_exists ) {
474     print "# --- symbolic link tests --- \n";
475     $FastFileTests_OK= 1;
476
477
478     # Verify that File::Find::find will call wanted even if the topdir of
479     # is a symlink to a directory, and it shouldn't follow the link
480     # unless follow is set, which it isn't in this case
481     %Expect_File = ( file_path('fsl') => 1 );
482     %Expect_Name = ();
483     %Expect_Dir = ();
484     File::Find::find( {wanted => \&wanted_File_Dir}, topdir('fa', 'fsl') );
485     Check( scalar(keys %Expect_File) == 0 );
486
487  
488     %Expect_File = (File::Spec->curdir => 1, file_path('fa_ord') => 1,
489                     file_path('fsl') => 1, file_path('fb_ord') => 1,
490                     file_path('fba') => 1, file_path('fba_ord') => 1,
491                     file_path('fab') => 1, file_path('fab_ord') => 1,
492                     file_path('faba') => 1, file_path('faa') => 1,
493                     file_path('faa_ord') => 1);
494
495     %Expect_Name = ();
496
497     %Expect_Dir = (File::Spec->curdir => 1, dir_path('fa') => 1,
498                    dir_path('faa') => 1, dir_path('fab') => 1,
499                    dir_path('faba') => 1, dir_path('fb') => 1,
500                    dir_path('fba') => 1);
501
502     File::Find::find( {wanted => \&wanted_File_Dir_prune,
503                        follow_fast => 1}, topdir('fa') );
504
505     Check( scalar(keys %Expect_File) == 0 );  
506
507
508     # no_chdir is in effect, hence we use file_path_name to specify
509     # the expected paths for %Expect_File
510
511     %Expect_File = (file_path_name('fa') => 1,
512                     file_path_name('fa', 'fa_ord') => 1,
513                     file_path_name('fa', 'fsl') => 1,
514                     file_path_name('fa', 'fsl', 'fb_ord') => 1,
515                     file_path_name('fa', 'fsl', 'fba') => 1,
516                     file_path_name('fa', 'fsl', 'fba', 'fba_ord') => 1,
517                     file_path_name('fa', 'fab') => 1,
518                     file_path_name('fa', 'fab', 'fab_ord') => 1,
519                     file_path_name('fa', 'fab', 'faba') => 1,
520                     file_path_name('fa', 'fab', 'faba', 'faba_ord') => 1,
521                     file_path_name('fa', 'faa') => 1,
522                     file_path_name('fa', 'faa', 'faa_ord') => 1);
523
524     %Expect_Name = ();
525
526     %Expect_Dir = (dir_path('fa') => 1,
527                    dir_path('fa', 'faa') => 1,
528                    dir_path('fa', 'fab') => 1,
529                    dir_path('fa', 'fab', 'faba') => 1,
530                    dir_path('fb') => 1,
531                    dir_path('fb', 'fba') => 1);
532
533     File::Find::find( {wanted => \&wanted_File_Dir, follow_fast => 1,
534                        no_chdir => 1}, topdir('fa') );
535
536     Check( scalar(keys %Expect_File) == 0 );
537
538     %Expect_File = ();
539
540     %Expect_Name = (file_path_name('fa') => 1,
541                     file_path_name('fa', 'fa_ord') => 1,
542                     file_path_name('fa', 'fsl') => 1,
543                     file_path_name('fa', 'fsl', 'fb_ord') => 1,
544                     file_path_name('fa', 'fsl', 'fba') => 1,
545                     file_path_name('fa', 'fsl', 'fba', 'fba_ord') => 1,
546                     file_path_name('fa', 'fab') => 1,
547                     file_path_name('fa', 'fab', 'fab_ord') => 1,
548                     file_path_name('fa', 'fab', 'faba') => 1,
549                     file_path_name('fa', 'fab', 'faba', 'faba_ord') => 1,
550                     file_path_name('fa', 'faa') => 1,
551                     file_path_name('fa', 'faa', 'faa_ord') => 1);
552
553     %Expect_Dir = ();
554
555     File::Find::finddepth( {wanted => \&wanted_Name,
556                             follow_fast => 1}, topdir('fa') );
557
558     Check( scalar(keys %Expect_Name) == 0 );
559
560     # no_chdir is in effect, hence we use file_path_name to specify
561     # the expected paths for %Expect_File
562
563     %Expect_File = (file_path_name('fa') => 1,
564                     file_path_name('fa', 'fa_ord') => 1,
565                     file_path_name('fa', 'fsl') => 1,
566                     file_path_name('fa', 'fsl', 'fb_ord') => 1,
567                     file_path_name('fa', 'fsl', 'fba') => 1,
568                     file_path_name('fa', 'fsl', 'fba', 'fba_ord') => 1,
569                     file_path_name('fa', 'fab') => 1,
570                     file_path_name('fa', 'fab', 'fab_ord') => 1,
571                     file_path_name('fa', 'fab', 'faba') => 1,
572                     file_path_name('fa', 'fab', 'faba', 'faba_ord') => 1,
573                     file_path_name('fa', 'faa') => 1,
574                     file_path_name('fa', 'faa', 'faa_ord') => 1);
575
576     %Expect_Name = ();
577     %Expect_Dir = ();
578
579     File::Find::finddepth( {wanted => \&wanted_File, follow_fast => 1,
580                             no_chdir => 1}, topdir('fa') );
581
582     Check( scalar(keys %Expect_File) == 0 );     
583
584  
585     print "# check dangling symbolic links\n";
586     MkDir( dir_path('dangling_dir'), 0770 );
587     CheckDie( symlink( dir_path('dangling_dir'),
588                        file_path('dangling_dir_sl') ) );
589     rmdir dir_path('dangling_dir');
590     touch(file_path('dangling_file'));  
591     if ($^O eq 'MacOS') {
592         CheckDie( symlink('dangling_file', ':fa:dangling_file_sl') );
593     } else {
594         CheckDie( symlink('../dangling_file','fa/dangling_file_sl') );
595     }      
596     unlink file_path('dangling_file');
597
598     { 
599         # these tests should also emit a warning
600         use warnings;
601
602         %Expect_File = (File::Spec->curdir => 1,
603                         file_path('fa_ord') => 1,
604                         file_path('fsl') => 1,
605                         file_path('fb_ord') => 1,
606                         file_path('fba') => 1,
607                         file_path('fba_ord') => 1,
608                         file_path('fab') => 1,
609                         file_path('fab_ord') => 1,
610                         file_path('faba') => 1,
611                         file_path('faba_ord') => 1,
612                         file_path('faa') => 1,
613                         file_path('faa_ord') => 1);
614
615         %Expect_Name = ();
616         %Expect_Dir = ();
617         undef $warn_msg;
618
619         File::Find::find( {wanted => \&wanted_File, follow => 1,
620                            dangling_symlinks =>
621                                sub { $warn_msg = "$_[0] is a dangling symbolic link" }
622                            },
623                            topdir('dangling_dir_sl'), topdir('fa') );
624
625         Check( scalar(keys %Expect_File) == 0 );
626         Check( $warn_msg =~ m|dangling_dir_sl is a dangling symbolic link| );  
627         unlink file_path('fa', 'dangling_file_sl'),
628                          file_path('dangling_dir_sl');
629
630     }
631
632
633     print "# check recursion\n";
634     if ($^O eq 'MacOS') {
635         CheckDie( symlink(':fa:faa',':fa:faa:faa_sl') );
636     } else {
637         CheckDie( symlink('../faa','fa/faa/faa_sl') );
638     }
639     undef $@;
640     eval {File::Find::find( {wanted => \&simple_wanted, follow => 1,
641                              no_chdir => 1}, topdir('fa') ); };
642     Check( $@ =~ m|for_find[:/]fa[:/]faa[:/]faa_sl is a recursive symbolic link| );  
643     unlink file_path('fa', 'faa', 'faa_sl'); 
644
645
646     print "# check follow_skip (file)\n";
647     if ($^O eq 'MacOS') {
648         CheckDie( symlink(':fa:fa_ord',':fa:fa_ord_sl') ); # symlink to a file
649     } else {
650         CheckDie( symlink('./fa_ord','fa/fa_ord_sl') ); # symlink to a file
651     }
652     undef $@;
653
654     eval {File::Find::finddepth( {wanted => \&simple_wanted,
655                                   follow => 1,
656                                   follow_skip => 0, no_chdir => 1},
657                                   topdir('fa') );};
658
659     Check( $@ =~ m|for_find[:/]fa[:/]fa_ord encountered a second time| );
660
661
662     # no_chdir is in effect, hence we use file_path_name to specify
663     # the expected paths for %Expect_File
664
665     %Expect_File = (file_path_name('fa') => 1,
666                     file_path_name('fa', 'fa_ord') => 1,
667                     file_path_name('fa', 'fsl') => 1,
668                     file_path_name('fa', 'fsl', 'fb_ord') => 1,
669                     file_path_name('fa', 'fsl', 'fba') => 1,
670                     file_path_name('fa', 'fsl', 'fba', 'fba_ord') => 1,
671                     file_path_name('fa', 'fab') => 1,
672                     file_path_name('fa', 'fab', 'fab_ord') => 1,
673                     file_path_name('fa', 'fab', 'faba') => 1,
674                     file_path_name('fa', 'fab', 'faba', 'faba_ord') => 1,
675                     file_path_name('fa', 'faa') => 1,
676                     file_path_name('fa', 'faa', 'faa_ord') => 1);
677
678     %Expect_Name = ();
679
680     %Expect_Dir = (dir_path('fa') => 1,
681                    dir_path('fa', 'faa') => 1,
682                    dir_path('fa', 'fab') => 1,
683                    dir_path('fa', 'fab', 'faba') => 1,
684                    dir_path('fb') => 1,
685                    dir_path('fb','fba') => 1);
686
687     File::Find::finddepth( {wanted => \&wanted_File_Dir, follow => 1,
688                            follow_skip => 1, no_chdir => 1},
689                            topdir('fa') );
690
691     Check( scalar(keys %Expect_File) == 0 );
692     unlink file_path('fa', 'fa_ord_sl');
693
694
695     print "# check follow_skip (directory)\n";
696     if ($^O eq 'MacOS') {
697         CheckDie( symlink(':fa:faa',':fa:faa_sl') ); # symlink to a directory
698     } else {
699         CheckDie( symlink('./faa','fa/faa_sl') ); # symlink to a directory
700     }
701     undef $@;
702
703     eval {File::Find::find( {wanted => \&simple_wanted, follow => 1,
704                             follow_skip => 0, no_chdir => 1},
705                             topdir('fa') );};
706
707     Check( $@ =~ m|for_find[:/]fa[:/]faa[:/]? encountered a second time| );
708
709   
710     undef $@;
711
712     eval {File::Find::find( {wanted => \&simple_wanted, follow => 1,
713                             follow_skip => 1, no_chdir => 1},
714                             topdir('fa') );};
715
716     Check( $@ =~ m|for_find[:/]fa[:/]faa[:/]? encountered a second time| );  
717
718     # no_chdir is in effect, hence we use file_path_name to specify
719     # the expected paths for %Expect_File
720
721     %Expect_File = (file_path_name('fa') => 1,
722                     file_path_name('fa', 'fa_ord') => 1,
723                     file_path_name('fa', 'fsl') => 1,
724                     file_path_name('fa', 'fsl', 'fb_ord') => 1,
725                     file_path_name('fa', 'fsl', 'fba') => 1,
726                     file_path_name('fa', 'fsl', 'fba', 'fba_ord') => 1,
727                     file_path_name('fa', 'fab') => 1,
728                     file_path_name('fa', 'fab', 'fab_ord') => 1,
729                     file_path_name('fa', 'fab', 'faba') => 1,
730                     file_path_name('fa', 'fab', 'faba', 'faba_ord') => 1,
731                     file_path_name('fa', 'faa') => 1,
732                     file_path_name('fa', 'faa', 'faa_ord') => 1);
733
734     %Expect_Name = ();
735
736     %Expect_Dir = (dir_path('fa') => 1,
737                    dir_path('fa', 'faa') => 1,
738                    dir_path('fa', 'fab') => 1,
739                    dir_path('fa', 'fab', 'faba') => 1,
740                    dir_path('fb') => 1,
741                    dir_path('fb', 'fba') => 1);
742
743     File::Find::find( {wanted => \&wanted_File_Dir, follow => 1,
744                        follow_skip => 2, no_chdir => 1}, topdir('fa') );
745
746     Check( scalar(keys %Expect_File) == 0 );
747     unlink file_path('fa', 'faa_sl');
748
749
750