02_valid.t   [plain text]

use strict;
use Test::More tests => 4;

use lib 't/lib';
use Foo::Valid;			# should be use()

ok(Foo::Valid->add_trigger(before_foo => sub { }));
ok(Foo::Valid->add_trigger(before_foo => sub { }));

eval {
    Foo::Valid->add_trigger(invalid => sub { });
};
like $@, qr/invalid is not valid triggerpoint for Foo::Valid/, $@;

my $foo = Foo::Valid->new;
eval {
    $foo->bar;
};
like $@, qr/invalid is not valid triggerpoint for Foo::Valid/, $@;