diff options
author | Jesse Luehrs <doy@tozt.net> | 2011-04-29 18:05:42 -0500 |
---|---|---|
committer | Jesse Luehrs <doy@tozt.net> | 2011-04-29 18:05:42 -0500 |
commit | ffa87f12e2999ab231c79bd1c87276cd22cf3385 (patch) | |
tree | 86df8f938d40925c91494609993fb62f951a9714 /t/26-no-new-constructor-error.t | |
parent | dcbef0c5087b132303acb7d57184aeb84ff6cce0 (diff) | |
download | moosex-nonmoose-ffa87f12e2999ab231c79bd1c87276cd22cf3385.tar.gz moosex-nonmoose-ffa87f12e2999ab231c79bd1c87276cd22cf3385.zip |
allow this to work with arbitrarily named constructors
Diffstat (limited to 't/26-no-new-constructor-error.t')
-rw-r--r-- | t/26-no-new-constructor-error.t | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/t/26-no-new-constructor-error.t b/t/26-no-new-constructor-error.t index 4dbc944..2becbce 100644 --- a/t/26-no-new-constructor-error.t +++ b/t/26-no-new-constructor-error.t @@ -18,8 +18,11 @@ 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'" + ); } } |