X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F001_mouse%2F069-add-modifier.t;h=1a5760651a6579a095af383a4f428310560a95e0;hb=aa3b1c110ba2bde693d43554dc853696ccd41866;hp=2a2462ac51908803f4494eda2a4e1842ebea5a26;hpb=5c713614f1f6cee9043685ff3b8f253f4d3a65c9;p=gitmo%2FMouse.git diff --git a/t/001_mouse/069-add-modifier.t b/t/001_mouse/069-add-modifier.t index 2a2462a..1a57606 100644 --- a/t/001_mouse/069-add-modifier.t +++ b/t/001_mouse/069-add-modifier.t @@ -1,10 +1,15 @@ #!perl use strict; use warnings; +use lib 't/lib'; use Test::More; use Test::Exception; +throws_ok { + A->meta->add_around_method_modifier(bar => sub { "baz" }); +} qr/The method 'bar' was not found in the inheritance hierarchy for A/; + { package A; use Mouse; @@ -16,8 +21,4 @@ A->meta->add_around_method_modifier(foo => sub { "bar" }); is(A->foo(), 'bar', 'add_around_modifier'); -throws_ok { - A->meta->add_around_method_modifier(bar => sub { "baz" }); -} qr/The method 'bar' was not found in the inheritance hierarchy for A/; - done_testing;