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

quiet some warnings

Browse source
This commit is contained in:
Graham Knop 2008-09-30 20:03:52 +00:00
parent 79cbb85285
commit bbdcb6475a
4 changed files with 16 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

12
t/Group.t
View file

@ -169,10 +169,14 @@ $lGroup->delete;
my $gid = $g->getId;
is (length($gid), 22, "GroupId is proper length");
is_deeply ($g->getGroupsIn(), [3], 'Admin group added by default to this group');
is_deeply ($g->getGroupsFor(), [], 'Group not added to any other group');
is_deeply ($g->getUsers(), [], 'No users added by default');
is_deeply ($g->getAllUsers(), [3], 'No users added by default in any method');
{
# our invalid db query from earlier is going to error, keep it quiet
local $SIG{__WARN__} = sub {};
is_deeply ($g->getGroupsIn(), [3], 'Admin group added by default to this group');
is_deeply ($g->getGroupsFor(), [], 'Group not added to any other group');
is_deeply ($g->getUsers(), [], 'No users added by default');
is_deeply ($g->getAllUsers(), [3], 'No users added by default in any method');
}
my $gname = '**TestGroup**';
is ($g->name($gname), $gname, 'Set name');