1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138
|
use warnings;
use strict;
use Test::More;
use HTTP::Request::Common;
use HTTP::Message::PSGI;
use Plack::Util;
use Plack::Test;
# Test to make sure HTTP style exceptions do NOT bubble up to the middleware
# if the backcompat setting 'always_catch_http_exceptions' is enabled.
{
package MyApp::Exception;
sub new {
my ($class, $code, $headers, $body) = @_;
return bless +{res => [$code, $headers, $body]}, $class;
}
sub throw { die shift->new(@_) }
sub as_psgi {
my ($self, $env) = @_;
my ($code, $headers, $body) = @{$self->{res}};
return [$code, $headers, $body]; # for now
return sub {
my $responder = shift;
$responder->([$code, $headers, $body]);
};
}
package MyApp::AnotherException;
sub new { bless +{}, shift }
sub code { 400 }
sub as_string { 'bad stringy bad' }
package MyApp::Controller::Root;
use base 'Catalyst::Controller';
my $psgi_app = sub {
my $env = shift;
die MyApp::Exception->new(
404, ['content-type'=>'text/plain'], ['Not Found']);
};
sub from_psgi_app :Local {
my ($self, $c) = @_;
$c->res->from_psgi_response(
$psgi_app->(
$c->req->env));
}
sub from_catalyst :Local {
my ($self, $c) = @_;
MyApp::Exception->throw(
403, ['content-type'=>'text/plain'], ['Forbidden']);
}
sub from_code_type :Local {
my $e = MyApp::AnotherException->new;
die $e;
}
sub classic_error :Local {
my ($self, $c) = @_;
Catalyst::Exception->throw("Ex Parrot");
}
sub just_die :Local {
my ($self, $c) = @_;
die "I'm not dead yet";
}
package MyApp;
use Catalyst;
MyApp->config(
abort_chain_on_error_fix=>1,
always_catch_http_exceptions=>1,
);
sub debug { 1 }
MyApp->setup_log('fatal');
}
$INC{'MyApp/Controller/Root.pm'} = __FILE__; # sorry...
MyApp->setup_log('error');
Test::More::ok(MyApp->setup);
ok my $psgi = MyApp->psgi_app;
test_psgi $psgi, sub {
my $cb = shift;
my $res = $cb->(GET "/root/from_psgi_app");
is $res->code, 500;
like $res->content, qr/MyApp::Exception=HASH/;
};
test_psgi $psgi, sub {
my $cb = shift;
my $res = $cb->(GET "/root/from_catalyst");
is $res->code, 500;
like $res->content, qr/MyApp::Exception=HASH/;
};
test_psgi $psgi, sub {
my $cb = shift;
my $res = $cb->(GET "/root/from_code_type");
is $res->code, 500;
like $res->content, qr/MyApp::AnotherException=HASH/;
};
test_psgi $psgi, sub {
my $cb = shift;
my $res = $cb->(GET "/root/classic_error");
is $res->code, 500;
like $res->content, qr'Ex Parrot', 'Ex Parrot';
};
test_psgi $psgi, sub {
my $cb = shift;
my $res = $cb->(GET "/root/just_die");
is $res->code, 500;
like $res->content, qr'not dead yet', 'not dead yet';
};
# We need to specify the number of expected tests because tests that live
# in the callbacks might never get run (thus all ran tests pass but not all
# required tests run).
done_testing(12);
|