Lines Matching refs:files
137 # files
151 eval { $ei->files('badmod') };
152 like( $@, qr/badmod is not installed/,'files() should croak given bad modname');
153 eval { $ei->files('goodmod', 'badtype' ) };
154 like( $@, qr/type must be/,'files() should croak given bad type' );
156 my @files;
160 @files = $ei->files('goodmod', 'doc', $Config{man1direxp});
161 is( scalar @files, 1, '... should find doc file under given dir' );
162 is( (grep { /foo$/ } @files), 1, '... checking file name' );
166 @files = $ei->files('goodmod', 'doc');
167 is( scalar @files, $mandirs, '... should find all doc files with no dir' );
170 @files = $ei->files('goodmod', 'prog', 'fake', 'fake2');
171 is( scalar @files, 0, '... should find no doc files given wrong dirs' );
172 @files = $ei->files('goodmod', 'prog');
173 is( scalar @files, 1, '... should find doc file in correct dir' );
174 like( $files[0], qr/foobar[>\]]?$/, '... checking file name' );
175 @files = $ei->files('goodmod');
176 is( scalar @files, 2 + $mandirs, '... should find all files with no type specified' );
177 my %dirnames = map { lc($_) => dirname($_) } @files;
181 is( scalar @dirs, 0, 'directories() should return no dirs if no files found' );
186 is( scalar @dirs, $mandirs, '... should find all files files() would' );
189 is( scalar @dirs, 2 + $mandirs, '... should find all files files() would, again' );
190 @files = sort map { exists $dirnames{lc($_)} ? $dirnames{lc($_)} : '' } @files;
191 is( join(' ', @files), join(' ', @dirs), '... should sort output' );