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

Some extra tests for workflow.

Browse source
This commit is contained in:
Drake 2006-12-06 22:03:32 +00:00
parent 632821e40f
commit c909ac9740
1 changed files with 22 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

25
t/Workflow.t
View file

@ -15,7 +15,7 @@ use WebGUI::Test;
use WebGUI::Session;
use WebGUI::Workflow;
use WebGUI::Utility qw/isIn/;
use Test::More tests => 16; # increment this value for each test you create
use Test::More tests => 25; # increment this value for each test you create
my $session = WebGUI::Test->session;
my $wf = WebGUI::Workflow->create($session, {title => 'Title', description => 'Description',
@ -47,8 +47,27 @@ ok(!$wf->get('enabled'), 'workflow is disabled again');
$wf->delete;
ok(!defined WebGUI::Workflow->new($session, $wfId), 'deleted workflow cannot be retrieved');
# TODO: test activity class conformance checking
# TODO: test activities and crons
my $wf2 = WebGUI::Workflow->create($session, {title => 'Title', description => 'Description',
type => 'WebGUI::VersionTag'});
ok(defined $wf2, 'can create version tag workflow');
isa_ok($wf2, 'WebGUI::Workflow', 'workflow');
require WebGUI::Workflow::Activity::UnlockVersionTag;
my $activity = WebGUI::Workflow::Activity::UnlockVersionTag->create($session, $wf2->getId);
ok(defined $activity, 'can create activity');
isa_ok($activity, 'WebGUI::Workflow::Activity::UnlockVersionTag', 'activity');
isa_ok($activity, 'WebGUI::Workflow::Activity', 'activity');
my $actId = $activity->getId;
ok(defined $actId, 'activity has an ID');
is(scalar @{$wf2->getActivities}, 1, 'workflow has one activity');
# Mismatched activity with workflow.
require WebGUI::Workflow::Activity::DecayKarma;
my $badActivity = WebGUI::Workflow::Activity::DecayKarma->create($session, $wf2->getId);
ok(!defined $badActivity, 'cannot create mismatched activity');
is(scalar @{$wf->getActivities}, 1, 'workflow still has one activity');
# TODO: test activities more, and crons
# Local variables:
# mode: cperl