fraport/fradrive-old
Archived
3
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

chore: fix tests

Browse Source
This commit is contained in:
Gregor Kleen 2019-09-12 17:42:04 +02:00
parent 2f38278ab1
commit 95e99db540
3 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
test/Database.hs
View File

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

1
test/ModelSpec.hs
View File

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

1
test/TestImport.hs
View File

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