From 7d3fa173b6d00916c14f86244778e8c70f9805d5 Mon Sep 17 00:00:00 2001 From: Gregor Kleen Date: Fri, 26 Jul 2019 12:03:43 +0200 Subject: [PATCH] chore(tests): fix tests --- test/ModelSpec.hs | 2 ++ test/TestImport.hs | 2 ++ 2 files changed, 4 insertions(+) diff --git a/test/ModelSpec.hs b/test/ModelSpec.hs index e5fbdb9c3..8599e4376 100644 --- a/test/ModelSpec.hs +++ b/test/ModelSpec.hs @@ -84,6 +84,8 @@ instance Arbitrary User where names <- listOf1 $ pack . getPrintableString <$> arbitrary userDisplayName <- unwords <$> sublistOf names userSurname <- unwords <$> sublistOf names + userFirstName <- unwords <$> sublistOf names + userTitle <- fmap (pack . getPrintableString) <$> arbitrary userMaxFavourites <- getNonNegative <$> arbitrary userTheme <- arbitrary diff --git a/test/TestImport.hs b/test/TestImport.hs index 48e0b5d27..4fecfbb19 100644 --- a/test/TestImport.hs +++ b/test/TestImport.hs @@ -116,6 +116,8 @@ createUser adjUser = do userEmail = "dummy@example.invalid" userDisplayName = "Dummy Example" userSurname = "Example" + userFirstName = "Dummy" + userTitle = Nothing userTheme = userDefaultTheme userMaxFavourites = userDefaultMaxFavourites userDateTimeFormat = userDefaultDateTimeFormat