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

Test cleanups.

Browse source 
Fix a leaking group in Asset/Post/permission.t.  Threads do not clean
up their groups when they are purged.
This commit is contained in:
Colin Kuskie 2009-05-01 02:17:39 +00:00
parent 004b8095a1
commit c60237443c
6 changed files with 8 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

4
t/Asset/AssetLineage.t
View file

@ -57,6 +57,7 @@ my $folder2 = $topFolder->addChild({
});
my $editor = WebGUI::User->new($session, 'new');
WebGUI::Test->usersToDelete($editor);
$editor->addToGroups([4]);
my @snippets = ();
@ -531,7 +532,4 @@ END {
foreach my $tag ($versionTag, $vTag2) {
$tag->rollback;
}
foreach my $account ($editor) {
(defined $account and ref $account eq 'WebGUI::User') and $account->delete;
}
}

2
t/Asset/Event/edit.t
View file

@ -36,6 +36,7 @@ $session->setting->set( 'defaultVersionTagWorkflow', 'pbworkflow000000000003' );
# Create a user for testing purposes
my $user = WebGUI::User->new( $session, "new" );
WebGUI::Test->usersToDelete($user);
$user->username( 'dufresne' . time );
my $identifier = 'ritahayworth';
my $auth = WebGUI::Operation::Auth::getInstance( $session, $user->authMethod, $user->userId );
@ -169,7 +170,6 @@ END {
$tag->rollback;
}
$user->delete;
}
#----------------------------------------------------------------------------

2
t/Asset/Event/permissions.t
View file

@ -33,6 +33,7 @@ push @versionTags, WebGUI::VersionTag->getWorking($session);
$versionTags[-1]->set({name=>"Photo Test, add Gallery, Album and 1 Photo"});
my $registeredUser = WebGUI::User->new( $session, "new" );
WebGUI::Test->usersToDelete($registeredUser);
# Make a Calendar to add events do
my $calendar = $node->addChild({
@ -82,5 +83,4 @@ END {
for my $tag ( @versionTags ) {
$tag->rollback;
}
$registeredUser->delete;
}

6
t/Asset/Post/permission.t
View file

@ -30,6 +30,7 @@ my $node = WebGUI::Asset->getImportNode( $session );
my %user;
$user{"2"} = WebGUI::User->new( $session, "new" );
WebGUI::Test->usersToDelete($user{'2'});
$user{"2"}->addToGroups( ['2'] ); # Registered user
my $versionTag = WebGUI::VersionTag->getWorking( $session );
@ -93,8 +94,7 @@ $maker->prepare( {
#----------------------------------------------------------------------------
# Cleanup
END {
for my $user ( values %user ) {
$user->delete;
}
my $subscriptionGroup = WebGUI::Group->new($session, $thread->get('subscriptionGroupId'));
WebGUI::Test->groupsToDelete($subscriptionGroup);
$versionTag->rollback;
}

2
t/Asset/Redirect/mech.t
View file

@ -36,6 +36,7 @@ $session->setting->set( 'specialState', '' );
# Create a user for testing purposes
my $user = WebGUI::User->new( $session, "new" );
WebGUI::Test->usersToDelete($user);
$user->username( 'dufresne' );
my $identifier = 'ritahayworth';
my $auth = WebGUI::Operation::Auth::getInstance( $session, $user->authMethod, $user->userId );
@ -176,5 +177,4 @@ END {
$tag->rollback;
}
$user->delete;
}

2
t/Auth/mech.t
View file

@ -43,6 +43,7 @@ $session->setting->set( 'specialState', '' );
my $USERNAME = 'dufresne';
my $IDENTIFIER = 'ritahayworth';
my $user = WebGUI::User->new( $session, "new", "something new" );
WebGUI::Test->usersToDelete($user);
$user->username( $USERNAME );
$user->addToGroups( ['3'] );
my $auth = WebGUI::Operation::Auth::getInstance( $session, $user->authMethod, $user->userId );
@ -276,5 +277,4 @@ $mech->base_is( $assetUrl, "We don't get redirected" );
#----------------------------------------------------------------------------
# Cleanup
END {
$user->delete;
}