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; #### ok 1 - use ACTH::Base::Load_test; ok 2 - ACTH::Base::Load_test->can('load_test') ok 3 - use ACTH::Base::Sanity_test; ok 4 - ACTH::Base::Sanity_test->can('sanity_test') ## ..snip... ===================================================== ===================================================== 1..23 Passed: 0 Failed: 0 Unexpectedly succeeded: 0 To do: 0 Skipped: 0 Planned: 0