view release on metacpan or  search on metacpan

MANIFEST  view on Meta::CPAN

t/testinc/expat.h
t/testinc/iconv.h
t/testinc/sqlite3.h
t/testlib/httpd.conf
t/testlib/libexpat.so
t/testlib/libiconv.so
t/testlib/libsqlite3.so
t/testmod/mod_dir.so
t/testmod/mod_include.so
t/testmod/mod_perl.so
t/testmod/not_mod.txt
t/util.t
t/uuid.t
t/uuid_info.t
t/zpod.t

t/util.t  view on Meta::CPAN

                                    qr/(Ki[mn]g)/)],
          [['of the', 'who?'], 'King'], "Find one an array ref and a scalar" );

# Don't forget to delete our temporary file.
rmtree $tmp_file;

# Test files_in_dir.
my @dirs = (
    qw(. ..),
    (-d '.svn' ? '.svn' : ()),
    qw(mod_dir.so mod_include.so mod_perl.so not_mod.txt)
);
is_deeply [sort $util->files_in_dir(catdir(qw(t testmod))) ], \@dirs,
    'files_for_dir should return all files in a directory';

@dirs = grep { /^mod_/ } @dirs;
is_deeply
    [ sort $util->files_in_dir( catdir(qw(t testmod)), sub { /^mod_/ } ) ],
    \@dirs,
    'files_for_dir should use the filter I pass';