ee9cae98a8
Broke out code scanning tests into their own tests, and required the CODE_COP environment variable be set before they were run. Fixed two bugs in the Workflow test, wrong number of tests and inverse test logic. More Auth template inheritance work. Almost time to reflect it over to the LDAP module.
55 lines
2.2 KiB
Perl
55 lines
2.2 KiB
Perl
#-------------------------------------------------------------------
|
|
# WebGUI is Copyright 2001-2006 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
|
|
#-------------------------------------------------------------------
|
|
|
|
use FindBin;
|
|
use strict;
|
|
use lib "$FindBin::Bin/lib";
|
|
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
|
|
|
|
my $session = WebGUI::Test->session;
|
|
my $wf = WebGUI::Workflow->create($session, {title => 'Title', description => 'Description',
|
|
type => 'None'});
|
|
ok(defined $wf, 'can create workflow');
|
|
isa_ok($wf, 'WebGUI::Workflow', 'workflow');
|
|
|
|
my $wfId = $wf->getId;
|
|
ok(defined $wfId, 'workflow has an ID');
|
|
ok(defined WebGUI::Workflow->new($session, $wfId), 'workflow can be retrieved');
|
|
|
|
is($wf->get('title'), 'Title', 'workflow title is set');
|
|
is($wf->get('description'), 'Description', 'workflow description is set');
|
|
is($wf->get('type'), 'None', 'workflow type is set');
|
|
ok(!$wf->get('enabled'), 'workflow is not enabled');
|
|
# TODO: test other properties
|
|
is_deeply($wf->getActivities, [], 'workflow has no activities');
|
|
is_deeply($wf->getInstances, [], 'workflow has no instances');
|
|
is_deeply($wf->getCrons, [], 'workflow has no crons');
|
|
ok(!isIn($wfId, keys %{WebGUI::Workflow->getList($session)}), 'workflow not in enabled list');
|
|
|
|
$wf->set({enabled => 1});
|
|
ok($wf->get('enabled'), 'workflow is enabled');
|
|
ok(isIn($wfId, keys %{WebGUI::Workflow->getList($session)}), 'workflow in enabled list');
|
|
$session->errorHandler->warn('Interesting');
|
|
$wf->set({enabled => 0});
|
|
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
|
|
|
|
# Local variables:
|
|
# mode: cperl
|
|
# End:
|