From 1e268ee23854d9e9fc685a7f280f6dbc3be7f5e6 Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Sat, 28 Mar 2009 03:57:30 +0000
Subject: [PATCH] Make User.t use the new automatic config file restorer. Clean
 up some END block code.

---
 t/User.t | 6 ++----
 1 file changed, 2 insertions(+), 4 deletions(-)

diff --git a/t/User.t b/t/User.t
index 60493cc5b..340ca7a8a 100644
--- a/t/User.t
+++ b/t/User.t
@@ -314,6 +314,7 @@ $dude->deleteFromGroups([12]);
 my $origEnvHash = $session->env->{_env};
 my %newEnv = ( REMOTE_ADDR => '194.168.0.2' );
 $session->env->{_env} = \%newEnv;
+WebGUI::Test->originalConfig('adminModeSubnets');
 $session->config->set('adminModeSubnets', ['194.168.0.0/24']);
 
 ok(!$dude->isInGroup(12), 'user is not in group 12');
@@ -650,10 +651,7 @@ END {
         }
     }
 
-    (defined $expiredGroup  and ref $expiredGroup  eq 'WebGUI::Group') and $expiredGroup->delete;
-
     ##Note, do not delete the visitor account.  That would be really bad
-    $session->config->delete('adminModeSubnets');
 
     $profileField->set(\%originalFieldData);
     $aliasProfile->set(\%originalAliasProfile);
@@ -661,7 +659,7 @@ END {
     $evalProfileField->delete;
     $visitor->profileField('email', $originalVisitorEmail);
 
-    $newProfileField->delete();
+    $newProfileField->delete() if $newProfileField;
 
 	$testCache->flush;
     my $newNumberOfUsers  = $session->db->quickScalar('select count(*) from users');