From 5876dec8de59e355bb0c925e90d88b6e429dc9cf Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Fri, 25 Sep 2009 17:54:07 -0700
Subject: [PATCH] Clean up Sessions that are built for testing.

---
 t/VersionTag.t | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/t/VersionTag.t b/t/VersionTag.t
index d96638a01..ee752a766 100644
--- a/t/VersionTag.t
+++ b/t/VersionTag.t
@@ -216,6 +216,7 @@ is($siteWideTag->getId(), $siteWideTagId, 'versionTagMode siteWide: reclaim site
 ## Through in a new session as different user
 my $admin_session = WebGUI::Session->open($WebGUI::Test::WEBGUI_ROOT, $WebGUI::Test::CONFIG_FILE);
 $admin_session->user({'userId' => 3});
+WebGUI::Test->sessionsToDelete($admin_session);
 
 setUserVersionTagMode($admin_session->user(), q{singlePerUser});
 
@@ -279,6 +280,7 @@ $adminUserTag->rollback();
 
     # create admin session
     my $admin_session = WebGUI::Session->open($WebGUI::Test::WEBGUI_ROOT, $WebGUI::Test::CONFIG_FILE);
+    WebGUI::Test->sessionsToDelete($admin_session);
     $admin_session->user({'userId' => 3});
 
     setUserVersionTagMode($admin_session->user(), q{autoCommit});
@@ -330,6 +332,7 @@ $adminUserTag->rollback();
 
     # create admin session
     $admin_session = WebGUI::Session->open($WebGUI::Test::WEBGUI_ROOT, $WebGUI::Test::CONFIG_FILE);
+    WebGUI::Test->sessionsToDelete($admin_session);
     $admin_session->user({'userId' => 3});
 
     setUserVersionTagMode($admin_session->user(), q{autoCommit});