From 8b71032a980c70a33912966fd20e1d3522cd9c78 Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Wed, 2 Jan 2008 21:08:48 +0000
Subject: [PATCH] add more diagnostics to help find the leaking session.  These
 will be removed or hidden behind conditionals later

---
 t/lib/WebGUI/Test.pm | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/t/lib/WebGUI/Test.pm b/t/lib/WebGUI/Test.pm
index 89af2bbdc..149afa788 100644
--- a/t/lib/WebGUI/Test.pm
+++ b/t/lib/WebGUI/Test.pm
@@ -106,6 +106,9 @@ BEGIN {
 }
 
 END {
+    my $Test = Test::Builder->new;
+    $Test->diag('Sessions: '.$SESSION->db->quickScalar('select count(*) from userSession'));
+    $Test->diag('Scratch : '.$SESSION->db->quickScalar('select count(*) from userSessionScratch'));
     $SESSION->var->end;
     $SESSION->close if defined $SESSION;
 }