From 7ef3c7e4be09de73db085fe30d5c30b18364a4f7 Mon Sep 17 00:00:00 2001
From: Scott Walters <scott@slowass.net>
Date: Tue, 8 Jun 2010 13:52:49 -0400
Subject: [PATCH] Less diagnostic output and don't manually clear the group
 membership cache.

---
 t/Inbox/Groups.t | 21 +++++++++++++--------
 1 file changed, 13 insertions(+), 8 deletions(-)

diff --git a/t/Inbox/Groups.t b/t/Inbox/Groups.t
index 549351228..ae8436f6b 100644
--- a/t/Inbox/Groups.t
+++ b/t/Inbox/Groups.t
@@ -81,16 +81,22 @@ is($message_cnt,  1, '... 1 messages according to getMessagesForUser');
 
 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 $group->getId, @{ $userFred->getGroupIdsRecursive } ), 'User removed from group');
+ok((! grep $_ eq $userFred->userId, @{ $group->getAllUsers() } ), '... removed from group according to getAllUsers');
+ok((! grep $_ eq $group->getId, @{ $userFred->getGroupIdsRecursive } ), '... removed from group according to getGroupIdsRecursive');
 
-note "group->getAllUsers: " .  Dumper $group->getAllUsers();
-note "getGroupIdsRecursive: " . Dumper $userFred->getGroupIdsRecursive;
-note "user->getGroups: " . Dumper $userFred->getGroups;
+# note "group->getAllUsers: " .  Dumper $group->getAllUsers();
+# note "getGroupIdsRecursive: " . Dumper $userFred->getGroupIdsRecursive;
+# 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);
 $message_cnt = scalar(@{$messageList});
@@ -107,5 +113,4 @@ is(scalar(@{ $inbox->getMessagesForUser($userFred) }),  0, 'Message deleted:  Us
 
 #----------------------------------------------------------------------------
 
-done_testing();