use File::Spec::Functions qw/catdir catfile/;
use File::Temp qw/tempfile tempdir/;
-use Test::More tests => 2 + 2 * 4 + 11 * (3 + 1 + 3 + 6);
+use Test::More tests => 2 + 2 * 4 + 12 * (3 + 1 + 3 + 6);
use App::Rgit::Utils qw/:codes/;
use App::Rgit;
@$_,
map({ catdir($tmpdir, $_) } @{$_}[1 .. 3]),
$tmpdir,
- '^n'
+ '%n', '%x'
], @expected;
sub try {
git => abs_path('t/bin/git'),
root => $tmpdir,
cmd => $cmd,
- args => [ abs_path($filename), $cmd, qw/^n ^g ^w ^b ^G ^W ^B ^R ^^n/ ],
+ args => [ abs_path($filename), $cmd, qw/%n %g %w %b %G %W %B %R %%n %x/ ],
policy => $policy,
);
isnt($ar, undef, "each $cmd has a defined object");
SKIP:
{
skip 'didn\'t visited that repo' => 10 unless defined $r;
+ s/[\r\n]*$// for @$r;
is($r->[$_], $e->[$_], "each $cmd argument $_ for repository $i is ok")
- for 0 .. 9;
+ for 0 .. 10;
}
}
}