Blame t/sample-data/to-copy-from/findorule.t
|
Packit |
26bf30 |
#!perl
|
|
Packit |
26bf30 |
|
|
Packit |
26bf30 |
use strict;
|
|
Packit |
26bf30 |
use warnings;
|
|
Packit |
26bf30 |
|
|
Packit |
26bf30 |
use Test::More tests => 6;
|
|
Packit |
26bf30 |
use File::Spec;
|
|
Packit |
26bf30 |
|
|
Packit |
26bf30 |
# extra tests for findorule. these are more for testing the parsing code.
|
|
Packit |
26bf30 |
|
|
Packit |
26bf30 |
sub run ($) {
|
|
Packit |
26bf30 |
my $expr = shift;
|
|
Packit |
26bf30 |
my $script = File::Spec->catfile(
|
|
Packit |
26bf30 |
File::Spec->curdir(), "scripts", "findorule"
|
|
Packit |
26bf30 |
);
|
|
Packit |
26bf30 |
|
|
Packit |
26bf30 |
[ sort split /\n/, `$^X -Mblib $script $expr 2>&1` ];
|
|
Packit |
26bf30 |
}
|
|
Packit |
26bf30 |
|
|
Packit |
26bf30 |
is_deeply(run 't -file -name foobar', [ 't/foobar' ],
|
|
Packit |
26bf30 |
'-file -name foobar');
|
|
Packit |
26bf30 |
|
|
Packit |
26bf30 |
is_deeply(run 't -maxdepth 0 -directory',
|
|
Packit |
26bf30 |
[ 't' ], 'last clause has no args');
|
|
Packit |
26bf30 |
|
|
Packit |
26bf30 |
|
|
Packit |
26bf30 |
{
|
|
Packit |
26bf30 |
local $TODO = "Win32 cmd.exe hurts my brane"
|
|
Packit |
26bf30 |
if ($^O =~ m/Win32/ || $^O eq 'dos');
|
|
Packit |
26bf30 |
|
|
Packit |
26bf30 |
is_deeply(run 't -file -name \( foobar \*.t \)',
|
|
Packit |
26bf30 |
[ qw( t/File-Find-Rule.t t/findorule.t t/foobar ) ],
|
|
Packit |
26bf30 |
'grouping ()');
|
|
Packit |
26bf30 |
|
|
Packit |
26bf30 |
is_deeply(run 't -name \( -foo foobar \)',
|
|
Packit |
26bf30 |
[ 't/foobar' ], 'grouping ( -literal )');
|
|
Packit |
26bf30 |
}
|
|
Packit |
26bf30 |
|
|
Packit |
26bf30 |
is_deeply(run 't -file -name foobar baz',
|
|
Packit |
26bf30 |
[ "unknown option 'baz'" ], 'no implicit grouping');
|
|
Packit |
26bf30 |
|
|
Packit |
26bf30 |
is_deeply(run 't -maxdepth 0 -name -file',
|
|
Packit |
26bf30 |
[], 'terminate at next -');
|