X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Runtime.git;a=blobdiff_plain;f=t%2Fhttp_exceptions.t;h=5cb31175e0d63b69c127d2baef6007cf1612d5aa;hp=460769d2a296fe5037ec8155d64b23fa25e43810;hb=efa8265f59bbb8df5f80cc8ee54604acb72554be;hpb=6e94698dcf3a2dca78fd6f572c0860a1e386b118 diff --git a/t/http_exceptions.t b/t/http_exceptions.t index 460769d..5cb3117 100644 --- a/t/http_exceptions.t +++ b/t/http_exceptions.t @@ -70,15 +70,19 @@ use Plack::Test; die "I'm not dead yet"; } + sub end :Private { die "We should never hit end for HTTPExceptions" } + package MyApp; use Catalyst; + MyApp->config(abort_chain_on_error_fix=>1); + sub debug { 1 } MyApp->setup_log('fatal'); } -$INC{'MyApp/Controller/Root.pm'} = '1'; # sorry... +$INC{'MyApp/Controller/Root.pm'} = __FILE__; # sorry... MyApp->setup_log('error'); Test::More::ok(MyApp->setup); @@ -90,6 +94,7 @@ test_psgi $psgi, sub { my $res = $cb->(GET "/root/from_psgi_app"); is $res->code, 404; is $res->content, 'Not Found', 'NOT FOUND'; + unlike $res->content, qr'HTTPExceptions', 'HTTPExceptions'; }; test_psgi $psgi, sub { @@ -97,6 +102,7 @@ test_psgi $psgi, sub { my $res = $cb->(GET "/root/from_catalyst"); is $res->code, 403; is $res->content, 'Forbidden', 'Forbidden'; + unlike $res->content, qr'HTTPExceptions', 'HTTPExceptions'; }; test_psgi $psgi, sub { @@ -104,6 +110,7 @@ test_psgi $psgi, sub { my $res = $cb->(GET "/root/classic_error"); is $res->code, 500; like $res->content, qr'Ex Parrot', 'Ex Parrot'; + like $res->content, qr'HTTPExceptions', 'HTTPExceptions'; }; test_psgi $psgi, sub { @@ -111,6 +118,7 @@ test_psgi $psgi, sub { my $res = $cb->(GET "/root/just_die"); is $res->code, 500; like $res->content, qr'not dead yet', 'not dead yet'; + like $res->content, qr'HTTPExceptions', 'HTTPExceptions'; }; @@ -119,5 +127,5 @@ test_psgi $psgi, sub { # in the callbacks might never get run (thus all ran tests pass but not all # required tests run). -done_testing(10); +done_testing(14);