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

migrade Survey editTest to FormBuilder

Browse source
This commit is contained in:
Doug Bell 2011-02-10 15:50:51 -06:00
parent 963227b571
commit 033a1b7793
3 changed files with 64 additions and 22 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -17,7 +17,7 @@ my $session = WebGUI::Test->session;
#----------------------------------------------------------------------------
# Tests
plan tests => 51;
plan tests => 57;
#----------------------------------------------------------------------------
# put your tests here
@ -288,3 +288,27 @@ $mech->content_contains( 'uploads/temp', 'uploads link exists' );
my $survey_json = $survey->www_loadSurvey({});
my $survey_data = JSON::from_json($survey_json);
unlike($survey_data->{edithtml}, qr/\^International/, 'www_loadSurvey process macros');
#----------------------------------------------------------------------------
# www_editTest
my $mech = WebGUI::Test::Mechanize->new( config => WebGUI::Test->file );
$mech->get_ok( '/' );
$mech->session->user({ userId => 3 });
$mech->get_ok( $survey->getUrl( 'func=editTest' ) );
$mech->submit_form_ok({
fields => {
name => 'TEST Test',
},
}, "Create a new test"
);
use WebGUI::Asset::Wobject::Survey::Test;
my $tests = WebGUI::Asset::Wobject::Survey::Test->getAllIds( $session, {
constraints => [{
'assetId = ?' => $survey->getId,
}],
});
is( @$tests, 1, "test exists" );
my $test = WebGUI::Asset::Wobject::Survey::Test->new( $session, $tests->[0] );
ok( $test, "test exists" );
is( $test->name, "TEST Test", "name set correctly" );