Skip to content

Commit

Permalink
Fix assertions of RPCs
Browse files Browse the repository at this point in the history
  • Loading branch information
pcapriotti authored and stefanwire committed Jan 31, 2023
1 parent 048bf48 commit 4701626
Showing 1 changed file with 4 additions and 2 deletions.
6 changes: 4 additions & 2 deletions services/galley/test/integration/API.hs
Original file line number Diff line number Diff line change
Expand Up @@ -2954,8 +2954,10 @@ deleteRemoteMemberConvLocalQualifiedOk = do
Left err -> assertFailure err
Right e -> assertLeaveEvent qconvId qAlice [qChad] e

let [remote1GalleyFederatedRequest] = fedRequestsForDomain remoteDomain1 Galley federatedRequests
[remote2GalleyFederatedRequest] = fedRequestsForDomain remoteDomain2 Galley federatedRequests
remote1GalleyFederatedRequest <-
assertOne (filter ((== "on-conversation-updated") . frRPC) (fedRequestsForDomain remoteDomain1 Galley federatedRequests))
remote2GalleyFederatedRequest <-
assertOne (filter ((== "on-conversation-updated") . frRPC) (fedRequestsForDomain remoteDomain2 Galley federatedRequests))
assertRemoveUpdate remote1GalleyFederatedRequest qconvId qAlice [qUnqualified qChad, qUnqualified qDee] qChad
assertRemoveUpdate remote2GalleyFederatedRequest qconvId qAlice [qUnqualified qEve] qChad

Expand Down

0 comments on commit 4701626

Please sign in to comment.