test for trait inflation from moo roles

[gitmo/Moo.git] / xt / moose-method-modifiers.t

diff --git a/xt/moose-method-modifiers.t b/xt/moose-method-modifiers.t
index af9492d..2d49a8b 100644 (file)
--- a/xt/moose-method-modifiers.t
+++ b/xt/moose-method-modifiers.t
@@ -16,11 +16,12 @@ use Moo::HandleMoose;
    around foo => sub {
       my ($orig, $self, @rest) = @_;
       $self->$orig(@rest);
-      $after_ran = 1;
+      $around_ran = 1;
    };
 
    package Bar;
    use Moose;
+   with 'ModifyFoo';
 
    sub foo { }
 }