X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Flib%2FTestApp.pm;h=4242c5a3702bf184a5f87b3a1d8e86eab083dbc9;hb=e5210a95f78613a598abbfc7d29d92605d5bbad0;hp=d65f6cb37634124409402308a101e63d9e4104b7;hpb=dbb2d5cd1b69209e53eb204e7451d688327b2e11;p=catagits%2FCatalyst-Runtime.git diff --git a/t/lib/TestApp.pm b/t/lib/TestApp.pm index d65f6cb..4242c5a 100644 --- a/t/lib/TestApp.pm +++ b/t/lib/TestApp.pm @@ -7,6 +7,8 @@ use Catalyst qw/ Test::Plugin Test::Inline +TestApp::Plugin::FullyQualified + +TestApp::Plugin::AddDispatchTypes + +TestApp::Role /; use Catalyst::Utils; @@ -72,16 +74,6 @@ sub class_forward_test_method :Private { $c->response->headers->header( 'X-Class-Forward-Test-Method' => 1 ); } -sub class_go_test_method :Private { - my ( $self, $c ) = @_; - $c->response->headers->header( 'X-Class-Go-Test-Method' => 1 ); -} - -sub class_visit_test_method :Private { - my ( $self, $c ) = @_; - $c->response->headers->header( 'X-Class-Visit-Test-Method' => 1 ); -} - sub loop_test : Local { my ( $self, $c ) = @_; @@ -106,6 +98,6 @@ package Catalyst::Plugin::Test::Inline; use strict; -use base qw/Catalyst::Base Class::Data::Inheritable/; +use base qw/Class::Data::Inheritable/; 1;