Last batch of User and Group cleanups.

This commit is contained in:
Colin Kuskie 2009-05-01 03:29:32 +00:00
parent 39607fc208
commit d83f1fd5fc
7 changed files with 7 additions and 12 deletions

View file

@ -24,6 +24,7 @@ plan tests => 4; # increment this value for each test you create
my $session = WebGUI::Test->session;
my $user = WebGUI::User->new($session, "new");
WebGUI::Test->usersToDelete($user);
$session->user({user => $user});
@ -55,8 +56,5 @@ my $slave2 = $session->dbSlave;
isa_ok($slave2, 'WebGUI::SQL');
END {
foreach my $dude ($user) {
$dude->delete if (defined $dude and ref $dude eq 'WebGUI::User');
}
$session->config->delete('dbslave2');
}