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