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

Always delete fresh copies of cached objects...

Browse source
This commit is contained in:
Colin Kuskie 2009-05-20 01:31:45 +00:00
parent 5fdb7d8f02
commit 7f9dacb0d0
1 changed files with 4 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

6
t/lib/WebGUI/Test.pm
View file

@ -145,12 +145,14 @@ END {
GROUP: foreach my $group (@groupsToDelete) {
my $groupId = $group->getId;
next GROUP if any { $groupId eq $_ } qw/1 2 3 4 6 7 8 11 12 13 14 pbgroup000000000000015 pbgroup000000000000016 pbgroup000000000000017 /;
$group->delete;
my $newGroup = WebGUI::Group->new($SESSION, $groupId);
$newGroup->delete;
}
USER: foreach my $user (@usersToDelete) {
my $userId = $user->userId;
next USER if any { $userId eq $_ } (1,3);
$user->delete;
my $newUser = WebGUI::User->new($SESSION, $userId);
$newUser->delete;
}
foreach my $stor (@storagesToDelete) {
if ($SESSION->id->valid($stor)) {