From 546d48f68b999f64aa035d2c057ea0985773c535 Mon Sep 17 00:00:00 2001
From: Patrick Donelan <pat@patspam.com>
Date: Thu, 9 Apr 2009 04:17:23 +0000
Subject: [PATCH] Updated Survey tests to not leave behind versionTag

---
 t/Asset/Wobject/Survey/ExpressionEngine.t | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/t/Asset/Wobject/Survey/ExpressionEngine.t b/t/Asset/Wobject/Survey/ExpressionEngine.t
index a47ad2bbe..b42d0fbd0 100644
--- a/t/Asset/Wobject/Survey/ExpressionEngine.t
+++ b/t/Asset/Wobject/Survey/ExpressionEngine.t
@@ -29,7 +29,7 @@ plan tests => $tests + 1;
 # put your tests here
 
 my $usedOk = use_ok('WebGUI::Asset::Wobject::Survey::ExpressionEngine');
-my ($user, $survey);
+my ($user, $survey, $versionTag);
 SKIP: {
 
     skip $tests, "Unable to load ExpressionEngine" unless $usedOk;
@@ -116,6 +116,7 @@ SKIP: {
     my $user = WebGUI::User->new( $session, 'new' );
     
     # Create a Survey
+    $versionTag = WebGUI::VersionTag->getWorking($session);
     my $survey = WebGUI::Asset->getImportNode($session)->addChild(
         {   className                => 'WebGUI::Asset::Wobject::Survey',
         },
@@ -167,4 +168,5 @@ SKIP: {
 END { 
     $user->delete if $user;
     $survey->purge if $survey;
+    $versionTag->rollback if $versionTag;
 }