fraport/fradrive-old
fraport/fradrive-old
Archived
3
1
Fork 0
Code Issues 65 Pull Requests 5 Actions Packages Projects Releases 197 Wiki Activity

test(user): add new field to fix build

Browse Source
This commit is contained in:
Steffen Jost 2022-08-30 18:25:52 +02:00
parent 8417eb57c9
commit 188f101eed
2 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
test/ModelSpec.hs
View File

@ -130,8 +130,10 @@ instance Arbitrary User where
userShowSex <- arbitrary userShowSex <- arbitrary
userMobile <- fmap pack . assertM' (not . null) <$> listOf (elements $ [' ', '+', '-', '/', '_'] ++ ['0'..'9']) userMobile <- fmap pack . assertM' (not . null) <$> listOf (elements $ [' ', '+', '-', '/', '_'] ++ ['0'..'9'])
userTelephone <- 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 userCompanyDepartment <- arbitrary
userPostAddress <- arbitrary -- TODO: not a good address
userPrefersPostal <- arbitrary
userExamOfficeGetSynced <- arbitrary userExamOfficeGetSynced <- arbitrary
userExamOfficeGetLabels <- arbitrary userExamOfficeGetLabels <- arbitrary

2
test/User.hs
View File

@ -49,3 +49,5 @@ fakeUser adjUser = adjUser User{..}
userTelephone = Nothing userTelephone = Nothing
userCompanyPersonalNumber = Nothing userCompanyPersonalNumber = Nothing
userCompanyDepartment = Nothing userCompanyDepartment = Nothing
userPostAddress = Nothing
userPrefersPostal = False