Skip to content

Commit 7ab9923

Browse files
committed
fix test
1 parent af3fb54 commit 7ab9923

File tree

1 file changed

+2
-1
lines changed

1 file changed

+2
-1
lines changed

integration/test/Test/Conversation.hs

Lines changed: 2 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -967,9 +967,10 @@ testGetConversationInternal = do
967967
I.getConversation conv `bindResponse` \resp -> do
968968
resp.status `shouldMatchInt` 200
969969
resp.json %. "qualified_id" `shouldMatch` objQidObject conv
970-
members <- resp.json %. "members" & asList
970+
members <- resp.json %. "members.others" & asList
971971
memberIds <- for members (%. "qualified_id")
972972
memberIds `shouldMatchSet` (for (owner : mems) (%. "qualified_id"))
973+
lookupField resp.json "members.self" `shouldMatch` (Nothing @Value)
973974

974975
testGetSelfMember :: (HasCallStack) => App ()
975976
testGetSelfMember = do

0 commit comments

Comments
 (0)