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

Session cleanup for t/Exception/app.t

Browse source
This commit is contained in:
Colin Kuskie 2010-06-24 10:52:43 -07:00
parent d6be3a1182
commit 808f38b2a6
1 changed files with 7 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

11
t/Exception/app.t
View file

@ -19,7 +19,6 @@ my $regular_app = builder {
};
my $generic_dead_app = builder {
enable '+WebGUI::Middleware::Session', config => $wg->config;
enable '+WebGUI::Middleware::HTTPExceptions';
# Pretend that WebGUI dies during request handling
@ -27,11 +26,10 @@ my $generic_dead_app = builder {
};
my $specific_dead_app = builder {
enable '+WebGUI::Middleware::Session', config => $wg->config;
enable '+WebGUI::Middleware::HTTPExceptions';
# Pretend that WebGUI throws a '501 - Not Implemented' HTTP error
sub { HTTP::Exception->throw(501) }
sub { HTTP::Exception->throw(501) };
};
my $fatal_app = builder {
@ -42,6 +40,7 @@ my $fatal_app = builder {
sub {
my $env = shift;
WebGUI::Test->addToCleanup($env->{'webgui.session'});
$env->{'webgui.session'}->log->fatal('Fatally yours');
}
};
@ -50,7 +49,11 @@ my $not_found_app = builder {
enable '+WebGUI::Middleware::Session', config => $wg->config;
enable '+WebGUI::Middleware::HTTPExceptions';
sub { HTTP::Exception->throw(404) }
sub {
my $env = shift;
WebGUI::Test->addToCleanup($env->{'webgui.session'});
HTTP::Exception->throw(404)
};
};
test_psgi $regular_app, sub {