oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fixed SurveyJSON->questions which was short-changing getGotoTargets

Browse source
This commit is contained in:
Patrick Donelan 2009-04-02 05:55:23 +00:00
parent 57dae409c7
commit c1ac5b9761
2 changed files with 34 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

27
t/Asset/Wobject/Survey/SurveyJSON.t
View file

@ -22,7 +22,7 @@ my $session = WebGUI::Test->session;
#----------------------------------------------------------------------------
# Tests
my $tests = 132;
my $tests = 139;
plan tests => $tests + 1 + 3;
#----------------------------------------------------------------------------
@ -2002,7 +2002,30 @@ cmp_deeply(
####################################################
#
# totalSections
# questions
#
####################################################
{
my $s = WebGUI::Asset::Wobject::Survey::SurveyJSON->new($session, '{}');
# Add a new section
my $address = $s->newObject([]);
cmp_deeply($s->questions, [], 'Initially no questions');
# Add a question to first section
$address = $s->newObject([0]);
is(scalar @{$s->questions}, 1, '..now 1 question');
is(scalar @{$s->questions([0])}, 1, '..in the first section');
is($s->questions([2]), undef, '..and none in the second section (which doesnt even exist)');
# Add a question to second section
$address = $s->newObject([1]);
is(scalar @{$s->questions}, 2, '..now 2 question2');
is(scalar @{$s->questions([0])}, 1, '..1 in the first section');
is(scalar @{$s->questions([1])}, 1, '..1 in the second section');
}
####################################################
#
# totalSections, totalQuestions, totalAnswers
#
####################################################
{