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

Bust group caches and caches of groups containting this group

Browse source 
whenever the group is edited, or when users or groups are added
or deleted.
Add a test to check adding users.
This commit is contained in:
Colin Kuskie 2006-05-17 23:16:11 +00:00
parent d5a9ead068
commit aea9ce76f7
3 changed files with 21 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

14
t/Group.t
View file

@ -75,7 +75,7 @@ my @ipTests = (
);
plan tests => (88 + scalar(@scratchTests) + scalar(@ipTests)); # increment this value for each test you create
plan tests => (90 + scalar(@scratchTests) + scalar(@ipTests)); # increment this value for each test you create
my $session = WebGUI::Test->session;
my $testCache = WebGUI::Cache->new($session, 'myTestKey');
@ -470,6 +470,16 @@ foreach my $ipTest (@ipTests) {
is($ipTest->{user}->isInGroup($gI->getId), $ipTest->{expect}, $ipTest->{comment});
}
##Cache check.
my $cacheDude = WebGUI::User->new($session, "new");
$cacheDude->username('Cache Dude');
$gY->addUsers([$cacheDude->userId]);
ok( $cacheDude->isInGroup($gY->getId), "Cache dude added to group Y");
ok( $cacheDude->isInGroup($gZ->getId), "Cache dude is a member of group Z by group membership");
SKIP: {
skip("need to test expiration date in groupings interacting with recursive or not", 1);
ok(undef, "expiration date in groupings for getUser");
@ -479,7 +489,7 @@ END {
foreach my $testGroup ($gX, $gY, $gZ, $gA, $gB, $gC, $g, $gK, $gS) {
$testGroup->delete if (defined $testGroup and ref $testGroup eq 'WebGUI::Group');
}
foreach my $dude ($user, @crowd, @mob, @chameleons, @itchies, @tcps) {
foreach my $dude ($user, @crowd, @mob, @chameleons, @itchies, @tcps, $cacheDude) {
$dude->delete if (defined $dude and ref $dude eq 'WebGUI::User');
}
$session->db->dbh->do('DROP TABLE IF EXISTS myUserTable');