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

fix(test): build

Browse Source
This commit is contained in:
Gregor Kleen 2019-10-16 18:48:14 +02:00
parent a2ffeec336
commit 443b871680
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
test/Database.hs
View File

@ -718,7 +718,7 @@ fillDb = do
, tutorialCourse = pmo , tutorialCourse = pmo
, tutorialType = "Tutorium" , tutorialType = "Tutorium"
, tutorialCapacity = Just 30 , tutorialCapacity = Just 30
, tutorialRoom = "Hilbert-Raum" , tutorialRoom = Just "Hilbert-Raum"
, tutorialTime = Occurrences , tutorialTime = Occurrences
{ occurrencesScheduled = Set.singleton $ ScheduleWeekly Tuesday (TimeOfDay 08 15 00) (TimeOfDay 10 00 00) { occurrencesScheduled = Set.singleton $ ScheduleWeekly Tuesday (TimeOfDay 08 15 00) (TimeOfDay 10 00 00)
, occurrencesExceptions = Set.empty , occurrencesExceptions = Set.empty
@ -737,7 +737,7 @@ fillDb = do
, tutorialCourse = pmo , tutorialCourse = pmo
, tutorialType = "Tutorium" , tutorialType = "Tutorium"
, tutorialCapacity = Just 30 , tutorialCapacity = Just 30
, tutorialRoom = "Hilbert-Raum" , tutorialRoom = Just "Hilbert-Raum"
, tutorialTime = Occurrences , tutorialTime = Occurrences
{ occurrencesScheduled = Set.singleton $ ScheduleWeekly Tuesday (TimeOfDay 10 15 00) (TimeOfDay 12 00 00) { occurrencesScheduled = Set.singleton $ ScheduleWeekly Tuesday (TimeOfDay 10 15 00) (TimeOfDay 12 00 00)
, occurrencesExceptions = Set.empty , occurrencesExceptions = Set.empty

2
test/ModelSpec.hs
View File

@ -63,7 +63,7 @@ instance Arbitrary Tutorial where
<*> arbitrary <*> arbitrary
<*> (CI.mk . pack . getPrintableString <$> arbitrary) <*> (CI.mk . pack . getPrintableString <$> arbitrary)
<*> (fmap getPositive <$> arbitrary) <*> (fmap getPositive <$> arbitrary)
<*> (pack . getPrintableString <$> arbitrary) <*> (assertM' (not . null) . pack . getPrintableString <$> arbitrary)
<*> arbitrary <*> arbitrary
<*> (fmap (CI.mk . pack . getPrintableString) <$> arbitrary) <*> (fmap (CI.mk . pack . getPrintableString) <$> arbitrary)
<*> arbitrary <*> arbitrary