[Catalyst-commits] r9914 - Catalyst-Runtime/5.80/trunk/t

[t0m at dev.catalyst.perl.org]

Author: t0m
Date: 2009-04-28 18:41:26 +0100 (Tue, 28 Apr 2009)
New Revision: 9914

Modified:
   Catalyst-Runtime/5.80/trunk/t/unit_metaclass_compat_non_moose_controller.t
Log:
Fix false fail, caused by r9907 tidyup to not bother initializing clases
which don't match ^MyApp - ergo calling Catalyst->setup_component no longer
triggered the behavior to fix things up, as MyApp::Controller::Anything does
not match ^Catalyst..


Modified: Catalyst-Runtime/5.80/trunk/t/unit_metaclass_compat_non_moose_controller.t
===================================================================
--- Catalyst-Runtime/5.80/trunk/t/unit_metaclass_compat_non_moose_controller.t	2009-04-28 17:00:38 UTC (rev 9913)
+++ Catalyst-Runtime/5.80/trunk/t/unit_metaclass_compat_non_moose_controller.t	2009-04-28 17:41:26 UTC (rev 9914)
@@ -1,6 +1,10 @@
 use Catalyst ();
 
 {
+    package TestApp;
+    use base qw/Catalyst/;
+}
+{
     package TestApp::Controller::Base;
     use base qw/Catalyst::Controller/;
 }
@@ -9,8 +13,8 @@
     use base qw/TestApp::Controller::Base/;
 }
 
-Catalyst->setup_component('TestApp::Controller::Other');
-Catalyst->setup_component('TestApp::Controller::Base');
+TestApp->setup_component('TestApp::Controller::Other');
+TestApp->setup_component('TestApp::Controller::Base');
 
 use Test::More tests => 1;
 use Test::Exception;