view release on metacpan or  search on metacpan

t/util.t  view on Meta::CPAN

    $tmp_file, "Test first_cat_path with array" );

# Now find the directory housing the file.
is( $util->first_cat_dir('app-info.tst', $util->path, $tmpdir),
    $tmpdir, "Test first_cat_path" );

# And test it again using an array.
is( $util->first_cat_dir(['foo24342434.foo', 'bar4323423.foo', 'app-info.tst',
                          '__ickypoo__'], $util->path, $tmpdir, "C:\\mytemp"),
    $tmpdir, "Test first_cat_path with array" );

# Find an executable.
is( $util->first_exe('this.foo', 'that.exe', "$bin_dir/iconv$ext"),
    "$bin_dir/iconv$ext", 'Find executable' );

# Test first_cat_exe().
is( $util->first_cat_exe("iconv$ext", '.', $bin_dir),
    catfile($bin_dir, "iconv$ext"), 'Test first_cat_exe' );

# Test it again with an array.
is( $util->first_cat_exe(
    ['foowerwe.foo', 'barwere.foo', "iconv$ext", '__ickypoo__rs34'],
    '.', $bin_dir
), catfile($bin_dir, "iconv$ext"), "Test first_cat_exe with array" );

# Look for stuff in the file.
is( $util->search_file($tmp_file, qr/(of.*\?)/), 'of the who?',
    "Find 'of the who?'" );

# Look for a couple of things at once.
is_deeply( [$util->search_file($tmp_file, qr/(of\sthe)\s+(who\?)/)],
           ['of the', 'who?'], "Find 'of the' and 'who?'" );

ok( ! defined  $util->search_file($tmp_file, qr/(__ickypoo__)/),
    "Find nothing" );

# Look for a couple of things.
is_deeply([$util->multi_search_file($tmp_file, qr/(of.*\?)/, qr/(di.*e)/)],
          ['of the who?', "didn't vote"], "Find a couple" );

# Look for a couple of things on the same line.
is_deeply([$util->multi_search_file($tmp_file, qr/(of.*\?)/, qr/(Ki[mn]g)/)],
          ['of the who?', "King"], "Find a couple on one line" );

# Look for a couple of things, but have one be undef.
is_deeply([$util->multi_search_file($tmp_file, qr/(of.*\?)/, qr/(__ickypoo__)/)],
          ['of the who?', undef], "Find one but not the other" );

# And finally, find a couple of things where one is an array.
is_deeply([$util->multi_search_file($tmp_file, qr/(of\sthe)\s+(who\?)/,
                                    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';