Keep the session tracking, but hide it behind an environment

variable to keep the line noise down.  Also, add user and
group tracking.
This commit is contained in:
Colin Kuskie 2008-01-05 02:22:05 +00:00
parent 43bf612cdb
commit fc6fe216b0

View file

@ -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;
}