@$_,
map({ catdir($tmpdir, $_) } @{$_}[1 .. 3]),
$tmpdir,
- '^n', '^x'
+ '@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 ^x/ ],
+ 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");