Skip to content

Commit

Permalink
Fix mixed protocol upgrade test
Browse files Browse the repository at this point in the history
  • Loading branch information
pcapriotti committed May 15, 2023
1 parent 8a55e28 commit 76ca507
Showing 1 changed file with 1 addition and 1 deletion.
2 changes: 1 addition & 1 deletion integration/test/Test/MLS.hs
Original file line number Diff line number Diff line change
Expand Up @@ -22,7 +22,7 @@ ptestMixedProtocolUpgrade secondDomain = do
d2 <- secondDomain & asString
createAndConnectUsers [d, d2, d2]

qcnv <- postConversation alice defProteus {qualifiedUsers = [bob]} >>= getJSON 201
qcnv <- postConversation alice defProteus {qualifiedUsers = [bob, charlie]} >>= getJSON 201

withWebSockets [alice, charlie] $ \websockets -> do
bindResponse (putConversationProtocol bob qcnv "mixed") $ \resp -> do
Expand Down

0 comments on commit 76ca507

Please sign in to comment.