change to surveyJSON accessor. => getSurveyJSON. This should probably be completely reworked to use some kind of object delegation.

This commit is contained in:
Colin Kuskie 2010-06-10 19:25:37 -07:00
parent d439f32270
commit 073623b366

View file

@ -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