add sendChatMsg test to testTox

1 files changed, 19 insertions, 0 deletions

diff --git a/examples/testTox.hs b/examples/testTox.hs
index a58c1fa0..5314024f 100644
--- a/examples/testTox.hs
+++ b/examples/testTox.hs
@@ -28,6 +28,7 @@ import Network.Tox.Onion.Transport
 import Connection
 import qualified Data.HashMap.Strict as HashMap
          ;import Data.HashMap.Strict (HashMap)
+import qualified Data.Map.Strict as Map
 import Data.Time.Clock.POSIX
 import System.Exit
 
@@ -125,6 +126,24 @@ main = do
         tid <- myThreadId
         labelThread tid "testToxLaunch"
         void $ netCrypto a_Ct7g5azVcJ8KnvxzbXs9GqeqcjrP7VdZXIC'uHeTlRf a_secret b_public
+        dput XUnused "REACHEDREACHEDREACHEDREACHED"
+        dput XUnused "REACHEDREACHEDREACHEDREACHED"
+        dput XUnused "REACHEDREACHEDREACHEDREACHED"
+        threadDelay 1000000
+        -- a says "Howdy"
+        mp_a <- atomically . readTVar $ CH.netCryptoSessionsByKey (toxCryptoSessions a_Ct7g5azVcJ8KnvxzbXs9GqeqcjrP7VdZXIC'uHeTlRf)
+        case Map.lookup b_public mp_a of
+            Just [session] -> do
+                dput XUnused "----------------- HOWDY ---------------"
+                CH.sendChatMsg (toxCryptoKeys a_Ct7g5azVcJ8KnvxzbXs9GqeqcjrP7VdZXIC'uHeTlRf) session "Howdy"
+        -- b says "Hey you!"
+        mp_b <- atomically . readTVar $ CH.netCryptoSessionsByKey (toxCryptoSessions b_OM7znaPMYkTbm'9GcZJAdnDATXmZxZ9fnaSTP3qNCZk)
+        case Map.lookup a_public mp_b of
+            Just [session] -> do
+                dput XUnused "----------------- HEY YOU ---------------"
+                void $ CH.sendChatMsg (toxCryptoKeys b_OM7znaPMYkTbm'9GcZJAdnDATXmZxZ9fnaSTP3qNCZk) session "Hey you!"
+            Just xs -> dput XUnused "Unexpectedly b has TOO MANY sesions for a"
+            Nothing -> dput XUnused "Unexpectedly b has NO session for a"
 
     putStrLn "Type Enter to quit..."
     getLine