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

Less diagnostic output and don't manually clear the group membership cache.

Browse source
This commit is contained in:
Scott Walters 2010-06-08 13:52:49 -04:00
parent 867095d811
commit 7ef3c7e4be
1 changed files with 13 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

21
t/Inbox/Groups.t
View file

@ -81,16 +81,22 @@ is($message_cnt, 1, '... 1 messages according to getMessagesForUser');
is($inbox->getUnreadMessageCount($userFred->userId), 1, '... 1 messages according to getUnreadMessageCount'); is($inbox->getUnreadMessageCount($userFred->userId), 1, '... 1 messages according to getUnreadMessageCount');
$group->deleteUsers([ $userFred->userId ]); ok(eval { $group->deleteUsers([ $userFred->userId ]); 1; }, "Delete user from group");
ok((! grep $_ eq $userFred->userId, @{ $group->getAllUsers() } ), 'User removed from group'); ok((! grep $_ eq $userFred->userId, @{ $group->getAllUsers() } ), '... removed from group according to getAllUsers');
ok((! grep $_ eq $group->getId, @{ $userFred->getGroupIdsRecursive } ), 'User removed from group'); ok((! grep $_ eq $group->getId, @{ $userFred->getGroupIdsRecursive } ), '... removed from group according to getGroupIdsRecursive');
note "group->getAllUsers: " . Dumper $group->getAllUsers(); # note "group->getAllUsers: " . Dumper $group->getAllUsers();
note "getGroupIdsRecursive: " . Dumper $userFred->getGroupIdsRecursive; # note "getGroupIdsRecursive: " . Dumper $userFred->getGroupIdsRecursive;
note "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
# note "after blowing the cache:";
# note "group->getAllUsers: " . Dumper $group->getAllUsers();
# note "getGroupIdsRecursive: " . Dumper $userFred->getGroupIdsRecursive;
# note "user->getGroups: " . Dumper $userFred->getGroups;
$messageList = $inbox->getMessagesForUser($userFred); $messageList = $inbox->getMessagesForUser($userFred);
$message_cnt = scalar(@{$messageList}); $message_cnt = scalar(@{$messageList});
@ -107,5 +113,4 @@ is(scalar(@{ $inbox->getMessagesForUser($userFred) }), 0, 'Message deleted: Us
#---------------------------------------------------------------------------- #----------------------------------------------------------------------------
done_testing();