From 073623b366ff6798871e393b437773256034bfb7 Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Thu, 10 Jun 2010 19:25:37 -0700
Subject: [PATCH] change to surveyJSON accessor.  => getSurveyJSON.  This
 should probably be completely reworked to use some kind of object delegation.

---
 t/Asset/Wobject/Survey/Test.t | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/t/Asset/Wobject/Survey/Test.t b/t/Asset/Wobject/Survey/Test.t
index dfdb1919d..d563c810e 100644
--- a/t/Asset/Wobject/Survey/Test.t
+++ b/t/Asset/Wobject/Survey/Test.t
@@ -28,10 +28,6 @@ my ( $s, $t1 );
 my $tp = use_ok('TAP::Parser');
 my $tpa = use_ok('TAP::Parser::Aggregator');
 
-SKIP: {
-
-skip "Unable to load TAP::Parser and TAP::Parser::Aggregator", 88 unless $tp && $tpa;
-
 #----------------------------------------------------------------------------
 # put your tests here
 use_ok('WebGUI::Asset::Wobject::Survey::Test');
@@ -46,7 +42,12 @@ $session->config->set('enableSurveyExpressionEngine', 1);
 $s = $import_node->addChild( { className => 'WebGUI::Asset::Wobject::Survey', } );
 isa_ok( $s, 'WebGUI::Asset::Wobject::Survey' );
 
-my $sJSON = $s->surveyJSON;
+my $tag = WebGUI::VersionTag->getWorking($session);
+$tag->commit;
+WebGUI::Test->addToCleanup($tag);
+$s = $s->cloneFromDb;
+
+my $sJSON = $s->getSurveyJSON;
 
 # N.B. Survey starts off with a single empty section (S0)
 
@@ -724,7 +725,6 @@ Hashes differ on element: a
    got : '1'
 expect : '2'
 END_CMP
-}
 
 #----------------------------------------------------------------------------
 # Cleanup