File Coverage

lib/Test/Expectation.pm

Criterion	Covered	Total	%
statement	40	41	97.5
branch	2	4	50.0
condition			n/a
subroutine	14	14	100.0
pod	0	4	0.0
total	56	63	88.8

use strict;
use warnings;

package Test::Expectation;

our $VERSION = 0.06;

use Carp qw(croak);
use Test::More 'no_plan';
use Test::Expectation::Positive;
use Test::Expectation::Negative;

require Exporter;
use vars qw(@EXPORT @ISA);
@ISA = qw(Exporter);
@EXPORT = qw(it_should before_each after_each it_is_a);

our @Expectations;
our $Description = '';
our $BeforeEach = sub {};
our $AfterEach = sub {};

sub it_is_a {
    $Description = shift;
}

sub before_each {
    $BeforeEach = shift;
}

sub after_each {
    $AfterEach = shift;
}

sub it_should {
    my ($testName, $testRef) = @_;

    @Expectations = ();
    $BeforeEach->();

    $testRef->();

    $AfterEach->();

    foreach my $expectation (@Expectations) {
        my $testString = ($Description ? $Description . " " : 'it ') . "should $testName";

        if ($expectation->isMet()) {
            pass($testString);
        }
        else {
            fail($testString . ' (' . $expectation->failure . ')');
        }
    }

    @Expectations = ();
}

*UNIVERSAL::_bindExpectation = sub {
    my ($expectationType, $class, $method) = @_;

    my $expectation = $expectationType->new($class, $method);

    push(@Expectations, $expectation);
    return $expectation
};

*UNIVERSAL::expects = sub {
    UNIVERSAL::_bindExpectation('Test::Expectation::Positive', @_);
};

*UNIVERSAL::does_not_expect = sub {
    UNIVERSAL::_bindExpectation('Test::Expectation::Negative', @_);
};

1;

__END__