From: Tomas Doran <bobtfish@bobtfish.net>
Date: Thu, 7 May 2009 00:25:18 +0000 (+0000)
Subject: Test in Catalyst for 349cda in Moose
X-Git-Tag: 5.80004~42
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Runtime.git;a=commitdiff_plain;h=7ba9f98c8d89f3587988dec3ed2d1dea6d953fcc

Test in Catalyst for 349cda in Moose
---

diff --git a/Changes b/Changes
index 5f97880..3bafdd5 100644
--- a/Changes
+++ b/Changes
@@ -1,5 +1,7 @@
 # This file documents the revision history for Perl extension Catalyst.
 
+        - Test for using Moose in components which have a non-Moose base class
+          Fixed by 349cda in Moose 0.79 (t0m)
         - Fix deprecation message for Catalyst::Dispatcher to refer
           to the class actually calling the deprecated method. RT#45741 (t0m)
         - Clarify limitations of $request->base and $request->secure.
diff --git a/t/unit_metaclass_compat_extend_non_moose_controller.t b/t/unit_metaclass_compat_extend_non_moose_controller.t
new file mode 100644
index 0000000..568a629
--- /dev/null
+++ b/t/unit_metaclass_compat_extend_non_moose_controller.t
@@ -0,0 +1,20 @@
+use Catalyst ();
+
+{
+    package TestApp;
+    use base qw/Catalyst/;
+}
+{
+    package TestApp::Controller::Base;
+    use base qw/Catalyst::Controller/;
+}
+{
+    package TestApp::Controller::Other;
+    use Moose;
+    use Test::More tests => 1;
+    use Test::Exception;
+    lives_ok {
+        extends 'TestApp::Controller::Base';
+    };
+}
+