oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Add missing Middleware for handling HTTP::Exceptions.

Browse source
This commit is contained in:
Colin Kuskie 2010-06-23 08:41:18 -07:00
parent e1f06880a0
commit 5b8cfe7a38
1 changed files with 23 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

26
t/Exception/app.t
View file

@ -7,18 +7,20 @@ use WebGUI::Test;
use Plack::Test; use Plack::Test;
use Plack::Builder; use Plack::Builder;
use HTTP::Request::Common; use HTTP::Request::Common;
use Test::More tests => 9; use Test::More;
use HTTP::Exception; use HTTP::Exception;
my $wg = WebGUI->new(config => WebGUI::Test->config); my $wg = WebGUI->new(config => WebGUI::Test->config);
my $regular_app = builder { my $regular_app = builder {
enable '+WebGUI::Middleware::Session', config => $wg->config; enable '+WebGUI::Middleware::Session', config => $wg->config;
enable '+WebGUI::Middleware::HTTPExceptions';
$wg; $wg;
}; };
my $generic_dead_app = builder { my $generic_dead_app = builder {
enable '+WebGUI::Middleware::Session', config => $wg->config; enable '+WebGUI::Middleware::Session', config => $wg->config;
enable '+WebGUI::Middleware::HTTPExceptions';
# Pretend that WebGUI dies during request handling # Pretend that WebGUI dies during request handling
sub { die 'WebGUI died' } sub { die 'WebGUI died' }
@ -26,13 +28,15 @@ my $generic_dead_app = builder {
my $specific_dead_app = builder { my $specific_dead_app = builder {
enable '+WebGUI::Middleware::Session', config => $wg->config; enable '+WebGUI::Middleware::Session', config => $wg->config;
enable '+WebGUI::Middleware::HTTPExceptions';
# Pretend that WebGUI throws a '501 - Not Implemented' HTTP error # Pretend that WebGUI throws a '501 - Not Implemented' HTTP error
sub { HTTP::Exception::501->throw } sub { HTTP::Exception->throw(501) }
}; };
my $fatal_app = builder { my $fatal_app = builder {
enable '+WebGUI::Middleware::Session', config => $wg->config; enable '+WebGUI::Middleware::Session', config => $wg->config;
enable '+WebGUI::Middleware::HTTPExceptions';
# Pretend that WebGUI calls $session->log->fatal during request handling # Pretend that WebGUI calls $session->log->fatal during request handling
sub { sub {
@ -42,9 +46,17 @@ my $fatal_app = builder {
} }
}; };
my $not_found_app = builder {
enable '+WebGUI::Middleware::Session', config => $wg->config;
enable '+WebGUI::Middleware::HTTPExceptions';
sub { HTTP::Exception->throw(404) }
};
test_psgi $regular_app, sub { test_psgi $regular_app, sub {
my $cb = shift; my $cb = shift;
my $res = $cb->( GET "/" ); my $res = $cb->( GET "/" );
is $res->code, 200, 'regular app, status code';
like $res->content, qr/My Company/, 'testing regular app'; like $res->content, qr/My Company/, 'testing regular app';
}; };
@ -64,13 +76,20 @@ test_psgi $specific_dead_app, sub {
is $res->content, 'Not Implemented', '... status description'; # how apt is $res->content, 'Not Implemented', '... status description'; # how apt
}; };
test_psgi $not_found_app, sub {
my $cb = shift;
my $res = $cb->( GET "/" );
is $res->code, 404, 'not found app, status code';
is $res->content, 'Not Found', '... status description'; # how apt
};
test_psgi $fatal_app, sub { test_psgi $fatal_app, sub {
my $cb = shift; my $cb = shift;
my $res = $cb->( GET "/" ); my $res = $cb->( GET "/" );
is $res->code, 500, 'fatal app, status code'; is $res->code, 500, 'fatal app, status code';
# WebGUI doesn't know who you are, so it displays the generic error page # WebGUI doesn't know who you are, so it displays the generic error page
like $res->content, qr/Problem With Request/, '... status description'; like $res->content, qr/Fatally yours/, '... status description is $@ stringified from the logged fatal';
}; };
test_psgi $fatal_app, sub { test_psgi $fatal_app, sub {
@ -84,3 +103,4 @@ test_psgi $fatal_app, sub {
like $res->content, qr/Fatally yours/, '... status description'; like $res->content, qr/Fatally yours/, '... status description';
}; };
done_testing;