Test in Catalyst for 349cda in Moose

diff --git a/Changes b/Changes
index 5f97880..3bafdd5 100644 (file)
--- 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 (file)
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';
+    };
+}
+