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

add default workflow values tests, and promote and demote activity tests

Browse source
This commit is contained in:
Colin Kuskie 2008-09-09 20:31:59 +00:00
parent 7cd3266462
commit 3982ac2d71
1 changed files with 60 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

61
t/Workflow.t
View file

@ -16,7 +16,8 @@ use WebGUI::Session;
use WebGUI::Workflow; use WebGUI::Workflow;
use WebGUI::Workflow::Cron; use WebGUI::Workflow::Cron;
use WebGUI::Utility qw/isIn/; use WebGUI::Utility qw/isIn/;
use Test::More tests => 38; # increment this value for each test you create use Test::More tests => 49; # increment this value for each test you create
use Test::Deep;
my $session = WebGUI::Test->session; my $session = WebGUI::Test->session;
my $wf = WebGUI::Workflow->create($session, {title => 'Title', description => 'Description', my $wf = WebGUI::Workflow->create($session, {title => 'Title', description => 'Description',
@ -105,6 +106,64 @@ $cron->delete;
$wf2->delete; $wf2->delete;
my $wf3 = WebGUI::Workflow->create($session, {});
isa_ok($wf3, 'WebGUI::Workflow', 'workflow created with all defaults');
is($wf3->get('title'), 'Untitled', 'Default title is Untitled');
is($wf3->get('description'), undef, 'Default description is undefined');
is($wf3->get('type'), 'None', 'Default type is None');
is($wf3->get('enabled'), 0, 'By default, enabled is 0');
is($wf3->get('mode'), 'parallel', 'Default mode is parallel');
my $decayKarma = $wf3->addActivity('WebGUI::Workflow::Activity::DecayKarma');
my $cleanTemp = $wf3->addActivity('WebGUI::Workflow::Activity::CleanTempStorage');
my $oldTrash = $wf3->addActivity('WebGUI::Workflow::Activity::PurgeOldTrash');
##########################################################
#
# Activity ordering tests, promote, demote, reorder
#
##########################################################
cmp_deeply(
$wf3->getActivities,
[$decayKarma, $cleanTemp, $oldTrash],
'getActivities returns activties in the order they were added to the Workflow'
);
$wf3->demoteActivity($oldTrash->getId);
cmp_deeply(
[ map { $_->getId } @{ $wf3->getActivities } ],
[ map { $_->getId } $decayKarma, $cleanTemp, $oldTrash],
'demote works on first activity, even though it does not move'
);
$wf3->promoteActivity($decayKarma->getId);
cmp_deeply(
[ map { $_->getId } @{ $wf3->getActivities } ],
[ map { $_->getId } $decayKarma, $cleanTemp, $oldTrash],
'promote works on last activity, even though it does not move'
);
$wf3->demoteActivity($cleanTemp->getId);
cmp_deeply(
[ map { $_->getId } @{ $wf3->getActivities } ],
[ map { $_->getId } $decayKarma, $oldTrash, $cleanTemp],
'demote works'
);
$wf3->promoteActivity($oldTrash->getId);
cmp_deeply(
[ map { $_->getId } @{ $wf3->getActivities } ],
[ map { $_->getId } $oldTrash, $decayKarma, $cleanTemp],
'promote works'
);
$wf3->delete;
# Local variables: # Local variables:
# mode: cperl # mode: cperl
# End: # End: