Moose-2.1405HEADMoose-2.1405master

1 files changed, 27 insertions, 0 deletions

diff --git a/t/immutable/constructor_is_wrapped.t b/t/immutable/constructor_is_wrapped.t
new file mode 100644
index 0000000..820d7e9
--- /dev/null
+++ b/t/immutable/constructor_is_wrapped.t
@@ -0,0 +1,27 @@
+use strict;
+use warnings;
+
+use Test::More;
+use Test::Requires 'Test::Output';  # skip all if not installed
+
+{
+    package ModdedNew;
+    use Moose;
+
+    before 'new' => sub { };
+}
+
+{
+    package Foo;
+    use Moose;
+
+    extends 'ModdedNew';
+
+    ::stderr_like(
+        sub { Foo->meta->make_immutable },
+        qr/\QNot inlining 'new' for Foo since it has method modifiers which would be lost if it were inlined/,
+        'got a warning that Foo may not have an inlined constructor'
+    );
+}
+
+done_testing;