From 188f101eed9f3c9f6ccf6458fdfcfba341ab44d8 Mon Sep 17 00:00:00 2001
From: Steffen Jost <jost@tcs.ifi.lmu.de>
Date: Tue, 30 Aug 2022 18:25:52 +0200
Subject: [PATCH] test(user): add new field to fix build

---
 test/ModelSpec.hs | 4 +++-
 test/User.hs      | 2 ++
 2 files changed, 5 insertions(+), 1 deletion(-)

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