From 95e99db5407ede67f4e4c1824e39ad0a8ab49382 Mon Sep 17 00:00:00 2001
From: Gregor Kleen <kleen@cip.ifi.lmu.de>
Date: Thu, 12 Sep 2019 17:42:04 +0200
Subject: [PATCH] chore: fix tests

---
 test/Database.hs   | 6 ++++++
 test/ModelSpec.hs  | 1 +
 test/TestImport.hs | 1 +
 3 files changed, 8 insertions(+)

diff --git a/test/Database.hs b/test/Database.hs
index 065f6015f..280bcead3 100755
--- a/test/Database.hs
+++ b/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"
diff --git a/test/ModelSpec.hs b/test/ModelSpec.hs
index ecab8fe15..a0139e9a8 100644
--- a/test/ModelSpec.hs
+++ b/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
diff --git a/test/TestImport.hs b/test/TestImport.hs
index 080f4782a..61b96ab43 100644
--- a/test/TestImport.hs
+++ b/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"