From 464e4d010f79373327863e232c11feac4ef9f93c Mon Sep 17 00:00:00 2001
From: Florian Ragwitz <rafl@debian.org>
Date: Fri, 18 Mar 2011 14:30:28 +0100
Subject: 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.
---
 t/26-no-new-constructor-error.t | 14 ++++++++++++++
 1 file changed, 14 insertions(+)

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;
-- 
cgit v1.2.3