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

Handle different random sort orders on different machines.

Browse source
This commit is contained in:
Colin Kuskie 2009-03-12 21:12:21 +00:00
parent f15bb8558d
commit 12c5b14ab4
1 changed files with 7 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

9
t/Asset/Wobject/Survey/ResponseJSON.t
View file

@ -11,6 +11,7 @@ use Test::Deep;
use Test::MockObject::Extends;
use Test::Exception;
use Data::Dumper;
use List::Util qw/shuffle/;
use WebGUI::Test; # Must use this before any other WebGUI modules
use WebGUI::Session;
use WebGUI::Asset::Wobject::Survey::SurveyJSON;
@ -134,7 +135,9 @@ cmp_deeply(
srand(42); # Make shuffle predictable
$rJSON->initSurveyOrder();
@question_order = map {$_->[1]} grep {$_->[0] == 0} @{$rJSON->surveyOrder};
cmp_deeply(\@question_order, [2,0,1], 'initSurveyOrder shuffled questions in first section');
srand(42);
my @expected_order = shuffle(0,1,2);
cmp_deeply(\@question_order, \@expected_order, 'initSurveyOrder shuffled questions in first section');
$rJSON->survey->section([0])->{randomizeQuestions} = 0;
$rJSON->survey->question([0,0])->{randomizeAnswers} = 0;
@ -146,7 +149,9 @@ cmp_deeply(
srand(42); # Make shuffle predictable
$rJSON->initSurveyOrder();
@answer_order = map {@{$_->[2]}} grep {$_->[0] == 3 && $_->[1] == 1} @{$rJSON->surveyOrder};
cmp_deeply(\@answer_order, [1,3,4,5,6,0,2], 'initSurveyOrder shuffled answers');
srand(42); # Make shuffle predictable
@expected_order = shuffle(0..6);
cmp_deeply(\@answer_order, \@expected_order, 'initSurveyOrder shuffled answers');
}
####################################################