Added Survey tests for more question types
This commit is contained in:
Patrick Donelan
parent
83497b773e
commit
d14cf19e9d
7 changed files with 209 additions and 95 deletions
|
|
@ -38,28 +38,31 @@ $import_node = WebGUI::Asset->getImportNode($session);
|
|||
$survey = $import_node->addChild( { className => 'WebGUI::Asset::Wobject::Survey', } );
|
||||
isa_ok($survey, 'WebGUI::Asset::Wobject::Survey');
|
||||
|
||||
my $sJSON = $survey->surveyJSON;
|
||||
|
||||
# Load bare-bones survey, containing a single section (S0)
|
||||
$survey->surveyJSON_update([0], { variable => 'S0' });
|
||||
$sJSON->update([0], { variable => 'S0' });
|
||||
|
||||
# Add 2 questions to S0
|
||||
$survey->surveyJSON_newObject([0]); # S0Q0
|
||||
$survey->surveyJSON_update([0,0], { variable => 'S0Q0', questionType => 'Yes/No' });
|
||||
$survey->surveyJSON_newObject([0]); # S0Q1
|
||||
$survey->surveyJSON_update([0,1], { variable => 'S0Q1', questionType => 'Yes/No' });
|
||||
$sJSON->newObject([0]); # S0Q0
|
||||
$sJSON->update([0,0], { variable => 'S0Q0', questionType => 'Yes/No' });
|
||||
$sJSON->newObject([0]); # S0Q1
|
||||
$sJSON->update([0,1], { variable => 'S0Q1', questionType => 'Yes/No' });
|
||||
|
||||
# Add a new section (S1)
|
||||
$survey->surveyJSON_newObject([]); # S1
|
||||
$survey->surveyJSON_update([1], { variable => 'S1' });
|
||||
$sJSON->newObject([]); # S1
|
||||
$sJSON->update([1], { variable => 'S1' });
|
||||
|
||||
# Add 2 questions to S1
|
||||
$survey->surveyJSON_newObject([1]); # S1Q0
|
||||
$survey->surveyJSON_update([1,0], { variable => 'S1Q0' });
|
||||
$survey->surveyJSON_newObject([1]); # S1Q1
|
||||
$survey->surveyJSON_update([1,1], { variable => 'S1Q1' });
|
||||
$sJSON->newObject([1]); # S1Q0
|
||||
$sJSON->update([1,0], { variable => 'S1Q0' });
|
||||
$sJSON->newObject([1]); # S1Q1
|
||||
$sJSON->update([1,1], { variable => 'S1Q1' });
|
||||
|
||||
$survey->persistSurveyJSON;
|
||||
|
||||
# Now start a response as admin user
|
||||
$session->user( { userId =>3 } );
|
||||
$survey->responseIdCookies(0);
|
||||
|
||||
my $responseId = $survey->responseId;
|
||||
my $s = WebGUI::Asset::Wobject::Survey->newByResponseId($session, $responseId);
|
||||
|
|
@ -73,7 +76,6 @@ $s->surveyEnd();
|
|||
# Uncache canTake
|
||||
delete $s->{canTake};
|
||||
delete $s->{responseId};
|
||||
$s->responseIdCookies(0);
|
||||
ok(!$s->canTakeSurvey, 'Cannot take survey a second time (maxResponsesPerUser=1)');
|
||||
cmp_deeply($s->responseId, undef, '..and similarly cannot get responseId');
|
||||
|
||||
|
|
|
|||
|
|
@ -214,7 +214,6 @@ SKIP: {
|
|||
$survey->surveyJSON->answer([0,1,0])->{recordedAnswer} = 'ext_s0q1a0';
|
||||
$survey->surveyJSON->answer([0,1,0])->{value} = 50; # worth 50 points
|
||||
|
||||
$survey->responseIdCookies(0); # disable cookies so that test code doesn't die
|
||||
my $responseId = $survey->responseId($user->userId);
|
||||
|
||||
my $rJSON = $survey->responseJSON(undef, $responseId);
|
||||
|
|
|
|||
|
|
@ -22,7 +22,7 @@ my $session = WebGUI::Test->session;
|
|||
|
||||
#----------------------------------------------------------------------------
|
||||
# Tests
|
||||
my $tests = 104;
|
||||
my $tests = 114;
|
||||
plan tests => $tests + 1;
|
||||
|
||||
#----------------------------------------------------------------------------
|
||||
|
|
@ -749,6 +749,106 @@ is($rJSON->pop, undef, 'additional pop has no effect');
|
|||
$rJSON = WebGUI::Asset::Wobject::Survey::ResponseJSON->new(buildSurveyJSON($session));
|
||||
|
||||
# Use Section 1 (containing 2 questions) for testing. This allows us to test 2 different responses at once.
|
||||
########
|
||||
# Country
|
||||
for my $q (0,1) {
|
||||
$rJSON->survey->updateQuestionAnswers([1,$q], 'Country');
|
||||
$rJSON->survey->answer([1,$q,0])->{recordedAnswer} = '-';
|
||||
}
|
||||
$rJSON->reset;
|
||||
$rJSON->lastResponse(2);
|
||||
$rJSON->recordResponses( {
|
||||
'1-0-0' => 'Australia',
|
||||
'1-1-0' => 'JTville',
|
||||
});
|
||||
cmp_deeply(
|
||||
$rJSON->responses->{'1-0-0'},
|
||||
{
|
||||
'verbatim' => undef,
|
||||
'comment' => undef,
|
||||
'time' => num(time(), 3),
|
||||
'value' => 'Australia'
|
||||
},
|
||||
'Valid value recorded correctly'
|
||||
);
|
||||
is($rJSON->responses->{'1-1-0'}, undef, 'Invalid country ignored');
|
||||
|
||||
########
|
||||
# Date
|
||||
for my $q (0,1) {
|
||||
$rJSON->survey->updateQuestionAnswers([1,$q], 'Date');
|
||||
$rJSON->survey->answer([1,$q,0])->{recordedAnswer} = '-';
|
||||
}
|
||||
$rJSON->reset;
|
||||
$rJSON->lastResponse(2);
|
||||
$rJSON->recordResponses( {
|
||||
'1-0-0' => '2009/05/01',
|
||||
'1-1-0' => '12345',
|
||||
});
|
||||
cmp_deeply(
|
||||
$rJSON->responses->{'1-0-0'},
|
||||
{
|
||||
'verbatim' => undef,
|
||||
'comment' => undef,
|
||||
'time' => num(time(), 3),
|
||||
'value' => '2009/05/01'
|
||||
},
|
||||
'Valid value recorded correctly'
|
||||
);
|
||||
is($rJSON->responses->{'1-1-0'}, undef, 'Invalid date ignored');
|
||||
|
||||
########
|
||||
# Number
|
||||
for my $q (0,1) {
|
||||
$rJSON->survey->updateQuestionAnswers([1,$q], 'Number');
|
||||
$rJSON->survey->answer([1,$q,0])->{recordedAnswer} = '-';
|
||||
$rJSON->survey->answer([1,$q,0])->{min} = '-5';
|
||||
$rJSON->survey->answer([1,$q,0])->{max} = '10';
|
||||
}
|
||||
$rJSON->reset;
|
||||
$rJSON->lastResponse(2);
|
||||
$rJSON->recordResponses( {
|
||||
'1-0-0' => '-3',
|
||||
'1-1-0' => '11',
|
||||
});
|
||||
cmp_deeply(
|
||||
$rJSON->responses->{'1-0-0'},
|
||||
{
|
||||
'verbatim' => undef,
|
||||
'comment' => undef,
|
||||
'time' => num(time(), 3),
|
||||
'value' => '-3'
|
||||
},
|
||||
'Valid value recorded correctly'
|
||||
);
|
||||
is($rJSON->responses->{'1-1-0'}, undef, 'Invalid number ignored');
|
||||
|
||||
########
|
||||
# Slider
|
||||
for my $q (0,1) {
|
||||
$rJSON->survey->updateQuestionAnswers([1,$q], 'Slider');
|
||||
$rJSON->survey->answer([1,$q,0])->{recordedAnswer} = '-';
|
||||
$rJSON->survey->answer([1,$q,0])->{min} = '-5';
|
||||
$rJSON->survey->answer([1,$q,0])->{max} = '10';
|
||||
$rJSON->survey->answer([1,$q,0])->{step} = '1';
|
||||
}
|
||||
$rJSON->reset;
|
||||
$rJSON->lastResponse(2);
|
||||
$rJSON->recordResponses( {
|
||||
'1-0-0' => '-3',
|
||||
'1-1-0' => '11',
|
||||
});
|
||||
cmp_deeply(
|
||||
$rJSON->responses->{'1-0-0'},
|
||||
{
|
||||
'verbatim' => undef,
|
||||
'comment' => undef,
|
||||
'time' => num(time(), 3),
|
||||
'value' => '-3'
|
||||
},
|
||||
'Valid value recorded correctly'
|
||||
);
|
||||
is($rJSON->responses->{'1-1-0'}, undef, 'Invalid slider value ignored');
|
||||
|
||||
########
|
||||
# Yes/No
|
||||
|
|
@ -785,6 +885,41 @@ cmp_deeply(
|
|||
'No recorded correctly'
|
||||
);
|
||||
|
||||
########
|
||||
# True/False
|
||||
$rJSON->survey->updateQuestionAnswers([1,0], 'True/False');
|
||||
$rJSON->survey->updateQuestionAnswers([1,1], 'True/False');
|
||||
for my $q (0,1) {
|
||||
$rJSON->survey->answer([1,$q,0])->{recordedAnswer} = 'True';
|
||||
$rJSON->survey->answer([1,$q,1])->{recordedAnswer} = 'False';
|
||||
}
|
||||
$rJSON->reset;
|
||||
$rJSON->lastResponse(2);
|
||||
$rJSON->recordResponses( {
|
||||
'1-0-0' => 1, # Multi-choice answers are submitted like this,
|
||||
'1-1-1' => 1, # with the selected answer set to 1
|
||||
});
|
||||
cmp_deeply(
|
||||
$rJSON->responses->{'1-0-0'},
|
||||
{
|
||||
'verbatim' => undef,
|
||||
'comment' => undef,
|
||||
'time' => num(time(), 3),
|
||||
'value' => 'True'
|
||||
},
|
||||
'True recorded correctly'
|
||||
);
|
||||
cmp_deeply(
|
||||
$rJSON->responses->{'1-1-1'},
|
||||
{
|
||||
'verbatim' => undef,
|
||||
'comment' => undef,
|
||||
'time' => num(time(), 3),
|
||||
'value' => 'False'
|
||||
},
|
||||
'False recorded correctly'
|
||||
);
|
||||
|
||||
####################################################
|
||||
#
|
||||
# logical sections
|
||||
|
|
|
|||
|
|
@ -37,74 +37,76 @@ my $import_node = WebGUI::Asset->getImportNode($session);
|
|||
$s = $import_node->addChild( { className => 'WebGUI::Asset::Wobject::Survey', } );
|
||||
isa_ok( $s, 'WebGUI::Asset::Wobject::Survey' );
|
||||
|
||||
$s->responseIdCookies(0);
|
||||
my $sJSON = $s->surveyJSON;
|
||||
|
||||
# N.B. Survey starts off with a single empty section (S0)
|
||||
|
||||
# Add some sections and questions
|
||||
$s->surveyJSON_newObject( [] ); # S1
|
||||
$s->surveyJSON_newObject( [] ); # S2
|
||||
$s->surveyJSON_newObject( [] ); # S3
|
||||
$s->surveyJSON_newObject( [] ); # S4
|
||||
$s->surveyJSON_newObject( [] ); # S5
|
||||
$s->surveyJSON_newObject( [] ); # S6
|
||||
$sJSON->newObject( [] ); # S1
|
||||
$sJSON->newObject( [] ); # S2
|
||||
$sJSON->newObject( [] ); # S3
|
||||
$sJSON->newObject( [] ); # S4
|
||||
$sJSON->newObject( [] ); # S5
|
||||
$sJSON->newObject( [] ); # S6
|
||||
|
||||
# Name the sections
|
||||
for my $sIndex (0..6) {
|
||||
$s->surveyJSON_update( [$sIndex], { variable => "S$sIndex" } );
|
||||
$sJSON->update( [$sIndex], { variable => "S$sIndex" } );
|
||||
}
|
||||
|
||||
# ..and now some questions
|
||||
$s->surveyJSON_newObject( [0] ); # S0Q0
|
||||
$s->surveyJSON_newObject( [1] ); # S1Q0
|
||||
$s->surveyJSON_newObject( [2] ); # S2Q0
|
||||
$s->surveyJSON_newObject( [3] ); # S3Q0
|
||||
$s->surveyJSON_newObject( [3] ); # S3Q1
|
||||
$s->surveyJSON_newObject( [3] ); # S3Q2
|
||||
$s->surveyJSON_newObject( [4] ); # S4Q0
|
||||
$s->surveyJSON_newObject( [5] ); # S5Q0
|
||||
$s->surveyJSON_newObject( [5] ); # S5Q1
|
||||
$s->surveyJSON_newObject( [5] ); # S5Q2
|
||||
$sJSON->newObject( [0] ); # S0Q0
|
||||
$sJSON->newObject( [1] ); # S1Q0
|
||||
$sJSON->newObject( [2] ); # S2Q0
|
||||
$sJSON->newObject( [3] ); # S3Q0
|
||||
$sJSON->newObject( [3] ); # S3Q1
|
||||
$sJSON->newObject( [3] ); # S3Q2
|
||||
$sJSON->newObject( [4] ); # S4Q0
|
||||
$sJSON->newObject( [5] ); # S5Q0
|
||||
$sJSON->newObject( [5] ); # S5Q1
|
||||
$sJSON->newObject( [5] ); # S5Q2
|
||||
|
||||
# Name the questions
|
||||
$s->surveyJSON_update( [ 0, 0 ], { variable => 'S0Q0' } );
|
||||
$s->surveyJSON_update( [ 1, 0 ], { variable => 'S1Q0' } );
|
||||
$s->surveyJSON_update( [ 2, 0 ], { variable => 'S2Q0' } );
|
||||
$s->surveyJSON_update( [ 3, 0 ], { variable => 'S3Q0' } );
|
||||
$s->surveyJSON_update( [ 3, 1 ], { variable => 'S3Q1' } );
|
||||
$s->surveyJSON_update( [ 3, 2 ], { variable => 'S3Q2' } );
|
||||
$s->surveyJSON_update( [ 4, 0 ], { variable => 'S4Q0' } );
|
||||
$s->surveyJSON_update( [ 5, 0 ], { variable => 'S5Q0' } );
|
||||
$s->surveyJSON_update( [ 5, 1 ], { variable => 'S5Q1' } );
|
||||
$s->surveyJSON_update( [ 5, 2 ], { variable => 'S5Q2' } );
|
||||
$sJSON->update( [ 0, 0 ], { variable => 'S0Q0' } );
|
||||
$sJSON->update( [ 1, 0 ], { variable => 'S1Q0' } );
|
||||
$sJSON->update( [ 2, 0 ], { variable => 'S2Q0' } );
|
||||
$sJSON->update( [ 3, 0 ], { variable => 'S3Q0' } );
|
||||
$sJSON->update( [ 3, 1 ], { variable => 'S3Q1' } );
|
||||
$sJSON->update( [ 3, 2 ], { variable => 'S3Q2' } );
|
||||
$sJSON->update( [ 4, 0 ], { variable => 'S4Q0' } );
|
||||
$sJSON->update( [ 5, 0 ], { variable => 'S5Q0' } );
|
||||
$sJSON->update( [ 5, 1 ], { variable => 'S5Q1' } );
|
||||
$sJSON->update( [ 5, 2 ], { variable => 'S5Q2' } );
|
||||
|
||||
# Set additional options..
|
||||
$s->surveyJSON_update( [ 0, 0 ], { questionType => 'Yes/No' } ); # S0Q0 is a Yes/No
|
||||
$s->surveyJSON_update( [ 0, 0 ], { gotoExpression => q{ tag('tagged at S0Q0'); } } ); # S0Q0 tagged data
|
||||
$sJSON->update( [ 0, 0 ], { questionType => 'Yes/No' } ); # S0Q0 is a Yes/No
|
||||
$sJSON->update( [ 0, 0 ], { gotoExpression => q{ tag('tagged at S0Q0'); } } ); # S0Q0 tagged data
|
||||
|
||||
$s->surveyJSON_update( [ 1, 0 ], { questionType => 'Yes/No' } ); # S1Q0 is a Yes/No
|
||||
$s->surveyJSON_update( [ 1, 0, 0 ], { goto => 'S3', recordedAnswer => q{} } ); # S1Q0 answer 0 jumps to S3 (set recordedAnswer to '' to detect subtle bug)
|
||||
$s->surveyJSON_update( [ 1, 0, 1 ], { gotoExpression => q{ tag('tagged at S1Q0', 999); }, recordedAnswer => q{} } );# S1Q0 answer 1 tagged numeric data
|
||||
$sJSON->update( [ 1, 0 ], { questionType => 'Yes/No' } ); # S1Q0 is a Yes/No
|
||||
$sJSON->update( [ 1, 0, 0 ], { goto => 'S3', recordedAnswer => q{} } ); # S1Q0 answer 0 jumps to S3 (set recordedAnswer to '' to detect subtle bug)
|
||||
$sJSON->update( [ 1, 0, 1 ], { gotoExpression => q{ tag('tagged at S1Q0', 999); }, recordedAnswer => q{} } );# S1Q0 answer 1 tagged numeric data
|
||||
|
||||
$s->surveyJSON_update( [ 3 ], { gotoExpression => q{ jump { score(S3) == 0 } S5; } } ); # jump to S5 if all 3 questions answered as No
|
||||
$sJSON->update( [ 3 ], { gotoExpression => q{ jump { score(S3) == 0 } S5; } } ); # jump to S5 if all 3 questions answered as No
|
||||
for my $qIndex (0..2) {
|
||||
$s->surveyJSON_update( [ 3, $qIndex ], { questionType => 'Yes/No', required => 1 } );
|
||||
$s->surveyJSON_update( [ 3, $qIndex, 1 ], { value => 0 } ); # Set 'No' score to 0
|
||||
$sJSON->update( [ 3, $qIndex ], { questionType => 'Yes/No', required => 1 } );
|
||||
$sJSON->update( [ 3, $qIndex, 1 ], { value => 0 } ); # Set 'No' score to 0
|
||||
}
|
||||
|
||||
$s->surveyJSON_update( [ 4, 0 ], { questionType => 'Concern' } );
|
||||
$sJSON->update( [ 4, 0 ], { questionType => 'Concern' } );
|
||||
|
||||
$s->surveyJSON_update( [ 5, 0 ], { questionType => 'Slider', required => 1 } );
|
||||
$s->surveyJSON_update( [ 5, 1 ], { questionType => 'Text', required => 1 } );
|
||||
$s->surveyJSON_update( [ 5, 2 ], { questionType => 'Number', required => 1 } );
|
||||
$sJSON->update( [ 5, 0 ], { questionType => 'Slider', required => 1 } );
|
||||
$sJSON->update( [ 5, 1 ], { questionType => 'Text', required => 1 } );
|
||||
$sJSON->update( [ 5, 2 ], { questionType => 'Number', required => 1 } );
|
||||
|
||||
$s->surveyJSON_update( [ 6 ], { logical => 1, gotoExpression => q{tag('tagged at S6');} } );
|
||||
$sJSON->update( [ 6 ], { logical => 1, gotoExpression => q{tag('tagged at S6');} } );
|
||||
|
||||
# And finally, persist the changes..
|
||||
$s->persistSurveyJSON;
|
||||
|
||||
my $rJSON = $s->responseJSON;
|
||||
|
||||
cmp_deeply(
|
||||
$s->responseJSON->surveyOrder,
|
||||
$rJSON->surveyOrder,
|
||||
[ [ 0, 0, [ 0, 1 ] ], # S0Q0 (surveyOrderIndex: 0)
|
||||
[ 1, 0, [ 0, 1 ] ], # S1Q0 (surveyOrderIndex: 1)
|
||||
[ 2, 0, [] ], # S2Q0 (surveyOrderIndex: 2)
|
||||
|
|
@ -120,7 +122,7 @@ cmp_deeply(
|
|||
'surveyOrder is correct'
|
||||
);
|
||||
cmp_deeply(
|
||||
$s->responseJSON->surveyOrderIndexByVariableName,
|
||||
$rJSON->surveyOrderIndexByVariableName,
|
||||
{
|
||||
'S0' => 0,
|
||||
'S0Q0' => 0,
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue