NAME

Eve::Test - a base class for all test cases.

SYNOPSIS

    use parent qw(Eve::Test);

    sub startup : Test(startup) {
        my $self = shift;

        $self->{'testcase_property'} = 'Testcase';
    }

    sub setup : Test(setup) {
        my $self = shift;

        $self->{'test_property'} = 'Test';
    }

    sub test_match : Test(2) {
        my $self = shift;

        is($something, $self->{'testcase_property'},
            'Does something equal a testcase property?');
        is($something, $self->{'test_property'},
            'Does something equal a test property?');

        Eve::Test::is_lazy(
            code => sub {
                return $self->{'some_registry'}->get_some_lazy_service();
            },
            class_name => 'Some::Lazy::Service',
            description =>
                'Does the subroutine return the same instance of '
                . 'Some::Lazy::Service?');

        Eve::Test::is_prototype(
            code => sub {
                return $self->{'some_registry'}->get_some_prototype_service();
            },
            class_name => 'Some::Prototype::Service',
            description =>
                'Does the subroutine return a different instance of '
                . 'Some::Prototype::Service?');
    }

    sub setup : Test(teardown) {
        my $self = shift;

        undef $self->{'test_property'};
    }

    sub shutdown : Test(shutdown) {
        my $self = shift;

        undef $self->{'testcase_property'};
    }

DESCRIPTION

Eve::Test class uses the Test::Class module as a base. Each test case that wants to use its functionality should inherit from it. After this it is easy to define setup/teardown, startup/shutdown and test methods.

Test methods

A test method is specified as such by using special method attributes like so:

    sub test_something : Test {
        # Your test here
    }

If there is more than one test in the method, their count should be specified:

    sub test_something : Test(4) {
        # Your four tests here
    }

If there is no way to tell how many tests are going to be run in the method, the 'no_plan' parameter can be used:

    sub test_something : Test(no_plan) {
        # Your test here
    }

Abstract test classes

To avoid running tests on abstract test classes call the SKIP_CLASS method in the package.

    Eve::SomeAbstractClassTest->SKIP_CLASS(1);

METHODS

is_lazy()

Asserts that a code block returns the same object on two sequential calls and that this object is an instance of a certain class. When using this assertion method add two tests to the plan for each call.

    use Eve::Test;

    sub test_lazy_service : Test(2) {
        Eve::Test::is_lazy(
            code => sub {
                return $some_registry->some_lazy_service();
            },
            class_name => 'Some::Class::Name',
            description => 'I need this service to be lazy!');
    }

Arguments

code

class_name

description

(optional) defaults to undef.

is_prototype()

Asserts that a code block returns a different object on two sequential calls and that this object is an instance of a certain class. When using this assertion method add two tests to the plan for each call.

    use Eve::Test;

    sub test_prototype_service : Test(2) {
        Eve::Test::is_prototype(
            code => sub {
                return $some_registry->some_prototype_service();
            },
            class_name => 'Some::Class::Name',
            description => 'I need this service to be a prototype!');
    }

Arguments

code

class_name

description

(optional) defaults to undef.

SEE ALSO

Test::Class

Test::Simple

Test::More

Test::Exception

Test::MockObject

LICENSE AND COPYRIGHT

Copyright 2012 Igor Zinovyev.

This program is free software; you can redistribute it and/or modify it under the terms of either: the GNU General Public License as published by the Free Software Foundation; or the Artistic License.

See http://dev.perl.org/licenses/ for more information.

AUTHORS

Sergey Konoplev

Igor Zinovyev

cpanm Eve

perl -MCPAN -e shell
install Eve