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

Started refactoring nextQuestions in ResponseJSON

Browse source 
Made perlcritic happier
Extracted getQuestionResponses from processGotoExpression
Eliminated getPreviousAnswer
This commit is contained in:
Patrick Donelan 2009-02-06 01:56:54 +00:00
parent 3340a675b7
commit 306502465c
2 changed files with 115 additions and 72 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -9,6 +9,7 @@ use lib "$FindBin::Bin/../../../lib";
use Test::More;
use Test::Deep;
use Test::MockObject::Extends;
use Test::Exception;
use Data::Dumper;
use WebGUI::Test; # Must use this before any other WebGUI modules
use WebGUI::Session;
@ -20,7 +21,7 @@ my $session = WebGUI::Test->session;
#----------------------------------------------------------------------------
# Tests
my $tests = 78;
my $tests = 79;
plan tests => $tests + 1;
#----------------------------------------------------------------------------
@ -321,8 +322,9 @@ is($rJSON->lastResponse(), 5, 'goto: finds first if there are duplicates');
# processGotoExpression
#
####################################################
is($rJSON->parseGotoExpression(),
undef, 'processGotoExpression undef with empty arguments');
throws_ok { $rJSON->parseGotoExpression() } 'WebGUI::Error::InvalidParam', 'processGotoExpression takes exception to empty arguments';
is($rJSON->parseGotoExpression(q{}),
undef, '.. and undef with empty expression');
is($rJSON->parseGotoExpression('blah-dee-blah-blah'),
undef, '.. and undef with duff expression');
is($rJSON->parseGotoExpression(':'),