add more diagnostics to help find the leaking session. These will be removed or hidden behind conditionals later

This commit is contained in:
Colin Kuskie 2008-01-02 21:08:48 +00:00
parent 3a33baee4e
commit 8b71032a98

View file

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