File Coverage

blib/lib/Test/Ika/ExampleGroup.pm

Criterion	Covered	Total	%
statement	59	60	98.3
branch	19	20	95.0
condition	1	3	33.3
subroutine	13	13	100.0
pod	0	8	0.0
total	92	104	88.4

package Test::Ika::ExampleGroup;
use strict;
use warnings;
use utf8;
use Carp ();

sub new {
    my $class = shift;
    my %args = @_==1 ? %{$_[0]} : @_;
    my $name = delete $args{name} || Carp::croak "Missing name";
    bless {
        triggers => {
            before_all => [],
            before_each => [],
            after_all => [],
            after_each => [],
        },
        example_groups => [],
        examples => [],
        name => $name,
        parent => $args{parent},
        root => $args{root},
        cond => exists $args{cond} ? $args{cond} : sub { 1 },
    }, $class;
}

sub add_example_group {
    my ($self, $context) = @_;
    push @{$self->{example_groups}}, $context;
}

sub add_example {
    my ($self, $it) = @_;
    push @{$self->{examples}}, $it;
}

sub add_trigger {
    my ($self, $trigger_name, $code) = @_;
    push @{$self->{triggers}->{$trigger_name}}, $code;
}

sub call_trigger {
    my ($self, $trigger_name) = @_;
    for my $trigger (@{$self->{triggers}->{$trigger_name}}) {
        $trigger->();
    }
}

sub call_before_each_trigger {
    my ($self, @args) = @_;
    $self->{parent}->call_before_each_trigger(@args) if $self->{parent};
    for my $trigger (@{$self->{triggers}->{'before_each'}}) {
        $trigger->(@args);
    }
}

sub call_after_each_trigger {
    my ($self, @args) = @_;
    for my $trigger (@{$self->{triggers}->{'after_each'}}) {
        $trigger->(@args);
    }
    $self->{parent}->call_after_each_trigger(@args) if $self->{parent};
}

sub run {
    my ($self) = @_;

    if (defined $self->{cond}) {
        my $cond = ref $self->{cond} eq 'CODE' ? $self->{cond}->() : $self->{cond};
        $cond = !!$cond;
        $self->{skip}++ unless $cond;
    }

    my $name = $self->{name};
    $name .= ' [DISABLED]' if $self->{skip};
    my $guard = $self->{root} ? undef : $Test::Ika::REPORTER->describe($name);

    unless ($self->{skip}) {
        $self->call_trigger('before_all');
        for my $stuff (@{$self->{examples}}) {
            $self->call_before_each_trigger($stuff, $self);
            $stuff->run();
            $self->call_after_each_trigger($stuff, $self);
        }
        for my $stuff (@{$self->{example_groups}}) {
            $stuff->run();
        }
        $self->call_trigger('after_all');
    }
}

1;