From: Tomas Doran <bobtfish@bobtfish.net>
Date: Tue, 28 Apr 2009 17:41:26 +0000 (+0000)
Subject: Fix false fail, caused by r9907 tidyup to not bother initializing clases
X-Git-Tag: 5.80003~24
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Runtime.git;a=commitdiff_plain;h=42ef9eedf4f88a5086e960f664a0ac8cca2b410a

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..
---

diff --git a/t/unit_metaclass_compat_non_moose_controller.t b/t/unit_metaclass_compat_non_moose_controller.t
index d2a61d9..cb3c1e2 100644
--- a/t/unit_metaclass_compat_non_moose_controller.t
+++ b/t/unit_metaclass_compat_non_moose_controller.t
@@ -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 Catalyst ();
     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;