From 443b87168074b60d0b7806450dfbf512ad5b2135 Mon Sep 17 00:00:00 2001
From: Gregor Kleen <kleen@cip.ifi.lmu.de>
Date: Wed, 16 Oct 2019 18:48:14 +0200
Subject: [PATCH] fix(test): build

---
 test/Database.hs  | 4 ++--
 test/ModelSpec.hs | 2 +-
 2 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/test/Database.hs b/test/Database.hs
index 62d26c2c7..a3ca55a07 100755
--- a/test/Database.hs
+++ b/test/Database.hs
@@ -718,7 +718,7 @@ fillDb = do
     , tutorialCourse = pmo
     , tutorialType = "Tutorium"
     , tutorialCapacity = Just 30
-    , tutorialRoom = "Hilbert-Raum"
+    , tutorialRoom = Just "Hilbert-Raum"
     , tutorialTime = Occurrences
       { occurrencesScheduled = Set.singleton $ ScheduleWeekly Tuesday (TimeOfDay 08 15 00) (TimeOfDay 10 00 00)
       , occurrencesExceptions = Set.empty
@@ -737,7 +737,7 @@ fillDb = do
     , tutorialCourse = pmo
     , tutorialType = "Tutorium"
     , tutorialCapacity = Just 30
-    , tutorialRoom = "Hilbert-Raum"
+    , tutorialRoom = Just "Hilbert-Raum"
     , tutorialTime = Occurrences
       { occurrencesScheduled  = Set.singleton $ ScheduleWeekly Tuesday (TimeOfDay 10 15 00) (TimeOfDay 12 00 00)
       , occurrencesExceptions = Set.empty
diff --git a/test/ModelSpec.hs b/test/ModelSpec.hs
index f52c8b13c..cdd916f3b 100644
--- a/test/ModelSpec.hs
+++ b/test/ModelSpec.hs
@@ -63,7 +63,7 @@ instance Arbitrary Tutorial where
     <*> arbitrary
     <*> (CI.mk . pack . getPrintableString <$> arbitrary)
     <*> (fmap getPositive <$> arbitrary)
-    <*> (pack . getPrintableString <$> arbitrary)
+    <*> (assertM' (not . null) . pack . getPrintableString <$> arbitrary)
     <*> arbitrary
     <*> (fmap (CI.mk . pack . getPrintableString) <$> arbitrary)
     <*> arbitrary