background-worker: Add unit test for getting domains from RabbitMqAdmin

akshaymankar · akshaymankar · commit 4d83eb9f8708 · 2023-06-26T15:12:48.000+02:00
diff --git a/libs/extended/src/Network/RabbitMqAdmin.hs b/libs/extended/src/Network/RabbitMqAdmin.hs
@@ -39,6 +39,8 @@ data Queue = Queue {name :: Text, vhost :: Text}
 
 instance FromJSON Queue
 
+instance ToJSON Queue
+
 adminClient :: BasicAuthData -> AdminAPI (AsClientT ClientM)
 adminClient ba = fromServant $ clientWithAuth.api ba
   where
diff --git a/services/background-worker/background-worker.cabal b/services/background-worker/background-worker.cabal
@@ -162,12 +162,26 @@ test-suite background-worker-test
       aeson
     , amqp
     , background-worker
+    , base
+    , bytestring
+    , containers
+    , extended
     , federator
     , hspec
+    , http-media
+    , http-types
     , imports
     , QuickCheck
+    , servant
+    , servant-client
+    , servant-client-core
+    , servant-server
+    , text
     , tinylog
+    , transformers
     , types-common
+    , unliftio
+    , wai
     , wire-api
     , wire-api-federation
 
diff --git a/services/background-worker/test/Test/Wire/BackendNotificationPusherSpec.hs b/services/background-worker/test/Test/Wire/BackendNotificationPusherSpec.hs
