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

Test cleanup for a user and the config file.

Browse source
This commit is contained in:
Colin Kuskie 2009-04-30 20:17:59 +00:00
parent 59eb8bce5b
commit c8b7397bc1
1 changed files with 2 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

7
t/Macro.t
View file

@ -31,9 +31,10 @@ $session->asset($defaultAsset);
##Create a non-admin user who will be in the Registered User group ##Create a non-admin user who will be in the Registered User group
my $registeredUser = WebGUI::User->new($session, "new"); my $registeredUser = WebGUI::User->new($session, "new");
$registeredUser->username('TimBob'); $registeredUser->username('TimBob');
WebGUI::Test->usersToDelete($registeredUser);
$session->user({user => $registeredUser}); $session->user({user => $registeredUser});
my %originalMacros = %{ $session->config->get('macros') }; WebGUI::Test->originalConfig('macros');
##Overwrite any local configuration so that we know how to call it. ##Overwrite any local configuration so that we know how to call it.
foreach my $macro (qw/ foreach my $macro (qw/
GroupText LoginToggle PageTitle MacroStart MacroEnd MacroNest GroupText LoginToggle PageTitle MacroStart MacroEnd MacroNest
@ -283,8 +284,4 @@ is(
END { END {
$session->config->set('macros', \%originalMacros);
foreach my $dude ($registeredUser) {
$dude->delete if (defined $dude and ref $dude eq 'WebGUI::User');
}
} }