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

Fix session leak from this test.

Browse source
This commit is contained in:
Colin Kuskie 2010-11-19 11:51:09 -08:00
parent d02472cfa6
commit cd0986ecdf
1 changed files with 7 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

7
t/Exception/app.t
View file

@ -6,6 +6,7 @@ use Plack::Test;
use Plack::Builder; use Plack::Builder;
use HTTP::Request::Common; use HTTP::Request::Common;
use Test::More; use Test::More;
use WebGUI::Test::Mechanize;
use HTTP::Exception; use HTTP::Exception;
my $wg = WebGUI->new(config => WebGUI::Test->config); my $wg = WebGUI->new(config => WebGUI::Test->config);
@ -59,6 +60,12 @@ test_psgi $regular_app, sub {
my $res = $cb->( GET "/" ); my $res = $cb->( GET "/" );
is $res->code, 200, 'regular app, status code'; 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';
use Data::Dumper;
my ($sessionId) = $res->header('Set-Cookie') =~ /wgSession=(\w{22})/;
if ($sessionId) {
my $session = WebGUI::Session->open(WebGUI::Test->config, undef, $sessionId);
$session->end;
}
}; };
# N.B. The die() is caught thanks to WebGUI::Middleware::HTTPExceptions, # N.B. The die() is caught thanks to WebGUI::Middleware::HTTPExceptions,