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

Add a few tests for Group coverage.

Browse source
This commit is contained in:
Colin Kuskie 2009-04-04 02:33:33 +00:00
parent 78c76f543c
commit 22665cbdf3
1 changed files with 17 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

18
t/Group.t
View file

@ -75,7 +75,7 @@ my @ipTests = (
); );
plan tests => (144 + scalar(@scratchTests) + scalar(@ipTests)); # increment this value for each test you create plan tests => (147 + scalar(@scratchTests) + scalar(@ipTests)); # increment this value for each test you create
my $session = WebGUI::Test->session; my $session = WebGUI::Test->session;
my $testCache = WebGUI::Cache->new($session, 'myTestKey'); my $testCache = WebGUI::Cache->new($session, 'myTestKey');
@ -143,6 +143,22 @@ is($g->dbQuery(), 'select userId from someOtherDatabase', 'dbQuery set and get c
$g->isAdHocMailGroup(1); $g->isAdHocMailGroup(1);
is($g->isAdHocMailGroup(), 1, 'isAdHocMailGroup set and get correctly'); is($g->isAdHocMailGroup(), 1, 'isAdHocMailGroup set and get correctly');
$g->databaseLinkId('newDbLinkId');
is($g->databaseLinkId(), 'newDbLinkId', 'databaseLinkId set and get correctly');
$g->databaseLinkId(0);
is($g->databaseLinkId(), 0, 'databaseLinkId set and get correctly (0)');
################################################################
#
# options for new
#
################################################################
my $optionGroup = WebGUI::Group->new($session, 'new', undef, 'noAdmin');
my $getGroupsIn = $optionGroup->getGroupsIn();
cmp_deeply($getGroupsIn, [], 'new: noAdmin prevents the admin group from being added to this group');
$optionGroup->delete;
################################################################ ################################################################
# #
# LDAP specific group properties # LDAP specific group properties