mirror of
https://github.com/simplex-chat/simplex-chat.git
synced 2026-05-14 03:55:20 +00:00
spaced4ndy
41 lines
1.1 KiB
Haskell
41 lines
1.1 KiB
Haskell
{-# LANGUAGE OverloadedStrings #-}
|
|
{-# LANGUAGE PostfixOperators #-}
|
|
|
|
module ChatTests.Forward where
|
|
|
|
import ChatClient
|
|
import ChatTests.Utils
|
|
import Test.Hspec hiding (it)
|
|
|
|
chatForwardTests :: SpecWith FilePath
|
|
chatForwardTests = do
|
|
fdescribe "forward messages" $ do
|
|
it "from contact to contact" testForwardContactContact
|
|
|
|
testForwardContactContact :: HasCallStack => FilePath -> IO ()
|
|
testForwardContactContact =
|
|
testChat3 aliceProfile bobProfile cathProfile $
|
|
\alice bob cath -> do
|
|
connectUsers alice bob
|
|
connectUsers alice cath
|
|
connectUsers bob cath
|
|
|
|
alice #> "@bob hi"
|
|
bob <# "alice> hi"
|
|
|
|
msgId <- lastItemId alice
|
|
alice ##> ("/_forward @2 @3 " <> msgId)
|
|
alice <# "@cath -> from conversation: bob"
|
|
alice <## " hi"
|
|
cath <# "alice> -> forwarded"
|
|
cath <## " hi"
|
|
|
|
alice #> "@bob hey"
|
|
bob <# "alice> hey"
|
|
|
|
bob `send` "> @alice -> @cath hey"
|
|
bob <# "@cath -> from conversation: alice"
|
|
bob <## " hey"
|
|
cath <# "bob> -> forwarded"
|
|
cath <## " hey"
|