Andy Armstrong > Test-Harness-2.99_01 > TAP::Parser::Aggregator

Download:
Test-Harness-2.99_01.tar.gz

Dependencies

Annotate this POD

Website

CPAN RT

New  21
Open  19
View/Report Bugs
Module Version: 2.99_01   Source   Latest Release: Test-Harness-3.33

NAME ^

TAP::Parser::Aggregator - Aggregate TAP::Parser results

VERSION ^

Version 2.99_01

SYNOPSIS ^

    use TAP::Parser::Aggregator;

    my $aggregate = TAP::Parser::Aggregator->new;
    $aggregate->add( 't/00-load.t', $load_parser );
    $aggregate->add( 't/10-lex.t',  $lex_parser  );
    
    my $summary = <<'END_SUMMARY';
    Passed:  %s
    Failed:  %s
    Unexpectedly succeeded: %s
    END_SUMMARY
    printf $summary, 
           scalar $aggregate->passed, 
           scalar $aggregate->failed,
           scalar $aggregate->todo_passed;

DESCRIPTION ^

TAP::Parser::Aggregator collects parser objects and allows reporting/querying their aggregate results.

METHODS ^

Class Methods

new

 my $aggregate = TAP::Parser::Aggregator->new;

Returns a new TAP::Parser::Aggregator object.

Instance Methods

add

  $aggregate->add( $description => $parser );

The $description is usually a test file name (but only by convention.) It is used as a unique identifier (see e.g. "parsers".) Reusing a description is a fatal error.

The $parser is a TAP::Parser object.

parsers

  my $count   = $aggregate->parsers;
  my @parsers = $aggregate->parsers;
  my @parsers = $aggregate->parsers(@descriptions);

In scalar context without arguments, this method returns the number of parsers aggregated. In list context without arguments, returns the parsers in the order they were added.

If @descriptions is given, these correspond to the keys used in each call to the add() method. Returns an array of the requested parsers (in the requested order) in list context or an array reference in scalar context.

Requesting an unknown identifier is a fatal error.

Summary methods

Each of the following methods will return the total number of corresponding tests if called in scalar context. If called in list context, returns the descriptions of the parsers which contain the corresponding tests (see add for an explanation of description.

For example, to find out how many tests unexpectedly succeeded (TODO tests which passed when they shouldn't):

 my $count        = $aggregate->todo_passed;
 my @descriptions = $aggregate->todo_passed;

Note that wait and exit are the totals of the wait and exit statuses of each of the tests. These values are totalled only to provide a true value if any of them are non-zero.

total

  my $tests_run = $aggregate->total;

Returns the total number of tests run.

has_problems

  if ( $parser->has_problems ) {
      ...
  }

Returns true if any of the parsers has a result other than "all passed". This includes failed tests, TODO tests unexpectedly succeeded, parse errors, bad exit/wait status, etc.

todo_failed

  # deprecated in favor of 'todo_passed'.  This method was horribly misnamed.

This was a badly misnamed method. It indicates which TODO tests unexpectedly succeeded. Will now issue a warning and call todo_passed.

See Also ^

TAP::Parser

TAP::Harness

syntax highlighting: