chore: fix tests

test/Database.hs

@@ -93,6 +93,7 @@ fillDb = do
     , userTokensIssuedAfter = Just now
     , userMatrikelnummer = Nothing
     , userEmail  = "G.Kleen@campus.lmu.de"
+    , userDisplayEmail = "gregor.kleen@ifi.lmu.de"
     , userDisplayName = "Gregor Kleen"
     , userSurname = "Kleen"
     , userFirstName = "Gregor Julius Arthur"
@@ -116,6 +117,7 @@ fillDb = do
     , userTokensIssuedAfter = Nothing
     , userMatrikelnummer = Nothing
     , userEmail  = "felix.hamann@campus.lmu.de"
+    , userDisplayEmail = "felix.hamann@campus.lmu.de"
     , userDisplayName = "Felix Hamann"
     , userSurname = "Hamann"
     , userFirstName = "Felix"
@@ -139,6 +141,7 @@ fillDb = do
     , userTokensIssuedAfter = Nothing
     , userMatrikelnummer = Nothing
     , userEmail  = "jost@tcs.ifi.lmu.de"
+    , userDisplayEmail = "jost@tcs.ifi.lmu.de"
     , userDisplayName = "Steffen Jost"
     , userSurname = "Jost"
     , userFirstName = "Steffen"
@@ -162,6 +165,7 @@ fillDb = do
     , userTokensIssuedAfter = Nothing
     , userMatrikelnummer = Just "1299"
     , userEmail  = "max@campus.lmu.de"
+    , userDisplayEmail = "max@max.com"
     , userDisplayName = "Max Musterstudent"
     , userSurname = "Musterstudent"
     , userFirstName = "Max"
@@ -185,6 +189,7 @@ fillDb = do
     , userTokensIssuedAfter = Nothing
     , userMatrikelnummer = Just "999"
     , userEmail  = "tester@campus.lmu.de"
+    , userDisplayEmail = "tina@tester.example"
     , userDisplayName = "Tina Tester"
     , userSurname = "von Terror"
     , userFirstName = "Sabrina"
@@ -208,6 +213,7 @@ fillDb = do
     , userTokensIssuedAfter = Nothing
     , userMatrikelnummer = Nothing
     , userEmail  = "vaupel.sarah@campus.lmu.de"
+    , userDisplayEmail = "vaupel.sarah@campus.lmu.de"
     , userDisplayName = "Sarah Vaupel"
     , userSurname = "Vaupel"
     , userFirstName = "Sarah"

test/ModelSpec.hs

@@ -80,6 +80,7 @@ instance Arbitrary User where
     userTokensIssuedAfter <- arbitrary
     userMatrikelnummer <- fmap pack . assertM' (not . null) <$> listOf (elements ['0'..'9'])
     userEmail <- CI.mk . decodeUtf8 . Email.toByteString <$> arbitrary
+    userDisplayEmail <- CI.mk . decodeUtf8 . Email.toByteString <$> arbitrary
 
     names <- listOf1 $ pack . getPrintableString <$> arbitrary
     userDisplayName <- unwords <$> sublistOf names

test/TestImport.hs

@@ -116,6 +116,7 @@ createUser adjUser = do
     userTokensIssuedAfter = Nothing
     userIdent = "dummy@example.invalid"
     userEmail = "dummy@example.invalid"
+    userDisplayEmail = "dummy@example.invalid"
     userDisplayName = "Dummy Example"
     userSurname = "Example"
     userFirstName = "Dummy"