chore(tests): fix tests

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

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