X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Flib%2FTestApp.pm;h=1dfe99983af98d413717f3425843655a385eedf9;hb=71d3df9414877882e2330b91625bee9677a275fb;hp=3bd3763d006cd32dbd2e99613f8550a8b9b2dc48;hpb=9cdb85d28dad6a60a5b5d3241c0073567d6983b8;p=catagits%2FCatalyst-Runtime.git diff --git a/t/lib/TestApp.pm b/t/lib/TestApp.pm index 3bd3763..1dfe999 100644 --- a/t/lib/TestApp.pm +++ b/t/lib/TestApp.pm @@ -1,19 +1,19 @@ package TestApp; +use Moose; -use strict; use Catalyst qw/ Test::MangleDollarUnderScore - Test::Errors - Test::Headers + Test::Errors + Test::Headers Test::Plugin Test::Inline +TestApp::Plugin::FullyQualified +TestApp::Plugin::AddDispatchTypes +TestApp::Role /; +extends 'Catalyst'; use Catalyst::Utils; -use Moose; use namespace::autoclean; # ----------- @@ -104,9 +104,9 @@ sub execute { # useful info if something crashes during a test sub finalize_error { my $c = shift; - + $c->next::method(@_); - + $c->res->status(500); $c->res->body( 'FATAL ERROR: ' . join( ', ', @{ $c->error } ) ); } @@ -116,7 +116,7 @@ sub finalize_error { sub Catalyst::Log::error { } } -# Make sure we can load Inline plugins. +# Make sure we can load Inline plugins. package Catalyst::Plugin::Test::Inline;