moritz has asked for the wisdom of the Perl Monks concerning the following question:

In a (little weird) testing environment frequently test scripts die. I'm collecting some statistics via TAP::Parser::Aggregator, and I can retrieve every information that I want - except the number of planned tests. How can I get this information?

So far I couldn't find anything in the documentation, and $aggregator->total returns only the number of run tests, not the number of planed tests.

I don't really think it matters here, but since I always preach to others to supply some code, I'll show you my code so far: 

use strict;
use warnings;
use TAP::Harness;
use TAP::Parser::Aggregator 3.01;

#...

sub get_harness {
    return TAP::Harness->new({
            verbosity   => -2,
            exec        => ['../../parrot', '-G', 'perl6.pbc'],
            merge       => 1,
    });
}

# ...
# find a file to process, which will be stored in $test:

my $H = get_harness();
my $agg = TAP::Parser::Aggregator->new();
$agg->start();
$H->aggregate_tests($agg, $test);
$agg->stop();
my $actually_passed = $agg->passed - $agg->skipped - $agg->todo;
# more statistics collection here...

[download]

Update: I contacted Andy Armstrong via IRC, and he now added a planned() method to the aggregator class, which will be included in the next release. I love open source - contact the library authors, and get your problems fixed ;-)

Back to Seekers of Perl Wisdom