File Coverage

blib/lib/Test/Mini/Logger/TAP.pm

Criterion	Covered	Total	%
statement	44	44	100.0
branch	2	2	100.0
condition			n/a
subroutine	14	14	100.0
pod	11	11	100.0
total	71	71	100.0

# Default Test::Mini Output Logger.
package Test::Mini::Logger::TAP;
use base 'Test::Mini::Logger';
use strict;
use warnings;

sub new {
    my ($class, %args) = @_;
    return $class->SUPER::new(test_counter => 0, %args);
}

sub test_counter {
    my ($self) = @_;
    return $self->{test_counter};
}

sub inc_counter {
    my ($self) = @_;
    $self->{test_counter}++;
}

sub diag {
    my ($self, @msgs) = @_;
    my $msg = join "\n", @msgs;
    $msg =~ s/^/# /mg;
    $self->say($msg);
}

sub begin_test_case {
    my ($self, $tc, @tests) = @_;
    $self->diag("Test Case: $tc");
}

sub begin_test {
    my ($self) = @_;
    $self->inc_counter();
}

sub pass {
    my ($self, undef, $test) = @_;
    $self->say("ok @{[$self->test_counter]} - $test");
}

sub fail {
    my ($self, undef, $test, $msg) = @_;
    $self->say("not ok @{[$self->test_counter]} - $test");
    $self->diag($msg);
}

sub error {
    my ($self, undef, $test, $msg) = @_;
    $self->say("not ok @{[$self->test_counter]} - $test");
    $self->diag($msg);
}

sub skip {
    my ($self, undef, $test, $msg) = @_;
    $self->print("ok @{[$self->test_counter]} - $test # SKIP");

    if ($msg =~ /\n/) {
      $self->say();
      $self->diag($msg);
    } else {
      $self->say(": $msg");
    }
}

sub finish_test_suite {
    my ($self) = @_;
    $self->say("1..@{[$self->test_counter]}");
}

1;