Test cleanup and tracking of Database Links.

This commit is contained in:
Colin Kuskie 2009-11-08 22:40:27 -08:00
parent d8af80311a
commit dbf86bb850
2 changed files with 9 additions and 6 deletions

View file

@ -206,6 +206,7 @@ my $dbLinkParams = {
};
$dbLink = WebGUI::DatabaseLink->create($session, $dbLinkParams);
addToCleanup($dbLink);
$dbLinkParams->{databaseLinkId} = ignore();
cmp_deeply(
@ -282,9 +283,3 @@ cmp_deeply($dbs, $dbsAfter, 'delete cleaned up all temporarily created DatabaseL
# delete
#
####################################################
END {
foreach my $link ($dbLink, $wgDbLink) {
$link->delete if (defined $link and ref $link eq 'WebGUI::DatabaseLink');
}
}