Change tests to use the automatic backup of Settings in END blocks.

This commit is contained in:
Colin Kuskie 2009-03-30 20:41:02 +00:00
parent 6f3aae261b
commit 4e78593395
23 changed files with 13 additions and 93 deletions

View file

@ -48,7 +48,8 @@ our $logger_debug;
our $logger_info;
our $logger_error;
my %originalConfig = ();
my %originalConfig;
my $originalSetting;
BEGIN {
@ -128,6 +129,8 @@ BEGIN {
$SESSION = WebGUI::Session->open( $WEBGUI_ROOT, $CONFIG_FILE );
$SESSION->{_request} = $pseudoRequest;
$originalSetting = clone $SESSION->setting;
}
END {
@ -146,6 +149,10 @@ END {
$SESSION->config->delete($key);
}
}
my $settings = $originalSetting->get();
while (my ($param, $value) = each %{ $settings }) {
$SESSION->setting->set($param, $value);
}
$SESSION->var->end;
$SESSION->close if defined $SESSION;
}