summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorFlorian Ragwitz <rafl@debian.org>2011-03-18 14:30:28 +0100
committerFlorian Ragwitz <rafl@debian.org>2011-03-18 14:32:51 +0100
commit464e4d010f79373327863e232c11feac4ef9f93c (patch)
tree2a71af2bb310a91726da884db52d16bd097650ab
parent1903997559f0c113d47cd8de778b6295d8beb411 (diff)
downloadmoosex-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.t14
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;