view release on metacpan or  search on metacpan

t/01-script.t  view on Meta::CPAN

    push @cmd, (map { "-I$_" } @INC);
        # brute-force our @INC down to the other perl invocation
        # so that we can run tests with -Ilib.

    push @cmd, $script;
    diag "Testing script/git-find with command line:\n", join ' ', @cmd;

    # Run the tests

    my ($stdout, $stderr, $exit) = capture {
        return system(@cmd, '-h');
    };
    cmp_ok $exit>>8, '==', 0, 'exit code -h';
}

test_invocations;
done_testing;