view release on metacpan or  search on metacpan

t/20-pp.t  view on Meta::CPAN

    $Config{path_sep},
    grep length,
        catdir($cwd, 'blib', 'lib'),
        $test_dir,
        $ENV{PERL5LIB},
);

chdir $test_dir or die "can't chdir to $test_dir: $!";
push @INC, $test_dir;
{
    local @ARGV = (
        "--pp_location"   => catfile($cwd, qw(blib script pp)),
        "--par_location"  => catfile($cwd, qw(blib script par.pl)),
        (defined($ENV{TEST_VERBOSE}) && $ENV{TEST_VERBOSE} > 1) ? ("--verbose") : ()
    );
    do "./automated_pp_test.pl";
}

sub can_run {
    my ($self, $cmd) = @_;