From f7d1a53737c4710b89b20b3aea6e56f317eb2187 Mon Sep 17 00:00:00 2001
From: Sarah Vaupel <sarah.vaupel@ifi.lmu.de>
Date: Tue, 15 Feb 2022 20:58:11 +0100
Subject: [PATCH] test(system-msg): add volatile cluster test settings

---
 test/Database/Fill.hs | 20 ++++++++++++++++++++
 1 file changed, 20 insertions(+)

diff --git a/test/Database/Fill.hs b/test/Database/Fill.hs
index 4ed996c40..7f9db9a2b 100644
--- a/test/Database/Fill.hs
+++ b/test/Database/Fill.hs
@@ -1121,6 +1121,7 @@ fillDb = do
     { systemMessageNewsOnly = False
     , systemMessageFrom = Just now
     , systemMessageTo = Nothing
+    , systemMessageOnVolatileClusterSettings = Set.empty
     , systemMessageAuthenticatedOnly = False
     , systemMessageSeverity = Success
     , systemMessageManualPriority = Nothing
@@ -1136,6 +1137,7 @@ fillDb = do
     { systemMessageNewsOnly = False
     , systemMessageFrom = Just now
     , systemMessageTo = Nothing
+    , systemMessageOnVolatileClusterSettings = Set.empty
     , systemMessageAuthenticatedOnly = False
     , systemMessageSeverity = Info
     , systemMessageManualPriority = Nothing
@@ -1150,6 +1152,7 @@ fillDb = do
     { systemMessageNewsOnly = False
     , systemMessageFrom = Just now
     , systemMessageTo = Just now
+    , systemMessageOnVolatileClusterSettings = Set.empty
     , systemMessageAuthenticatedOnly = False
     , systemMessageSeverity = Info
     , systemMessageManualPriority = Nothing
@@ -1164,6 +1167,7 @@ fillDb = do
     { systemMessageNewsOnly = False
     , systemMessageFrom = Nothing
     , systemMessageTo = Nothing
+    , systemMessageOnVolatileClusterSettings = Set.empty
     , systemMessageAuthenticatedOnly = False
     , systemMessageSeverity = Error
     , systemMessageManualPriority = Nothing
@@ -1174,10 +1178,26 @@ fillDb = do
     , systemMessageLastChanged = now
     , systemMessageLastUnhide = now
     }
+  void $ insert SystemMessage
+    { systemMessageNewsOnly = False
+    , systemMessageFrom = Just now
+    , systemMessageTo = Nothing
+    , systemMessageOnVolatileClusterSettings = Set.singleton (ClusterVolatileWorkflowsEnabled, toJSON False)
+    , systemMessageAuthenticatedOnly = False
+    , systemMessageSeverity = Warning
+    , systemMessageManualPriority = Nothing
+    , systemMessageDefaultLanguage = "de"
+    , systemMessageContent = "Workflow-System zur Zeit deaktiviert (systemMessageOnVolatileClusterSettings-Test)"
+    , systemMessageSummary = Nothing
+    , systemMessageCreated = now
+    , systemMessageLastChanged = now
+    , systemMessageLastUnhide = now
+    }
   void $ insert SystemMessage
     { systemMessageNewsOnly = True
     , systemMessageFrom = Just now
     , systemMessageTo = Nothing
+    , systemMessageOnVolatileClusterSettings = Set.empty
     , systemMessageAuthenticatedOnly = False
     , systemMessageSeverity = Error
     , systemMessageManualPriority = Nothing