From d6be3a1182e83234ec058c12d6ce8bdaa6876084 Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Thu, 24 Jun 2010 10:51:36 -0700
Subject: [PATCH] Enable optional, verbose test debug output.

---
 t/lib/WebGUI/Test.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/t/lib/WebGUI/Test.pm b/t/lib/WebGUI/Test.pm
index 1db198160..064321e85 100644
--- a/t/lib/WebGUI/Test.pm
+++ b/t/lib/WebGUI/Test.pm
@@ -123,7 +123,7 @@ sub _initSession {
                 my ($label, $table) = @checkCount[$i, $i+1];
                 my $quant = $session->db->quickScalar('SELECT COUNT(*) FROM ' . $table);
                 my $delta = $quant - $initCounts{$table};
-                if ($delta) {
+                if ($delta || $ENV{WEBGUI_TEST_DEBUG} eq 2) {
                     $CLASS->builder->diag(sprintf '%-24s: %4d (delta %+d)', $label, $quant, $delta);
                 }
             }