File Coverage

blib/lib/Test/Stream/Event/Subtest.pm

Criterion	Covered	Total	%
statement	39	39	100.0
branch	6	6	100.0
condition	2	2	100.0
subroutine	9	9	100.0
pod	1	2	50.0
total	57	58	98.2

package Test::Stream::Event::Subtest;
use strict;
use warnings;

use Scalar::Util qw/blessed/;
use Carp qw/confess/;

use Test::Stream::Formatter::TAP qw/OUT_STD/;

use Test::Stream::Event::Ok;
use Test::Stream::Event(
    base       => 'Test::Stream::Event::Ok',
    accessors  => [qw/subevents buffered/],
);

sub init {
    my $self = shift;
    $self->SUPER::init();
    $self->{+SUBEVENTS} ||= [];
}

sub to_tap {
    my $self = shift;
    my ($num) = @_;

    my ($ok, @diag) = $self->SUPER::to_tap($num);

    return (
        $ok,
        @diag
    ) unless $self->{+BUFFERED};

    if ($ENV{HARNESS_IS_VERBOSE}) {
        $_->[1] =~ s/^/    /mg for @diag;
    }

    $ok->[1] =~ s/\n/ {\n/;

    my $count = 0;
    my @subs = map {
        $count++ if $_->isa('Test::Stream::Event::Ok');
        map { $_->[1] =~ s/^/    /mg; $_ } $_->to_tap($count);
    } @{$self->{+SUBEVENTS}};

    return (
        $ok,
        @diag,
        @subs,
        [OUT_STD(), "}\n"],
    );
}

1;

__END__