use Test::More; use TAP::Harness; use TAP::Parser::Aggregator; my $mm_start_time = gettimeofday; my $harness = TAP::Harness->new({ verbosity => -2, merge => 1, }); my $aggregator = TAP::Parser::Aggregator->new; $aggregator->start(); my $mm_parser; ## Doesn't work: ## $aggregator->add( 'myself', $mm_parser ); BEGIN { use_ok( 'ACTH::Base::Load_test', "load_test" ) or die "Could not use module ACTH::Base::Load_test"; can_ok( 'ACTH::Base::Load_test', "load_test" ); # others... } # lots of other work, subroutines called, etc done_testing( ); $aggregator->stop(); my $summary = <<'END_SUMMARY'; Passed: %s Failed: %s Unexpectedly succeeded: %s To do: %s Skipped: %s Planned: %s END_SUMMARY printf STDERR $summary, scalar $aggregator->passed, scalar $aggregator->failed, scalar $aggregator->todo_passed, scalar $aggregator->todo , scalar $aggregator->todo_passed, scalar $aggregator->skipped, scalar $aggregator->planned; exit 0;