diff --git a/test/ModelSpec.hs b/test/ModelSpec.hs
index 78c26ef54..2df4b3958 100644
--- a/test/ModelSpec.hs
+++ b/test/ModelSpec.hs
@@ -130,8 +130,10 @@ instance Arbitrary User where
     userShowSex <- arbitrary
     userMobile                <- fmap pack . assertM' (not . null) <$> listOf (elements $ [' ', '+', '-', '/', '_'] ++ ['0'..'9'])
     userTelephone             <- fmap pack . assertM' (not . null) <$> listOf (elements $ [' ', '+', '-', '/', '_'] ++ ['0'..'9'])
-    userCompanyPersonalNumber <- fmap pack . assertM' (not . null) <$> listOf (elements ['0'..'9'])                              
+    userCompanyPersonalNumber <- fmap pack . assertM' (not . null) <$> listOf (elements ['0'..'9'])
     userCompanyDepartment <- arbitrary
+    userPostAddress <- arbitrary -- TODO: not a good address
+    userPrefersPostal <- arbitrary
     userExamOfficeGetSynced <- arbitrary
     userExamOfficeGetLabels <- arbitrary
 
diff --git a/test/User.hs b/test/User.hs
index a35906532..597f126e7 100644
--- a/test/User.hs
+++ b/test/User.hs
@@ -49,3 +49,5 @@ fakeUser adjUser = adjUser User{..}
     userTelephone = Nothing     
     userCompanyPersonalNumber = Nothing 
     userCompanyDepartment = Nothing
+    userPostAddress = Nothing
+    userPrefersPostal = False