view release on metacpan or  search on metacpan

t/recursive.t  view on Meta::CPAN

#!perl -T

use strict;
use warnings;
#use Test::More tests => 2;
use Test::More skip_all => 'TODO';
use FindBin '$Bin';
($Bin) = $Bin =~ /(.+)/;

our $Perl;
our $Dir;

require "$Bin/testlib.pl";
prepare_for_testing();

# TODO: still some problem with tainting in mode=method
#test_perlmv([3, 4], {recursive=>1, extra_arg=>'a', codes=>['s/(\d+)/"file".($1+2).".ext"/e', 's/\.ext$//']}, [3, 4], '',
#        sub { mkdir "a"; open F, ">3"; open F, ">4"; open F, ">a/1"; open F, ">a/2" },
#        sub { ok((-f "file5") && (-f "file6") && (-d "a") && (-f "a/file3") && (-f "a/file4"), "recursive + multi") });

end_testing();