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

Added Survey Workflow onSurveyEndWorkflowId

Browse source 
Fixed username bug
This commit is contained in:
Patrick Donelan 2009-03-15 06:34:37 +00:00
parent d95a076ac5
commit b1b033afa5
3 changed files with 84 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

7
t/Asset/Wobject/Survey.t
View file

@ -18,7 +18,7 @@ my $session = WebGUI::Test->session;
#----------------------------------------------------------------------------
# Tests
my $tests = 10;
my $tests = 11;
plan tests => $tests + 1;
#----------------------------------------------------------------------------
@ -60,6 +60,10 @@ $survey->surveyJSON_update([1,1], { variable => 'S1Q1' });
$session->user( { userId =>3 } );
$survey->responseIdCookies(0);
my $responseId = $survey->responseId;
my $s = WebGUI::Asset::Wobject::Survey->newByResponseId($session, $responseId);
is($s->getId, $survey->getId, 'newByResponseId returns same Survey');
#for my $address (@{ $survey->responseJSON->surveyOrder }) {
# diag (Dumper $address);
#}
@ -87,6 +91,7 @@ $survey->responseIdCookies(0);
}
}
}
#----------------------------------------------------------------------------