testcookie program wip

2 files changed, 45 insertions, 0 deletions

diff --git a/dht-client.cabal b/dht-client.cabal
index 77ea1736..81521e05 100644
--- a/dht-client.cabal
+++ b/dht-client.cabal
@@ -285,3 +285,8 @@ executable dhtd
     cpp-options:   -DXMPP
   ghc-options:         -rtsopts  -fdefer-typed-holes -threaded
 
+executable testcookie
+  hs-source-dirs:      examples
+  main-is:             testcookie.hs
+  default-language:    Haskell2010
+  build-depends:       base, bytestring, cereal, dht-client, stm
diff --git a/examples/testcookie.hs b/examples/testcookie.hs
new file mode 100644
index 00000000..c4974125
--- /dev/null
+++ b/examples/testcookie.hs
@@ -0,0 +1,40 @@
+
+
+import System.Exit
+
+import Control.Concurrent.STM
+import Crypto.Tox
+import Network.Tox
+import Network.Tox.DHT.Handlers
+import Network.Tox.Crypto.Handlers
+
+import Data.Serialize as S
+
+--
+-- Some relevant functions:
+--
+-- src/Network/Tox.hs
+-- newCrypto :: IO TransportCrypto
+--
+-- src/Network/Tox/DHT/Handlers.hs
+-- createCookie :: TransportCrypto -> NodeInfo -> PublicKey -> IO Cookie
+--
+-- src/Crypto/Tox.hs
+-- decryptSymmetric :: SymmetricKey -> Nonce24 -> Encrypted a -> Either String (Plain s a)
+--
+--src/Network/Tox/NodeId.hs
+--nodeInfo :: NodeId -> SockAddr -> Either String NodeInfo
+--
+
+main = do
+    crypto <- newCrypto
+    n24 <- atomically $ transportNewNonce crypto
+    putStrLn $ "n24 = " ++ show n24
+    let e24 = S.encode n24
+    case (S.decode e24) of
+        Left e -> do
+            putStrLn $ "serialize Failure:" ++ show e
+            exitFailure
+        Right  n24' -> do
+          putStrLn $ "n24' = " ++ show n24'
+          if n24' == n24 then exitSuccess else exitFailure