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

Remove uncontrolled diagnostics, and done_testing.

Browse source
This commit is contained in:
Colin Kuskie 2010-06-08 08:42:43 -07:00
parent 1770e3945c
commit 4eb013ef03
1 changed files with 5 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

10
t/Inbox/Groups.t
View file

@ -24,9 +24,9 @@ use WebGUI::User;
use Test::More; use Test::More;
use Data::Dumper; plan tests => 13;
$| = 1; use Data::Dumper;
#---------------------------------------------------------------------------- #----------------------------------------------------------------------------
@ -86,9 +86,9 @@ $group->deleteUsers([ $userFred->userId ]);
ok((! grep $_ eq $userFred->userId, @{ $group->getAllUsers() } ), 'User removed from group'); ok((! grep $_ eq $userFred->userId, @{ $group->getAllUsers() } ), 'User removed from group');
ok((! grep $_ eq $group->getId, @{ $userFred->getGroupIdsRecursive } ), 'User removed from group'); ok((! grep $_ eq $group->getId, @{ $userFred->getGroupIdsRecursive } ), 'User removed from group');
warn "group->getAllUsers: " . Dumper $group->getAllUsers(); note "group->getAllUsers: " . Dumper $group->getAllUsers();
warn "getGroupIdsRecursive: " . Dumper $userFred->getGroupIdsRecursive; note "getGroupIdsRecursive: " . Dumper $userFred->getGroupIdsRecursive;
warn "user->getGroups: " . Dumper $userFred->getGroups; note "user->getGroups: " . Dumper $userFred->getGroups;
eval{ $userFred->session->stow->delete("gotGroupsForUser"); }; # blow the cache eval{ $userFred->session->stow->delete("gotGroupsForUser"); }; # blow the cache