Yet more END block cleanups.

This commit is contained in:
Colin Kuskie 2010-06-15 16:40:06 -07:00
parent 9bc7208c48
commit fecc2bec54
11 changed files with 32 additions and 69 deletions

View file

@ -31,6 +31,8 @@ plan tests => 1 + $numTests;
my $loaded = use_ok('WebGUI::PassiveProfiling');
my $versionTag = WebGUI::VersionTag->getWorking($session);
WebGUI::Test->addToCleanup(SQL => ['delete from passiveProfileLog where dateOfEntry >= ?', $startingTime-1]);
WebGUI::Test->addToCleanup($versionTag);
my $home = WebGUI::Asset->getDefault($session);
my $pageProperties = {
@ -120,7 +122,4 @@ cmp_bag(
}
END {
$session->db->write('delete from passiveProfileLog where dateOfEntry >= ?',[$startingTime-1]);
$versionTag->rollback;
}
#vim:ft=perl