From 09c39a83435c5b951e2f6161d1034931c89df2f8 Mon Sep 17 00:00:00 2001 From: daviddelikat Date: Wed, 30 Sep 2009 19:59:09 -0500 Subject: [PATCH] renamed test file --- t/Asset/EMSSubmissionForm.pm | 82 ---------------------- t/Asset/EMSSubmissionForm.t | 127 +++++++++++++++++++++++++++++++++++ 2 files changed, 127 insertions(+), 82 deletions(-) delete mode 100644 t/Asset/EMSSubmissionForm.pm create mode 100644 t/Asset/EMSSubmissionForm.t diff --git a/t/Asset/EMSSubmissionForm.pm b/t/Asset/EMSSubmissionForm.pm deleted file mode 100644 index 45efecde3..000000000 --- a/t/Asset/EMSSubmissionForm.pm +++ /dev/null @@ -1,82 +0,0 @@ -# vim:syntax=perl -#------------------------------------------------------------------- -# WebGUI is Copyright 2001-2009 Plain Black Corporation. -#------------------------------------------------------------------- -# Please read the legal notices (docs/legal.txt) and the license -# (docs/license.txt) that came with this distribution before using -# this software. -#------------------------------------------------------------------ -# http://www.plainblack.com info@plainblack.com -#------------------------------------------------------------------ - -# Write a little about what this script tests. -# -# - -use FindBin; -use strict; -use lib "$FindBin::Bin/lib"; -use Test::More; -use WebGUI::Group; -use WebGUI::User; -use WebGUI::Test; # Must use this before any other WebGUI modules -use WebGUI::Session; - -#---------------------------------------------------------------------------- -# Init -my $session = WebGUI::Test->session; -my $TODO = q{ -create a version tag -}; - - -#---------------------------------------------------------------------------- -# Tests - -plan tests => 1; # Increment this number for each test you create - -$submitGroupA = WebGUI::Group->new($session,'new'); -$submitGroupB = WebGUI::Group->new($session,'new'); - -$userA = WebGUI::User->create($session); -$userB = WebGUI::User->create($session); -$userC = WebGUI::User->create($session); - -$submitGroupA->addUsers([$userA->userId,$userC->userId]); -$submitGroupB->addUsers([$userB->userId,$userC->userId]); - -WebGUI::Test->groupsToDelete($submitGroupA,$submitGroupB); -WebGUI::Test->usersToDelete($userA,$userB,$userC); - -sub loginAdmin { $session->user({userId => 3}); } -sub logout { $session->user({userId => 1}); } -sub loginUserA { $session->user({userId => $userA->userId}); } -sub loginUserB { $session->user({userId => $userB->userId}); } -sub loginUserC { $session->user({userId => $userC->userId}); } - -#---------------------------------------------------------------------------- -# put your tests here - -use_ok WebGUI::Asset::Wobject::EventManagementSystem; -use_ok WebGUI::Asset::EMSSubmissionForm; -use_ok WebGUI::Asset::EMSSubmission; - -loginAdmin; - -my $TODO = q{ -create EMS -create submission form(s) -create submission(s) -comment on submission(s) -modify submission(s) -change submission status -run submission approval activity -run submission cleanup activity -} - -#---------------------------------------------------------------------------- -# Cleanup -END { - -} -#vim:ft=perl diff --git a/t/Asset/EMSSubmissionForm.t b/t/Asset/EMSSubmissionForm.t new file mode 100644 index 000000000..7024b6cc8 --- /dev/null +++ b/t/Asset/EMSSubmissionForm.t @@ -0,0 +1,127 @@ +# vim:syntax=perl +#------------------------------------------------------------------- +# WebGUI is Copyright 2001-2009 Plain Black Corporation. +#------------------------------------------------------------------- +# Please read the legal notices (docs/legal.txt) and the license +# (docs/license.txt) that came with this distribution before using +# this software. +#------------------------------------------------------------------ +# http://www.plainblack.com info@plainblack.com +#------------------------------------------------------------------ + +# Write a little about what this script tests. +# +# + +use FindBin; +use strict; +use lib "$FindBin::Bin/lib"; +use Test::More; +use WebGUI::Group; +use WebGUI::User; +use WebGUI::Test; # Must use this before any other WebGUI modules +use WebGUI::Session; +use WebGUI::Asset::Wobject::EventManagementSystem; +use WebGUI::Asset::Sku::EMSBadge; +use WebGUI::Asset::Sku::EMSTicket; +use WebGUI::Asset::Sku::EMSRibbon; +use WebGUI::Asset::Sku::EMSToken; + +#---------------------------------------------------------------------------- +# Init +my $session = WebGUI::Test->session; + +#---------------------------------------------------------------------------- +# Tests + +plan tests => 1; # Increment this number for each test you create + +my $submitGroupA = WebGUI::Group->new($session,'new'); +my $submitGroupB = WebGUI::Group->new($session,'new'); +my $registrars = WebGUI::Group->new($session, 'new'); +my $attendees = WebGUI::Group->new($session, 'new'); + +my $registrar = WebGUI::User->create($session); +my $userA = WebGUI::User->create($session); +my $userB = WebGUI::User->create($session); +my $userC = WebGUI::User->create($session); + +$registrars->addUsers([$registrar->getId]); +$submitGroupA->addUsers([$userA->userId,$userC->userId]); +$submitGroupB->addUsers([$userB->userId,$userC->userId]); +$attendees->addUsers([$userA->getId, $userB->getId, $userC->getId]); + +WebGUI::Test->groupsToDelete($submitGroupA,$submitGroupB); +WebGUI::Test->groupsToDelete($registrars, $attendees); +WebGUI::Test->usersToDelete($userA,$userB,$userC,$registrar); + +sub loginAdmin { $session->user({userId => 3}); } +sub loginRgstr { $session->user({userId => $registrar->userId}); } +sub loginUserA { $session->user({userId => $userA->userId}); } +sub loginUserB { $session->user({userId => $userB->userId}); } +sub loginUserC { $session->user({userId => $userC->userId}); } +sub logout { $session->user({userId => 1}); } + +#---------------------------------------------------------------------------- +# put your tests here + +use_ok WebGUI::Asset::EMSSubmissionForm; +use_ok WebGUI::Asset::EMSSubmission; + +loginAdmin; + +# Create a version tag to work in +my $versionTag = WebGUI::VersionTag->getWorking($session); +$versionTag->set({name=>"EventManagementSystem Test"}); + +# Add an EMS asset +my $ems = $node->addChild({ + className =>'WebGUI::Asset::Wobject::EventManagementSystem', + title => 'Test EMS', + description => 'This is a test ems', + url => '/test-ems', + workflowIdCommit => 'pbworkflow000000000003', # Commit Content Immediately + registrationStaffGroupId => $registrars->getId, + groupIdView => $attendees->getId +}); +$versionTag->commit; +WebGUI::Test->tagsToRollback($versionTag); + +$versionTag = WebGUI::VersionTag->getWorking($session); + +loginRgstr; + +my $frmA = $ems->addChild({ + className => 'WebGUI::Asset::EMSSubmissionForm', + canSubmitGroup => $submitGroupA->getId, + formDescription => q{ + TODO = 1 + }, +}); +isa( $frmA, 'WebGUI::Asset::EMSSubmissionForm' ); + +my $frmB = $ems->addChild({ + className => 'WebGUI::Asset::EMSSubmissionForm', + canSubmitGroup => $submitGroupB->getId, + formDescription => q{ + TODO = 1 + }, +}); + +my $TODO = q{ +create submission(s) +comment on submission(s) +modify submission(s) +change submission status +run submission approval activity +run submission cleanup activity +} +$versionTag->commit; +WebGUI::Test->tagsToRollback($versionTag); + +#---------------------------------------------------------------------------- +# Cleanup +END { + +} +#vim:ft=perl