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

update User test for new User Profile table scheme

Browse source
This commit is contained in:
Colin Kuskie 2007-05-29 18:09:50 +00:00
parent c2a675564b
commit 907f31b97d
1 changed files with 2 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

5
t/User.t
View file

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