We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
1 parent af3fb54 commit 7ab9923Copy full SHA for 7ab9923
integration/test/Test/Conversation.hs
@@ -967,9 +967,10 @@ testGetConversationInternal = do
967
I.getConversation conv `bindResponse` \resp -> do
968
resp.status `shouldMatchInt` 200
969
resp.json %. "qualified_id" `shouldMatch` objQidObject conv
970
- members <- resp.json %. "members" & asList
+ members <- resp.json %. "members.others" & asList
971
memberIds <- for members (%. "qualified_id")
972
memberIds `shouldMatchSet` (for (owner : mems) (%. "qualified_id"))
973
+ lookupField resp.json "members.self" `shouldMatch` (Nothing @Value)
974
975
testGetSelfMember :: (HasCallStack) => App ()
976
testGetSelfMember = do
0 commit comments