File Coverage

lib/Test/UniqueTestNames/Tracker.pm

Criterion	Covered	Total	%
statement	24	24	100.0
branch	6	6	100.0
condition	2	2	100.0
subroutine	7	7	100.0
pod	0	4	0.0
total	39	43	90.7

package Test::UniqueTestNames::Tracker;

use strict;
use warnings;

use Test::UniqueTestNames::Test;

my %tests;

sub add_test {
    my ( $class, $name, $line_number ) = @_;

    die "add_test must have a line number" unless defined $line_number;
    $name ||= '';

    unless ( exists $tests{ $name } ) {
        $tests{ $name } = Test::UniqueTestNames::Test->new( $name, $line_number );
    }
    else {
        $tests{ $name }->add_line_number( $line_number );
    }
}

sub all_tests {
    return [ values %tests ];
}

sub failing_tests {
    my ( $class ) = @_;

    my @failing_tests;

    for( sort { $a->lowest_line_number <=> $b->lowest_line_number } values %tests ) {
        push @failing_tests, $_ if $_->fails;
    }

    return \@failing_tests;
}

sub unnamed_ok {
    my ( $class, $value ) = @_;
    Test::UniqueTestNames::Test->unnamed_ok( $value );
}

1;