5 my $symlink_exists = eval { symlink("",""); 1 };
9 unshift @INC, '../lib';
12 if ( $symlink_exists ) { print "1..117\n"; }
13 else { print "1..61\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';
38 if ($_[0]) { print "ok $case\n"; }
39 else { print "not ok $case\n"; }
44 if ($_[0]) { print "ok $case\n"; }
45 else { print "not ok $case\n $!\n"; exit 0; }
49 CheckDie( open(my $T,'>',$_[0]) );
53 CheckDie( mkdir($_[0],$_[1]) );
57 print "# '$_' => 1\n";
58 s#\.$## if ($^O eq 'VMS' && $_ ne '.');
61 unless ( $Expect_Dir{$_} && ! -d _ );
62 $File::Find::prune=1 if $_ eq 'faba';
67 my $n = $File::Find::name;
68 $n =~ s#\.$## if ($^O eq 'VMS' && $n ne '.');
69 print "# '$n' => 1\n";
70 my $i = rindex($n,'/');
71 my $OK = exists($Expect{$n});
73 $OK= exists($Expect{substr($n,0,$i)}) if $i >= 0;
80 print "# '$_' => 1\n";
81 s#\.$## if ($^O eq 'VMS' && $_ ne '.');
82 my $i = rindex($_,'/');
83 my $OK = exists($Expect{$_});
85 $OK= exists($Expect{substr($_,0,$i)}) if $i >= 0;
91 MkDir( 'for_find',0770 );
92 CheckDie(chdir(for_find));
96 MkDir( 'fb/fba',0770 );
97 touch('fb/fba/fba_ord');
98 CheckDie( symlink('../fb','fa/fsl') ) if $symlink_exists;
101 MkDir( 'fa/faa',0770 );
102 touch('fa/faa/faa_ord');
103 MkDir( 'fa/fab',0770 );
104 touch('fa/fab/fab_ord');
105 MkDir( 'fa/fab/faba',0770 );
106 touch('fa/fab/faba/faba_ord');
108 %Expect = ('.' => 1, 'fsl' => 1, 'fa_ord' => 1, 'fab' => 1, 'fab_ord' => 1,
109 'faba' => 1, 'faa' => 1, 'faa_ord' => 1);
110 delete $Expect{'fsl'} unless $symlink_exists;
111 %Expect_Dir = ('fa' => 1, 'faa' => 1, 'fab' => 1, 'faba' => 1,
112 'fb' => 1, 'fba' => 1);
113 delete @Expect_Dir{'fb','fba'} unless $symlink_exists;
114 File::Find::find( {wanted => \&wanted, },'fa' );
115 Check( scalar(keys %Expect) == 0 );
117 %Expect=('fa' => 1, 'fa/fsl' => 1, 'fa/fa_ord' => 1, 'fa/fab' => 1,
118 'fa/fab/fab_ord' => 1, 'fa/fab/faba' => 1,
119 'fa/fab/faba/faba_ord' => 1, 'fa/faa' => 1, 'fa/faa/faa_ord' => 1);
120 delete $Expect{'fa/fsl'} unless $symlink_exists;
121 %Expect_Dir = ('fa' => 1, 'fa/faa' => 1, '/fa/fab' => 1, 'fa/fab/faba' => 1,
122 'fb' => 1, 'fb/fba' => 1);
123 delete @Expect_Dir{'fb','fb/fba'} unless $symlink_exists;
124 File::Find::find( {wanted => \&wanted, no_chdir => 1},'fa' );
126 Check( scalar(keys %Expect) == 0 );
128 %Expect=('.' => 1, './fa' => 1, './fa/fsl' => 1, './fa/fa_ord' => 1, './fa/fab' => 1,
129 './fa/fab/fab_ord' => 1, './fa/fab/faba' => 1,
130 './fa/fab/faba/faba_ord' => 1, './fa/faa' => 1, './fa/faa/faa_ord' => 1,
131 './fb' => 1, './fb/fba' => 1, './fb/fba/fba_ord' => 1, './fb/fb_ord' => 1);
132 delete $Expect{'./fa/fsl'} unless $symlink_exists;
133 %Expect_Dir = ('./fa' => 1, './fa/faa' => 1, '/fa/fab' => 1, './fa/fab/faba' => 1,
134 './fb' => 1, './fb/fba' => 1);
135 delete @Expect_Dir{'./fb','./fb/fba'} unless $symlink_exists;
136 File::Find::finddepth( {wanted => \&dn_wanted },'.' );
137 Check( scalar(keys %Expect) == 0 );
139 %Expect=('.' => 1, './fa' => 1, './fa/fsl' => 1, './fa/fa_ord' => 1, './fa/fab' => 1,
140 './fa/fab/fab_ord' => 1, './fa/fab/faba' => 1,
141 './fa/fab/faba/faba_ord' => 1, './fa/faa' => 1, './fa/faa/faa_ord' => 1,
142 './fb' => 1, './fb/fba' => 1, './fb/fba/fba_ord' => 1, './fb/fb_ord' => 1);
143 delete $Expect{'./fa/fsl'} unless $symlink_exists;
144 %Expect_Dir = ('./fa' => 1, './fa/faa' => 1, '/fa/fab' => 1, './fa/fab/faba' => 1,
145 './fb' => 1, './fb/fba' => 1);
146 delete @Expect_Dir{'./fb','./fb/fba'} unless $symlink_exists;
147 File::Find::finddepth( {wanted => \&d_wanted, no_chdir => 1 },'.' );
148 Check( scalar(keys %Expect) == 0 );
150 if ( $symlink_exists ) {
151 %Expect=('.' => 1, 'fa_ord' => 1, 'fsl' => 1, 'fb_ord' => 1, 'fba' => 1,
152 'fba_ord' => 1, 'fab' => 1, 'fab_ord' => 1, 'faba' => 1, 'faa' => 1,
154 %Expect_Dir = ('fa' => 1, 'fa/faa' => 1, '/fa/fab' => 1, 'fa/fab/faba' => 1,
155 'fb' => 1, 'fb/fba' => 1);
157 File::Find::find( {wanted => \&wanted, follow_fast => 1},'fa' );
158 Check( scalar(keys %Expect) == 0 );
160 %Expect=('fa' => 1, 'fa/fa_ord' => 1, 'fa/fsl' => 1, 'fa/fsl/fb_ord' => 1,
161 'fa/fsl/fba' => 1, 'fa/fsl/fba/fba_ord' => 1, 'fa/fab' => 1,
162 'fa/fab/fab_ord' => 1, 'fa/fab/faba' => 1, 'fa/fab/faba/faba_ord' => 1,
163 'fa/faa' => 1, 'fa/faa/faa_ord' => 1);
164 %Expect_Dir = ('fa' => 1, 'fa/faa' => 1, '/fa/fab' => 1, 'fa/fab/faba' => 1,
165 'fb' => 1, 'fb/fba' => 1);
166 File::Find::find( {wanted => \&wanted, follow_fast => 1, no_chdir => 1},'fa' );
167 Check( scalar(keys %Expect) == 0 );
169 %Expect=('fa' => 1, 'fa/fa_ord' => 1, 'fa/fsl' => 1, 'fa/fsl/fb_ord' => 1,
170 'fa/fsl/fba' => 1, 'fa/fsl/fba/fba_ord' => 1, 'fa/fab' => 1,
171 'fa/fab/fab_ord' => 1, 'fa/fab/faba' => 1, 'fa/fab/faba/faba_ord' => 1,
172 'fa/faa' => 1, 'fa/faa/faa_ord' => 1);
173 %Expect_Dir = ('fa' => 1, 'fa/faa' => 1, '/fa/fab' => 1, 'fa/fab/faba' => 1,
174 'fb' => 1, 'fb/fba' => 1);
176 File::Find::finddepth( {wanted => \&dn_wanted, follow_fast => 1},'fa' );
177 Check( scalar(keys %Expect) == 0 );
179 %Expect=('fa' => 1, 'fa/fa_ord' => 1, 'fa/fsl' => 1, 'fa/fsl/fb_ord' => 1,
180 'fa/fsl/fba' => 1, 'fa/fsl/fba/fba_ord' => 1, 'fa/fab' => 1,
181 'fa/fab/fab_ord' => 1, 'fa/fab/faba' => 1, 'fa/fab/faba/faba_ord' => 1,
182 'fa/faa' => 1, 'fa/faa/faa_ord' => 1);
183 %Expect_Dir = ('fa' => 1, 'fa/faa' => 1, '/fa/fab' => 1, 'fa/fab/faba' => 1,
184 'fb' => 1, 'fb/fba' => 1);
186 File::Find::finddepth( {wanted => \&d_wanted, follow_fast => 1, no_chdir => 1},'fa' );
187 Check( scalar(keys %Expect) == 0 );
190 print "# of cases: $case\n";