my %args = (
lib => [ '../lib', '../blib' ],
verbosity => -2,
merge => 1,
);
my $harness = TAP::Harness->new( \%args );
@tests = ('1.t');
my $aggregator = TAP::Parser::Aggregator->new;
$aggregator->start();
$harness->aggregate_tests( $aggregator, @tests );
print "aggregate:",$aggregate;
But this supresses all the output that gets printed on the screen. I want the output of the test script ie; all the 'ok' and 'is' test case outputs as it is, but need to suppress the warning or output of the .pl script that is called from .t
|