added a test for bugfix #9851: New Users have blank profile field privacy settings

t/User.t

@@ -22,7 +22,7 @@ use WebGUI::User;
 use WebGUI::ProfileField;
 use WebGUI::Shop::AddressBook;
 
-use Test::More tests => 223; # increment this value for each test you create
+use Test::More tests => 224; # increment this value for each test you create
 use Test::Deep;
 use Data::Dumper;
 
@@ -42,6 +42,9 @@ WebGUI::Test->usersToDelete($user);
 #New does not return undef if something breaks, so we'll see if the _profile hash was set.
 ok(exists $user->{_profile}, 'new("new") -- profile subhash exists');  
 
+#The new user's profile privacy settings should be set based on their default values
+is($user->getProfileFieldPrivacySetting('uiLevel'),'none','get a profile field privacy setting');
+
 #Let's assign a username
 $user->username("bill_lumberg");
 $lastUpdate = time();