From cd0986ecdfc7aced590489936020f1f076cf423f Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Fri, 19 Nov 2010 11:51:09 -0800
Subject: [PATCH] Fix session leak from this test.

---
 t/Exception/app.t | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/t/Exception/app.t b/t/Exception/app.t
index 29d74f1e5..cb8519abc 100644
--- a/t/Exception/app.t
+++ b/t/Exception/app.t
@@ -6,6 +6,7 @@ use Plack::Test;
 use Plack::Builder;
 use HTTP::Request::Common;
 use Test::More;
+use WebGUI::Test::Mechanize;
 use HTTP::Exception;
 
 my $wg = WebGUI->new(config => WebGUI::Test->config);
@@ -59,6 +60,12 @@ test_psgi $regular_app, sub {
     my $res = $cb->( GET "/" );
     is $res->code, 200, 'regular app, status code';
     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,