From fc6fe216b0e8cd49bbd598b21f709769ed8f079c Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Sat, 5 Jan 2008 02:22:05 +0000
Subject: [PATCH] Keep the session tracking, but hide it behind an environment
 variable to keep the line noise down.  Also, add user and group tracking.

---
 t/lib/WebGUI/Test.pm | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/t/lib/WebGUI/Test.pm b/t/lib/WebGUI/Test.pm
index 149afa788..139a6f9aa 100644
--- a/t/lib/WebGUI/Test.pm
+++ b/t/lib/WebGUI/Test.pm
@@ -107,8 +107,12 @@ 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'));
+    if ($ENV{WEBGUI_TEST_DEBUG}) {
+        $Test->diag('Sessions: '.$SESSION->db->quickScalar('select count(*) from userSession'));
+        $Test->diag('Scratch : '.$SESSION->db->quickScalar('select count(*) from userSessionScratch'));
+        $Test->diag('Users   : '.$SESSION->db->quickScalar('select count(*) from users'));
+        $Test->diag('Groups  : '.$SESSION->db->quickScalar('select count(*) from groups'));
+    }
     $SESSION->var->end;
     $SESSION->close if defined $SESSION;
 }