view release on metacpan or  search on metacpan

t/lib/TestHelper.pm  view on Meta::CPAN

    my $leaf_name = $name =~ / > ([^>]+)$/ ? $1 : $name;
    return qr/\Q$leaf_name\E # skip/;
}

sub run_test_file {
    my ($test_file, $filter, $debug) = @_;

    local $ENV{SUBTEST_FILTER} = defined $filter ? encode_utf8($filter) : undef;
    local $ENV{SUBTEST_FILTER_DEBUG} = $debug // 1; # Default to enabled

    my $file = File::Spec->catfile(split m!/!, $test_file);

    my ($stdout, $stderr, $exit) = capture {
        system($^X, '-Ilib', $file);
    };
    $stdout = decode_utf8($stdout);

    my $err = $exit >> 8;
    if ($err != 0) {
        die "Test file '$test_file' exited with code $err. STDERR:\n$stderr\nSTDOUT:\n$stdout\n";
    }