quiet warnings during make_immutable, since they're expected in this test

1 files changed, 6 insertions, 1 deletions

diff --git a/t/022-replaced-constructor.t b/t/022-replaced-constructor.t
index b16890a..fc4b5bb 100644
--- a/t/022-replaced-constructor.t
+++ b/t/022-replaced-constructor.t
@@ -38,7 +38,12 @@ isa_ok($method, 'Class::MOP::Method::Wrapped');
 my $foo = Foo::Moose->new;
 ok($foo_constructed, 'method modifier called for the constructor');
 $foo_constructed = 0;
-Foo::Moose->meta->make_immutable;
+{
+    # we don't care about the warning that moose isn't going to inline our
+    # constructor - this is the behavior we're testing
+    local $SIG{__WARN__} = sub {};
+    Foo::Moose->meta->make_immutable;
+}
 is($method, Foo::Moose->meta->get_method('new'),
    'make_immutable doesn\'t overwrite constructor with method modifiers');
 $foo = Foo::Moose->new;