File Coverage

blib/lib/Test/SetupTeardown.pm

Criterion	Covered	Total	%
statement	27	27	100.0
branch	10	10	100.0
condition	3	3	100.0
subroutine	5	5	100.0
pod	2	2	100.0
total	47	47	100.0

package Test::SetupTeardown;

use strict;
use warnings;

use Test::Builder;

our $VERSION = 0.003;

sub new {

    my $class = shift;
    my %routines = @_;

    my $self = { tbuilder => Test::Builder->new,
                 setup => $routines{setup},
                 teardown => $routines{teardown} };

    bless $self, $class;
    return $self;

}

sub run_test {

    my ($self, $description, $coderef) = @_;
    my $exception_while_running_block;

    if ($ENV{TEST_ST_ONLY}
        and $ENV{TEST_ST_ONLY} ne $description) {

        # TEST_ST_ONLY is set for another test case
        return;

    }

    $self->{tbuilder}->note($description);

    # Run setup() routine before each test
    $self->{setup}->() if $self->{setup};

    eval {

        # Catch all exceptions thrown by the block, to be rethrown
        # later after the teardown has had a chance to run
        &$coderef;

    };

    if ($@) {

        # Stash this for now
        $exception_while_running_block = $@;

    }

    # Run teardown routine after each test
    $self->{teardown}->() if $self->{teardown};

    if ($exception_while_running_block) {

        # The teardown has run now, rethrow the exception
        die $exception_while_running_block;

    }

}

1;
__END__