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

chore(tests): fix tests

Browse Source
This commit is contained in:
Gregor Kleen 2019-07-26 12:03:43 +02:00
parent cf351180dc
commit 7d3fa173b6
2 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
test/ModelSpec.hs
View File

@ -84,6 +84,8 @@ instance Arbitrary User where
names <- listOf1 $ pack . getPrintableString <$> arbitrary names <- listOf1 $ pack . getPrintableString <$> arbitrary
userDisplayName <- unwords <$> sublistOf names userDisplayName <- unwords <$> sublistOf names
userSurname <- unwords <$> sublistOf names userSurname <- unwords <$> sublistOf names
userFirstName <- unwords <$> sublistOf names
userTitle <- fmap (pack . getPrintableString) <$> arbitrary
userMaxFavourites <- getNonNegative <$> arbitrary userMaxFavourites <- getNonNegative <$> arbitrary
userTheme <- arbitrary userTheme <- arbitrary

2
test/TestImport.hs
View File

@ -116,6 +116,8 @@ createUser adjUser = do
userEmail = "dummy@example.invalid" userEmail = "dummy@example.invalid"
userDisplayName = "Dummy Example" userDisplayName = "Dummy Example"
userSurname = "Example" userSurname = "Example"
userFirstName = "Dummy"
userTitle = Nothing
userTheme = userDefaultTheme userTheme = userDefaultTheme
userMaxFavourites = userDefaultMaxFavourites userMaxFavourites = userDefaultMaxFavourites
userDateTimeFormat = userDefaultDateTimeFormat userDateTimeFormat = userDefaultDateTimeFormat