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;