X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F001_mouse%2F019-handles.t;h=4878cc66fd80f66bee59cfcaf025993eb8ea45fb;hb=HEAD;hp=3dbf3149382fea1d1afab4b225d0ddaf02ec81c8;hpb=cb80a70a3d6101e0bc8f6576765a2d6c588d2ecd;p=gitmo%2FMouse.git

diff --git a/t/001_mouse/019-handles.t b/t/001_mouse/019-handles.t
index 3dbf314..4878cc6 100644
--- a/t/001_mouse/019-handles.t
+++ b/t/001_mouse/019-handles.t
@@ -4,6 +4,7 @@ use warnings;
 use Test::More;
 use Test::Exception;
 
+my $before = 0;
 do {
     package Person;
     use Mouse;
@@ -39,6 +40,7 @@ do {
         handles => [qw/name age/],
     );
 
+    before me => sub { $before++ };
 };
 
 can_ok(Class => qw(person has_person person_name person_age name age quid));
@@ -66,6 +68,7 @@ is($object2->person_hello, 'Hello, Philbert', 'currying');
 ok($object->quid, "we have a Shawn");
 is($object->name, "Shawn", "name handle");
 is($object->age, 21, "age handle");
+is $before, 2, 'delegations with method modifiers';
 is($object->me->name, "Shawn", "me->name");
 is($object->me->age, 21, "me->age");