1 files changed, 0 insertions, 39 deletions

diff --git a/tests/client.hs b/tests/client.hs
deleted file mode 100644
index bab11b11..00000000
--- a/tests/client.hs
+++ /dev/null
@@ -1,39 +0,0 @@
-module Main (main) where
-
-import System.Environment
-import Data.ByteString as B
-import Data.ByteString.Lazy as L
-import Data.BEncode
-
-import Data.Torrent
-import Network.Torrent.THP
-import Network.Torrent.PeerID
-
-showWarn :: TResponse -> IO ()
-showWarn resp
-  | Just msg <- respWarning resp = print msg
-  | otherwise = return ()
-
-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
-
-  peerID <- newPeerID
-
-  let req = defaultRequest (tAnnounce t) (tInfoHash t) (peerID)
-  Right resp <- sendRequest req
-
-  print resp
-  showWarn resp