1 files changed, 19 insertions, 2 deletions

diff --git a/examples/testTox.hs b/examples/testTox.hs
index 53ed25dc..53cb3586 100644
--- a/examples/testTox.hs
+++ b/examples/testTox.hs
@@ -1,5 +1,5 @@
 {-# LANGUAGE NamedFieldPuns #-}
-import Control.Concurrent (threadDelay)
+import Control.Concurrent                    (threadDelay)
 import Control.Concurrent.STM.TChan
 import Control.Concurrent.STM.TMChan
 import Control.Concurrent.STM.TVar
@@ -16,7 +16,8 @@ import Network.Tox.ContactInfo
 import qualified Network.Tox.Crypto.Handlers as CH
 import Network.Tox.Crypto.Transport
 import Network.Tox.DHT.Handlers              as DHT
-import Network.Tox.Onion.Transport           (UDPTransport)
+import Network.Tox.DHT.Transport
+import Network.Tox.Onion.Transport
 
 
 makeToxNode :: UDPTransport -> Maybe SecretKey -> IO (Tox extra)
@@ -75,8 +76,24 @@ main = do
 
     threadReport False >>= putStrLn
 
+    -- Tell /a/ about /b/'s DHT-key.
+    updateContactInfo (toxContactInfo a_Ct7g5azVcJ8KnvxzbXs9GqeqcjrP7VdZXIC'uHeTlRf)
+                      (AnnouncedRendezvous (id2key $ read "AvETKhO-YqnNRopZrj8K3xUpGtGbX0sLhZZjh2VufJB") -- b toxid
+                                           (Rendezvous (error "pointless mitm key") b))
+                    $ ( id2key $ read "BDDj3maMmK8hR3mTpju29wmtE2YJ5cf8NlNEWi1dXlI" -- a toxid
+                      , OnionDHTPublicKey DHTPublicKey
+                        { dhtpkNonce = 0
+                        , dhtpk      = id2key $ nodeId b
+                        , dhtpkNodes = SendNodes []
+                        }
+                      )
+
     DHT.ping (toxDHT a_Ct7g5azVcJ8KnvxzbXs9GqeqcjrP7VdZXIC'uHeTlRf) b
 
+
+    -- sendMessage (toxHandshakes a_Ct7g5azVcJ8KnvxzbXs9GqeqcjrP7VdZXIC'uHeTlRf) (nodeAddr b) hs
+
+
     putStrLn "Type Enter to quit..."
     getLine