1use strict;
2use Test::More tests => 4;
3
4use lib 't/lib';
5use Foo::Valid;			# should be use()
6
7ok(Foo::Valid->add_trigger(before_foo => sub { }));
8ok(Foo::Valid->add_trigger(before_foo => sub { }));
9
10eval {
11    Foo::Valid->add_trigger(invalid => sub { });
12};
13like $@, qr/invalid is not valid triggerpoint for Foo::Valid/, $@;
14
15my $foo = Foo::Valid->new;
16eval {
17    $foo->bar;
18};
19like $@, qr/invalid is not valid triggerpoint for Foo::Valid/, $@;
20