From 907f31b97d2fb8f80eaaaf1d4f99fbaadf9ec70c Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Tue, 29 May 2007 18:09:50 +0000
Subject: [PATCH] update User test for new User Profile table scheme

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

diff --git a/t/User.t b/t/User.t
index 4d7d0ceb6..79226ec5e 100644
--- a/t/User.t
+++ b/t/User.t
@@ -323,6 +323,7 @@ $session->config->delete('adminModeSubnets');
 #
 ################################################################
 
+my $originalVisitorEmail = $visitor->profileField('email');
 $visitor->profileField('email', 'visitor@localdomain');
 $dude->profileField('email', 'dude@aftery2k.com');
 
@@ -393,8 +394,6 @@ $buster->uncache;
 $buster3 = WebGUI::User->new($session, $buster->userId);
 is($buster3->profileField('listProfile'), 'alpha', 'profile field with default data value that is a list gives the user the first value');
 
-$listProfileField->delete;
-
 ################################################################
 #
 # getGroups
@@ -430,8 +429,8 @@ END {
     $profileField->set(\%originalFieldData);
     $aliasProfile->set(\%originalAliasProfile);
     $listProfileField->delete;
+    $visitor->profileField('email', $originalVisitorEmail);
 
 	$testCache->flush;
-    $session->db->write(q!delete from userProfileData where userId='1' and fieldName='email'!);
 }