5 my $symlink_exists = eval { symlink("",""); 1 };
9 unshift @INC, '../lib';
12 if ( $symlink_exists ) { print "1..59\n"; }
13 else { print "1..31\n"; }
17 find(sub { print "ok 1\n" if $_ eq 'filefind.t'; }, ".");
18 finddepth(sub { print "ok 2\n" if $_ eq 'filefind.t'; }, ".");
24 unlink 'fa/fa_ord','fa/fsl','fa/faa/faa_ord',
25 'fa/fab/fab_ord','fa/fab/faba/faba_ord','fb/fb_ord','fb/fba/fba_ord';
36 if ($_[0]) { print "ok $case\n"; }
37 else { print "not ok $case\n"; }
42 if ($_[0]) { print "ok $case\n"; }
43 else { print "not ok $case\n $!\n"; exit 0; }
47 CheckDie( open(my $T,'>',$_[0]) );
51 CheckDie( mkdir($_[0],$_[1]) );
55 print "# '$_' => 1\n";
58 $File::Find::prune=1 if $_ eq 'faba';
64 MkDir( 'fb/fba',0770 );
65 touch('fb/fba/fba_ord');
66 CheckDie( symlink('../fb','fa/fsl') ) if $symlink_exists;
69 MkDir( 'fa/faa',0770 );
70 touch('fa/faa/faa_ord');
71 MkDir( 'fa/fab',0770 );
72 touch('fa/fab/fab_ord');
73 MkDir( 'fa/fab/faba',0770 );
74 touch('fa/fab/faba/faba_ord');
76 %Expect = ('.' => 1, 'fsl' => 1, 'fa_ord' => 1, 'fab' => 1, 'fab_ord' => 1,
77 'faba' => 1, 'faa' => 1, 'faa_ord' => 1);
78 delete $Expect{'fsl'} unless $symlink_exists;
79 File::Find::find( {wanted => \&wanted, },'fa' );
80 Check( scalar(keys %Expect) == 0 );
82 %Expect=('fa' => 1, 'fa/fsl' => 1, 'fa/fa_ord' => 1, 'fa/fab' => 1,
83 'fa/fab/fab_ord' => 1, 'fa/fab/faba' => 1,
84 'fa/fab/faba/faba_ord' => 1, 'fa/faa' => 1, 'fa/faa/faa_ord' => 1);
85 delete $Expect{'fa/fsl'} unless $symlink_exists;
86 File::Find::find( {wanted => \&wanted, no_chdir => 1},'fa' );
88 Check( scalar(keys %Expect) == 0 );
90 if ( $symlink_exists ) {
91 %Expect=('.' => 1, 'fa_ord' => 1, 'fsl' => 1, 'fb_ord' => 1, 'fba' => 1,
92 'fba_ord' => 1, 'fab' => 1, 'fab_ord' => 1, 'faba' => 1, 'faa' => 1,
95 File::Find::find( {wanted => \&wanted, follow_fast => 1},'fa' );
96 Check( scalar(keys %Expect) == 0 );
97 %Expect=('fa' => 1, 'fa/fa_ord' => 1, 'fa/fsl' => 1, 'fa/fsl/fb_ord' => 1,
98 'fa/fsl/fba' => 1, 'fa/fsl/fba/fba_ord' => 1, 'fa/fab' => 1,
99 'fa/fab/fab_ord' => 1, 'fa/fab/faba' => 1, 'fa/fab/faba/faba_ord' => 1,
100 'fa/faa' => 1, 'fa/faa/faa_ord' => 1);
101 File::Find::find( {wanted => \&wanted, follow_fast => 1, no_chdir => 1},'fa' );
102 Check( scalar(keys %Expect) == 0 );
105 print "# of cases: $case\n";