Test: Migrate "Remote connections: send then cancel"

integration/test/Test/Connection.hs

@@ -184,3 +184,13 @@ testSentFromBlocked = do
   -- transitions to "sent"
   void $ putConnection alice bob "accepted" >>= getBody 200
   assertConnectionStatus alice bob "sent"
+
+testCancel :: HasCallStack => App ()
+testCancel = do
+  [alice, bob] <- forM [OwnDomain, OtherDomain] $ flip randomUser def
+
+  void $ postConnection alice bob >>= getBody 201
+  assertConnectionStatus alice bob "sent"
+
+  void $ putConnection alice bob "cancelled" >>= getBody 200
+  assertConnectionStatus alice bob "cancelled"

services/brig/test/integration/API/User/Connection.hs

@@ -99,7 +99,6 @@ tests cl _at opts p b _c g fedBrigClient _fedGalleyClient db =
       test p "Remote connections: connect with Anon" (testConnectWithAnon b fedBrigClient),
       test p "Remote connections: connection from Anon" (testConnectFromAnon b),
       test p "Remote connections: connect twice" (testConnectFromPending b fedBrigClient),
-      test p "Remote connections: send then cancel" (testCancel opts b),
       test p "Remote connections: limits" (testConnectionLimits opts b fedBrigClient),
       test p "post /users/connections-status/v2 : All connections" (testInternalGetConnStatusesAll b opts fedBrigClient)
     ]
@@ -750,13 +749,6 @@ testConnectFromPending brig fedBrigClient = do
   receiveConnectionAction brig fedBrigClient uid1 quid2 RemoteConnect Nothing Pending
   receiveConnectionAction brig fedBrigClient uid1 quid2 RemoteRescind Nothing Cancelled
 
-testCancel :: Opt.Opts -> Brig -> Http ()
-testCancel opts brig = do
-  (uid1, quid2) <- localAndRemoteUser brig
-
-  sendConnectionAction brig opts uid1 quid2 Nothing Sent
-  sendConnectionUpdateAction brig opts uid1 quid2 Nothing Cancelled
-
 testConnectionLimits :: Opt.Opts -> Brig -> FedClient 'Brig -> Http ()
 testConnectionLimits opts brig fedBrigClient = do
   let connectionLimit = Opt.setUserMaxConnections (Opt.optSettings opts)