From 8bbae90c4e29527d811ac2ebecdc721ad6ffb5f9 Mon Sep 17 00:00:00 2001 From: Colin Kuskie Date: Mon, 3 Apr 2006 23:19:21 +0000 Subject: [PATCH] remove debugging tests --- t/Group.t | 6 +----- 1 file changed, 1 insertion(+), 5 deletions(-) diff --git a/t/Group.t b/t/Group.t index 6bf5880ee..6fe45ddb2 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 => 79; # increment this value for each test you create +use Test::More tests => 75; # increment this value for each test you create use Test::Deep; my $session = WebGUI::Test->session; @@ -228,14 +228,10 @@ is( $session->stow->get('isInGroup'), undef, 'setting dbQuery clears cached isIn $session->user({userId => $mob[0]->userId}); is( $session->user->userId, $mob[0]->userId, 'mob[0] set to be current user'); -is( $session->stow->get('isInGroup'), undef, 'isInGroup cache still cleared'); -is( $gY->session->stow->get('isInGroup'), undef, 'group Y copy of isInGroup cache cleared, too'); -is( $mob[0]->session->stow->get('isInGroup'), undef, 'mob[0] copy of isInGroup cache cleared, too'); $session->errorHandler->warn('checking mob[0] group membership'); is( $mob[0]->isInGroup($gY->getId), 1, 'mob[0] is in group Y after setting dbQuery'); $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');