chore(testdata): add exam label test data

test/Database/Fill.hs

@@ -488,6 +488,22 @@ fillDb = do
     void . insert' $ UserSchool uid ifi False
   for_ [gkleen, tinaTester] $ \uid ->
     void . insert' $ UserSchool uid mi False
+
+  let
+    examLabels = Map.fromList
+      [ ( sbarth
+        , [ ("In Bearbeitung"      , Success   , 4)
+          , ("Sonderfall"          , Warning   , 1)
+          , ("Zu überprüfen"       , Error     , 1)
+          , ("Weiterzuleiten"      , Info      , 3)
+          , ("Nicht zu bearbeiten" , Nonactive , -1)
+          ]
+        )
+      ]
+  for_ (Map.toList examLabels) $ \(examOfficeLabelUser, labels) ->
+    for_ labels $ \(examOfficeLabelName, examOfficeLabelStatus, examOfficeLabelPriority) ->
+      void $ insert' ExamOfficeLabel{..}
+
   let
     sdBsc = StudyDegreeKey' 82
     sdMst = StudyDegreeKey' 88