[Catalyst-commits] r10029 - in Catalyst-Runtime/5.80/trunk: . t

[t0m at dev.catalyst.perl.org]

Author: t0m
Date: 2009-05-07 00:25:18 +0000 (Thu, 07 May 2009)
New Revision: 10029

Added:
   Catalyst-Runtime/5.80/trunk/t/unit_metaclass_compat_extend_non_moose_controller.t
Modified:
   Catalyst-Runtime/5.80/trunk/Changes
Log:
Test in Catalyst for 349cda in Moose

Modified: Catalyst-Runtime/5.80/trunk/Changes
===================================================================
--- Catalyst-Runtime/5.80/trunk/Changes	2009-05-07 00:15:19 UTC (rev 10028)
+++ Catalyst-Runtime/5.80/trunk/Changes	2009-05-07 00:25:18 UTC (rev 10029)
@@ -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.

Added: Catalyst-Runtime/5.80/trunk/t/unit_metaclass_compat_extend_non_moose_controller.t
===================================================================
--- Catalyst-Runtime/5.80/trunk/t/unit_metaclass_compat_extend_non_moose_controller.t	                        (rev 0)
+++ Catalyst-Runtime/5.80/trunk/t/unit_metaclass_compat_extend_non_moose_controller.t	2009-05-07 00:25:18 UTC (rev 10029)
@@ -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';
+    };
+}
+