summaryrefslogtreecommitdiffstats
path: root/t/26-no-new-constructor-error.t
diff options
context:
space:
mode:
Diffstat (limited to 't/26-no-new-constructor-error.t')
-rw-r--r--t/26-no-new-constructor-error.t21
1 files changed, 19 insertions, 2 deletions
diff --git a/t/26-no-new-constructor-error.t b/t/26-no-new-constructor-error.t
index e70442e..2becbce 100644
--- a/t/26-no-new-constructor-error.t
+++ b/t/26-no-new-constructor-error.t
@@ -18,8 +18,25 @@ use Test::More;
my $warning;
local $SIG{__WARN__} = sub { $warning = $_[0] };
__PACKAGE__->meta->make_immutable;
- ::like($warning, qr/Not inlining.*doesn't contain a 'new' method/,
- "warning when trying to make_immutable without a superclass 'new'");
+ ::like(
+ $warning,
+ qr/Not inlining.*doesn't contain a constructor named 'new'/,
+ "warning when trying to make_immutable without a superclass 'new'"
+ );
+ }
+}
+
+{
+ package ChildTwo;
+ use Moose;
+ use MooseX::NonMoose;
+ extends 'NonMoose';
+ {
+ my $warning;
+ local $SIG{__WARN__} = sub { $warning = $_[0] };
+ __PACKAGE__->meta->make_immutable(inline_constructor => 0);
+ ::is($warning, undef,
+ "no warning when trying to make_immutable(inline_constructor => 0) without a superclass 'new'");
}
}