diff options
author | Florian Ragwitz <rafl@debian.org> | 2011-03-18 14:30:28 +0100 |
---|---|---|
committer | Florian Ragwitz <rafl@debian.org> | 2011-03-18 14:32:51 +0100 |
commit | 464e4d010f79373327863e232c11feac4ef9f93c (patch) | |
tree | 2a71af2bb310a91726da884db52d16bd097650ab | |
parent | 1903997559f0c113d47cd8de778b6295d8beb411 (diff) | |
download | moosex-nonmoose-464e4d010f79373327863e232c11feac4ef9f93c.tar.gz moosex-nonmoose-464e4d010f79373327863e232c11feac4ef9f93c.zip |
Failing tests for shutting up warnings about non-new constructors
The method the warnings for classes with 'DESTROY' but no 'new' suggests about
stopping the warnings doesn't work.
-rw-r--r-- | t/26-no-new-constructor-error.t | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/t/26-no-new-constructor-error.t b/t/26-no-new-constructor-error.t index e70442e..4dbc944 100644 --- a/t/26-no-new-constructor-error.t +++ b/t/26-no-new-constructor-error.t @@ -23,4 +23,18 @@ use Test::More; } } +{ + 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'"); + } +} + done_testing; |