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

Survey: fixed subtle bug in testing of answers with recordedAnswer set to q{}

Browse source
This commit is contained in:
Patrick Donelan 2009-05-21 08:21:54 +00:00
parent d246454b2f
commit f55559e124
2 changed files with 6 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

7
lib/WebGUI/Asset/Wobject/Survey/Test.pm
View file

@ -306,7 +306,7 @@ sub _test {
return fail($testCount, "determine answer for $variable", "No answers matched text: '$spec'");
}
$self->session->log->debug("Recording $variable ($answerAddress) => $answer->{recordedAnswer}");
$responses->{$answerAddress} = $answer->{recordedAnswer};
$responses->{$answerAddress} = 1;
}
}
@ -444,8 +444,7 @@ sub _test_mc {
my $answerAddress = "$address->[0]-$address->[1]-$aIndex";
my $answer = $answers->[$aIndex];
my $recordedAnswer = $answer->{recordedAnswer};
$responses->{$answerAddress} = $recordedAnswer;
$responses->{$answerAddress} = 1;
my $name = $opts{name}; # get this fresh for every subtest
if ($name) {
@ -458,7 +457,7 @@ sub _test_mc {
$name .= " for $variable mc answer " . ($aIndex + 1);
}
$self->session->log->debug("Recording answer for mc question $variable at index $aIndex ($answerAddress) => $recordedAnswer");
$self->session->log->debug("Choosing mc question $variable answer index $aIndex ($answerAddress)");
push @tap, $self->_recordResponses( {
responseJSON => $rJSON,
responses => $responses,