X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Funit_metaclass_compat_non_moose_controller.t;h=3b91ef2206b1aed9af17bd15845ffc7ab0776650;hb=36c67dc10cd5a928718d4e9122e03297a959a47e;hp=d2a61d9fa2317da4263d657d43c3915196579010;hpb=2f5cb0703a06e037f2521ba220242a937d0e35b9;p=catagits%2FCatalyst-Runtime.git

diff --git a/t/unit_metaclass_compat_non_moose_controller.t b/t/unit_metaclass_compat_non_moose_controller.t
index d2a61d9..3b91ef2 100644
--- a/t/unit_metaclass_compat_non_moose_controller.t
+++ b/t/unit_metaclass_compat_non_moose_controller.t
@@ -1,19 +1,12 @@
-use Catalyst ();
+use strict;
+use warnings;
 
-{
-    package TestApp::Controller::Base;
-    use base qw/Catalyst::Controller/;
-}
-{
-    package TestApp::Controller::Other;
-    use base qw/TestApp::Controller::Base/;
-}
-
-Catalyst->setup_component('TestApp::Controller::Other');
-Catalyst->setup_component('TestApp::Controller::Base');
+use FindBin;
+use lib "$FindBin::Bin/lib";
 
 use Test::More tests => 1;
 use Test::Exception;
+use TestAppNonMooseController;
 
 # Metaclass init order causes fail.
 # There are TODO tests in Moose for this, see
@@ -21,6 +14,6 @@ use Test::Exception;
 # after which the evil kludge in core can die in a fire.
 
 lives_ok {
-    TestApp::Controller::Base->get_action_methods
+    TestAppNonMooseController::ControllerBase->get_action_methods
 } 'Base class->get_action_methods ok when sub class initialized first';