From 7b60bc8fef391b3582c894b0e13f7764180049f2 Mon Sep 17 00:00:00 2001 From: Colin Kuskie Date: Mon, 3 Apr 2006 19:13:09 +0000 Subject: [PATCH] test that while a user can be in a group they may not be in the list of users --- t/Group.t | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/t/Group.t b/t/Group.t index 894b39037..6bf5880ee 100644 --- a/t/Group.t +++ b/t/Group.t @@ -18,7 +18,7 @@ use WebGUI::Utility; use WebGUI::User; use WebGUI::Group; -use Test::More tests => 78; # increment this value for each test you create +use Test::More tests => 79; # increment this value for each test you create use Test::Deep; my $session = WebGUI::Test->session; @@ -237,6 +237,8 @@ $session->user({userId => $mob[1]->userId}); is( $mob[0]->isInGroup($gZ->getId), 1, 'mob[0] is not in group Z'); is( $mob[0]->isInGroup($gZ->getId,1), 1, 'mob[0] is in group Z, recursively'); +ok( !isIn($mob[0]->userId, $gZ->getUsers(1)), 'mob[0] not in list of group Z users'); + END { (defined $gX and ref $gX eq 'WebGUI::Group') and $gX->delete; (defined $gY and ref $gY eq 'WebGUI::Group') and $gY->delete;