+ tests

1 files changed, 27 insertions, 0 deletions

diff --git a/tests/client.hs b/tests/client.hs
new file mode 100644
index 00000000..5697d18a
--- /dev/null
+++ b/tests/client.hs
@@ -0,0 +1,27 @@
+module Main (main) where
+
+import Data.Torrent
+import Network.Torrent.THP
+import System.Environment
+import Data.ByteString as B
+import Data.ByteString.Lazy as L
+import Data.BEncode
+
+main :: IO ()
+main = do
+  [path] <- getArgs
+  contents <- B.readFile path
+
+  let Right contents' = decode contents >>= return . L.toStrict . encode
+  print (contents' == contents)
+--  let (a, b) = showInfos contents
+--  print b
+--  print a
+--  print (encode b == encoded a)
+
+  let Right b = decode contents
+  let Right t = fromBEncode b
+
+  let req = defaultRequest (tAnnounce t) (tInfoHash t)
+  resp <- sendRequest req
+  print resp