Purge tests before cleaning up version tags. Fix a leaky test.

This commit is contained in:
Colin Kuskie 2009-09-04 19:59:26 -07:00
parent 0cbc4eece1
commit 8fd0be0dc4
2 changed files with 6 additions and 4 deletions

View file

@ -186,6 +186,9 @@ END {
$session->var->end;
$session->close;
}
ASSET: foreach my $asset (@assetsToPurge) {
$asset->purge;
}
TAG: foreach my $tag (@tagsToRollback) {
$tag->rollback;
}
@ -208,9 +211,6 @@ END {
$workflow->delete;
}
ASSET: foreach my $asset (@assetsToPurge) {
$asset->purge;
}
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'));