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

add more tests for Workflow mode, and validating the activity that was returned

Browse source
This commit is contained in:
Colin Kuskie 2008-09-08 23:07:47 +00:00
parent fd038fd0c8
commit e86b0b7cc7
1 changed files with 11 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

12
t/Workflow.t
View file

@ -16,7 +16,7 @@ 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 => 29; # increment this value for each test you create use Test::More tests => 36; # increment this value for each test you create
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',
@ -45,6 +45,15 @@ $session->log->warn('Interesting');
$wf->set({enabled => 0}); $wf->set({enabled => 0});
ok(!$wf->get('enabled'), 'workflow is disabled again'); ok(!$wf->get('enabled'), 'workflow is disabled again');
is($wf->get('mode'), 'parallel', 'default mode for created workflows is parallel');
ok(! $wf->isSingleton, 'Is not singleton');
ok(! $wf->isSerial, 'Is not serial');
ok( $wf->isParallel, 'Is parallel');
$wf->set({'mode', 'serial'});
is(join('', $wf->isSingleton, $wf->isSerial, $wf->isParallel), '010', 'Is checks after setting mode to serial');
$wf->set({'mode', 'singleton'});
is(join('', $wf->isSingleton, $wf->isSerial, $wf->isParallel), '100', 'Is checks after setting mode to singleton');
$wf->delete; $wf->delete;
ok(!defined WebGUI::Workflow->new($session, $wfId), 'deleted workflow cannot be retrieved'); ok(!defined WebGUI::Workflow->new($session, $wfId), 'deleted workflow cannot be retrieved');
@ -61,6 +70,7 @@ isa_ok($activity, 'WebGUI::Workflow::Activity', 'activity');
my $actId = $activity->getId; my $actId = $activity->getId;
ok(defined $actId, 'activity has an ID'); ok(defined $actId, 'activity has an ID');
is(scalar @{$wf2->getActivities}, 1, 'workflow has one activity'); is(scalar @{$wf2->getActivities}, 1, 'workflow has one activity');
is($wf2->getActivities->[0]->getId, $actId, 'Workflow has the correct activity');
TODO: { TODO: {
local $TODO = "Tests that test things that do not work yet"; local $TODO = "Tests that test things that do not work yet";