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

13 more Group tests

Browse source 
WebGUI::Group->find returns first group, no guaranteed order of search
This commit is contained in:
Colin Kuskie 2006-02-12 06:11:23 +00:00
parent 23fa58ca11
commit b4520939f1
2 changed files with 27 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

2
lib/WebGUI/Group.pm
View file

@ -418,6 +418,8 @@ sub expireOffset {
=head2 find ( session, name )
An alternative to the constructor "new", use find as a constructor by name rather than id.
Returns the first group with that name found. There is no guaranteed order of the search
to be sure not to create groups with the same name!
=head3 session

34
t/Group.t
View file

@ -18,31 +18,47 @@ use WebGUI::Utility;
use WebGUI::User;
use WebGUI::Group;
use Test::More tests => 8; # increment this value for each test you create
use Test::More tests => 21; # increment this value for each test you create
my $session = WebGUI::Test->session;
my $g = WebGUI::Group->new($session, "new");
diag("Object creation and defaults");
is( ref $g, "WebGUI::Group", "Group object creation");
is (ref $g, "WebGUI::Group", "Group object creation");
my $gid = $g->getId;
isnt( $gid, "new", "Group assigned new groupId, not new");
is( length($gid), 22, "GroupId is proper length");
isnt ($gid, "new", "Group assigned new groupId, not new");
is (length($gid), 22, "GroupId is proper length");
is ($g->name(), 'New Group', 'Default name');
is ($g->expireOffset(), 314496000, 'Default karma threshold');
is ($g->karmaThreshold(), 1_000_000_000, 'Default karma threshold');
is ($g->expireNotifyOffset(), -14, 'Default expire notify offset time');
is ($g->deleteOffset(), 14, 'Default delete offset time');
is ($g->expireNotify(), 0, 'Default expire notify time');
is ($g->databaseLinkId(), 0, 'Default databaseLinkId');
is ($g->dbCacheTimeout(), 3600, 'Default external database cache timeout');
is ($g->dateCreated(), $g->lastUpdated(), 'lastUpdated = create time');
is_deeply ($g->getGroupsIn(), [3], 'Admin group added by default to this group');
is ($g->name('**TestGroup**'), '**TestGroup**', 'Set name');
is ($g->name(), '**TestGroup**', 'Get name via accessor');
is ($g->get('groupName'), '**TestGroup**', 'Get name via generic accessor');
my $gname = '**TestGroup**';
is ($g->name($gname), $gname, 'Set name');
is ($g->name(), $gname, 'Get name via accessor');
is ($g->get('groupName'), $gname, 'Get name via generic accessor');
my $g2 = WebGUI::Group->find($session, '**TestGroup**');
my $g2 = WebGUI::Group->find($session, $gname);
my $skipFindGroup = is(ref $g2, 'WebGUI::Group', 'find returns a group');
SKIP: {
skip('find did not return a WebGUI::Group object', !$skipFindGroup);
is( $g->getId, $g2->getId, 'find returns correct group');
}
undef $g2;
delete $g->{_group};
ok( !exists $g->{_group}, 'deleted group property hash');
is( $g->name, $gname, 'group name restored');
ok( exists $g->{_group}, 'group property hash restored');
$g->delete();
my $matchingGroups = $session->db->quickArray("select groupId from groups where groupId=".$session->db->quote($gid));