Select Code to Download

1..4
ok 1
...
not ok 3
#   Failed test at t/my_test.t line 7.
ok 4

my $tap = qx|./compiled_test_app|;
my $parser = TAP::Parser->new( { tap => $tap } );

use strict;
use warnings;
...
        die "Can't figure out what to do with $result";
    }
}

1..4
ok 1 - ok 1
...
#   at t/tap_wrapper.t line 28.
#   Failed test at t/my_test.t line 7.ok 4 - ok 4
# Looks like you failed 1 test of 4.

use Test::ParseTAP;
my $tap = qx|./compiled_test|;
parse_tap($tap);