X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Flib%2FPluginTestApp%2FController%2FRoot.pm;h=b06549ac3ccedc85c5929bd81f84920b2c57b941;hb=f8b392d8c36548a632f8b214c18d6fc1cecfd3e4;hp=19d1f18a235c3e87659b5a4d1d318d5f08da56b8;hpb=1cb60578d65fbb51a217d55962bbb50825db8cb6;p=catagits%2FCatalyst-Runtime.git

diff --git a/t/lib/PluginTestApp/Controller/Root.pm b/t/lib/PluginTestApp/Controller/Root.pm
index 19d1f18..b06549a 100644
--- a/t/lib/PluginTestApp/Controller/Root.pm
+++ b/t/lib/PluginTestApp/Controller/Root.pm
@@ -3,11 +3,6 @@ use Test::More;
 
 use base 'Catalyst::Controller';
 
-#use Catalyst qw(
-#        Test::Plugin
-#        +TestApp::Plugin::FullyQualified
-#        );
-
 __PACKAGE__->config->{namespace} = '';
 
 sub compile_time_plugins : Local {
@@ -17,37 +12,7 @@ sub compile_time_plugins : Local {
     isa_ok $c->application, 'TestApp::Plugin::FullyQualified';
 
     can_ok $c, 'registered_plugins';
-    $c->_test_plugins;
-
-    $c->res->body("ok");
-}
-
-sub run_time_plugins : Local {
-    my ( $self, $c ) = @_;
-
-    $c->_test_plugins;
-    my $faux_plugin = 'Faux::Plugin';
-
-# Trick perl into thinking the plugin is already loaded
-    $INC{'Faux/Plugin.pm'} = 1;
-
-    ref($c)->plugin( faux => $faux_plugin );
-
-    isa_ok $c, 'Catalyst::Plugin::Test::Plugin';
-    isa_ok $c, 'TestApp::Plugin::FullyQualified';
-    ok !$c->isa($faux_plugin),
-    '... and it should not inherit from the instant plugin';
-    can_ok $c, 'faux';
-    is $c->faux->count, 1, '... and it should behave correctly';
-    is_deeply [ $c->registered_plugins ],
-    [
-        qw/Catalyst::Plugin::Test::Plugin
-        Faux::Plugin
-        TestApp::Plugin::FullyQualified/
-        ],
-    'registered_plugins() should report all plugins';
-    ok $c->registered_plugins('Faux::Plugin'),
-    '... and even the specific instant plugin';
+    $c->application->_test_plugins;
 
     $c->res->body("ok");
 }