Fix bug where Admins are not in the Visitor group. Add a test to verify this going forward.

This commit is contained in:
Colin Kuskie 2006-07-15 02:30:53 +00:00
parent f3a1f0f9f2
commit dae8c4c22f
3 changed files with 15 additions and 1 deletions

View file

@ -75,7 +75,7 @@ my @ipTests = (
);
plan tests => (118 + scalar(@scratchTests) + scalar(@ipTests)); # increment this value for each test you create
plan tests => (119 + scalar(@scratchTests) + scalar(@ipTests)); # increment this value for each test you create
my $session = WebGUI::Test->session;
my $testCache = WebGUI::Cache->new($session, 'myTestKey');
@ -518,6 +518,12 @@ ok( !$cacheDude->isInGroup($gZ->getId), "Cache dude is not a member of group Z")
ok( !$cacheDude->isInGroup($gA->getId), "Cache dude is not a member of group A");
ok( !$cacheDude->isInGroup($gB->getId), "Cache dude is not a member of group B");
##Admin group inclusion check.
my $vgroup = WebGUI::Group->new($session, 1);
my $vgroups = $vgroup->getGroupsIn();
ok( isIn(3, @{ $vgroups }), 'Admin Group is in Group Visitor');
SKIP: {
skip("need to test expiration date in groupings interacting with recursive or not", 1);
ok(undef, "expiration date in groupings for getUser");