WPB-4262: Fixing tests for inbound federator calls.

services/federator/test/integration/Test/Federator/IngressSpec.hs

@@ -145,7 +145,7 @@ inwardBrigCallViaIngressWithSettings ::
 inwardBrigCallViaIngressWithSettings sslCtx requestPath payload =
   do
     Endpoint ingressHost ingressPort <- nginxIngress . view teTstOpts <$> input
-    originDomain <- originDomain . view teTstOpts <$> input
+    originDomain <- (._teTstOpts.backendTwo.originDomain) <$> input @TestEnv
     let target = SrvTarget (cs ingressHost) ingressPort
         headers = [(originDomainHeaderName, Text.encodeUtf8 originDomain)]
     mgr <- liftToCodensity . liftIO $ http2ManagerWithSSLCtx sslCtx

services/federator/test/integration/Test/Federator/InwardSpec.hs

@@ -75,9 +75,11 @@ spec env =
         _ <- putHandle brig (userId user) hdl
 
         let expectedProfile = (publicProfile user UserLegalHoldNoConsent) {profileHandle = Just (Handle hdl)}
+        backendTwoDomain <- toByteString' <$> asks (._teTstOpts.backendTwo.originDomain)
         bdy <-
           responseJsonError
-            =<< inwardCall "/federation/brig/get-user-by-handle" (encode hdl)
+            -- Explicitly make the call from a domain outside of Federator's own domain
+            =<< inwardCallWithOriginDomain backendTwoDomain "/federation/brig/get-user-by-handle" (encode hdl)
               <!! const 200 === statusCode
         liftIO $ bdy `shouldBe` expectedProfile
 
@@ -126,7 +128,7 @@ spec env =
     -- and "IngressSpec".
     it "rejectRequestsWithoutClientCertInward" $
       runTestFederator env $ do
-        originDomain <- originDomain <$> view teTstOpts
+        originDomain <- (.originDomain) <$> view teTstOpts
         hdl <- randomHandle
         inwardCallWithHeaders
           "federation/brig/get-user-by-handle"
@@ -160,7 +162,7 @@ inwardCall ::
   LBS.ByteString ->
   m (Response (Maybe LByteString))
 inwardCall requestPath payload = do
-  originDomain :: Text <- originDomain <$> view teTstOpts
+  originDomain :: Text <- (.originDomain) <$> view teTstOpts
   inwardCallWithOriginDomain (toByteString' originDomain) requestPath payload
 
 inwardCallWithOriginDomain ::

services/federator/test/integration/Test/Federator/Util.hs

@@ -108,12 +108,18 @@ data IntegrationConfig = IntegrationConfig
     cargohold :: Endpoint,
     federatorExternal :: Endpoint,
     nginxIngress :: Endpoint,
-    originDomain :: Text
+    originDomain :: Text,
+    backendTwo :: BackendTwoConfig
   }
   deriving (Show, Generic)
 
-deriveFromJSON deriveJSONOptions ''IntegrationConfig
+newtype BackendTwoConfig = BackendTwoConfig
+  { originDomain :: Text
+  }
+  deriving (Show, Generic)
 
+deriveFromJSON deriveJSONOptions ''BackendTwoConfig
+deriveFromJSON deriveJSONOptions ''IntegrationConfig
 makeLenses ''TestEnv
 
 -- | Call 'mkEnv' with options from config files.