1 files changed, 13 insertions, 0 deletions

diff --git a/examples/testcookie.hs b/examples/testcookie.hs
index c4974125..5f5d4e83 100644
--- a/examples/testcookie.hs
+++ b/examples/testcookie.hs
@@ -7,6 +7,7 @@ import Crypto.Tox
 import Network.Tox
 import Network.Tox.DHT.Handlers
 import Network.Tox.Crypto.Handlers
+import Network.Tox.DHT.Transport (Cookie(..))
 
 import Data.Serialize as S
 
@@ -28,6 +29,18 @@ import Data.Serialize as S
 
 main = do
     crypto <- newCrypto
+    secUser <- generateSecretKey
+    let pubUser = toPublic secUser
+        node = read "Ivr3mkGriCmv5FeF91UPZbkirDfpIagXcfvo6ozUCRp@92.99.99.99:33412"
+    ecookie@(Cookie cookieNonce eCookieData) <- createCookie crypto node pubUser
+
+    let bs = encode ecookie
+    print $ (decode bs :: Either String Cookie)
+
+
+    sym <- atomically $ transportSymmetric crypto
+    print $ decryptSymmetric sym cookieNonce eCookieData >>= decodePlain
+
     n24 <- atomically $ transportNewNonce crypto
     putStrLn $ "n24 = " ++ show n24
     let e24 = S.encode n24