Lines Matching refs:files

150 eval { $ei->files('badmod') };
152 eval { $ei->files('goodmod', 'badtype' ) };
155 my @files;
159     @files = $ei->files('goodmod', 'doc', $Config{man1direxp});
160     is( scalar @files, 1, '... should find doc file under given dir' );
161     is( (grep { /foo$/ } @files), 1, '... checking file name' );
165     @files = $ei->files('goodmod', 'doc');
166     is( scalar @files, $mandirs, '... should find all doc files with no dir' );
169 @files = $ei->files('goodmod', 'prog', 'fake', 'fake2');
170 is( scalar @files, 0, '... should find no doc files given wrong dirs' );
171 @files = $ei->files('goodmod', 'prog');
172 is( scalar @files, 1, '... should find doc file in correct dir' );
173 like( $files[0], qr/foobar[>\]]?$/, '... checking file name' );
174 @files = $ei->files('goodmod');
175 is( scalar @files, 2 + $mandirs, '... should find all files with no type specified' );
176 my %dirnames = map { lc($_) => dirname($_) } @files;
189 @files = sort map { exists $dirnames{lc($_)} ? $dirnames{lc($_)} : '' } @files;
190 is( join(' ', @files), join(' ', @dirs), '... should sort output' );