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