X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Flib%2FTestApp.pm;h=4b25a89553a5920c11cfdbab13757a5ac836bc1e;hb=6ac0784b4442b46abae68c76318c2189221e725d;hp=d1d8797d423e08b506c5ff05d75fd95122bca81d;hpb=258733f15e1e1ec4b4d92eda4b4471833890aced;p=catagits%2FCatalyst-Runtime.git diff --git a/t/lib/TestApp.pm b/t/lib/TestApp.pm index d1d8797..4b25a89 100644 --- a/t/lib/TestApp.pm +++ b/t/lib/TestApp.pm @@ -1,18 +1,19 @@ package TestApp; -use strict; +use Moose; + 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; # ----------- @@ -112,9 +113,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 } ) ); } @@ -134,7 +135,7 @@ sub finalize_headers { return $c->maybe::next::method(@_); } -# Make sure we can load Inline plugins. +# Make sure we can load Inline plugins. package Catalyst::Plugin::Test::Inline;