From 8d85912da7285f7093c89c0b5c2b1f94d3b4e848 Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Fri, 4 Jun 2010 10:17:16 -0700
Subject: [PATCH] Commit the initial Survey for the test.

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

diff --git a/t/Asset/Wobject/Survey.t b/t/Asset/Wobject/Survey.t
index 8548b093c..1aa6125a7 100644
--- a/t/Asset/Wobject/Survey.t
+++ b/t/Asset/Wobject/Survey.t
@@ -32,7 +32,9 @@ my $import_node = WebGUI::Asset->getImportNode($session);
 # Create a Survey
 $survey = $import_node->addChild( { className => 'WebGUI::Asset::Wobject::Survey', } );
 my $tag = WebGUI::VersionTag->getWorking($session);
-WebGUI::Test->assetsToPurge($survey);
+$tag->commit;
+$survey = $survey->cloneFromDb;
+WebGUI::Test->addToCleanup($survey);
 isa_ok($survey, 'WebGUI::Asset::Wobject::Survey');
 
 my $sJSON = $survey->surveyJSON;