X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Flib%2FPluginTestApp%2FController%2FRoot.pm;h=94f4378bce119d69f9a4857cc3ffaa73969acfcf;hb=550464108eada19dba470ec5d17fc849399fdab0;hp=e784d9603399b71f70c5515646f2ebc1964bb65d;hpb=9d04b6857491ce04e79cf93bdd45727e052ad6e6;p=catagits%2FCatalyst-Runtime.git diff --git a/t/lib/PluginTestApp/Controller/Root.pm b/t/lib/PluginTestApp/Controller/Root.pm index e784d96..94f4378 100644 --- a/t/lib/PluginTestApp/Controller/Root.pm +++ b/t/lib/PluginTestApp/Controller/Root.pm @@ -31,9 +31,16 @@ sub run_time_plugins : Local { # Trick perl into thinking the plugin is already loaded $INC{'Faux/Plugin.pm'} = 1; - __PACKAGE__->plugin( faux => $faux_plugin ); + ref($c)->plugin( faux => $faux_plugin ); isa_ok $c, 'Catalyst::Plugin::Test::Plugin'; + + # applied parameterized role + if (eval { require MooseX::Role::Parameterized; 1 }) { + can_ok $c, 'affe'; + is $c->affe, 'birne', 'right method created by parameterized role'; + } + isa_ok $c, 'TestApp::Plugin::FullyQualified'; ok !$c->isa($faux_plugin), '... and it should not inherit from the instant plugin'; @@ -42,6 +49,7 @@ sub run_time_plugins : Local { is_deeply [ $c->registered_plugins ], [ qw/Catalyst::Plugin::Test::Plugin + Catalyst::Plugin::Unicode::Encoding Faux::Plugin TestApp::Plugin::FullyQualified/ ],