- remove client test

2 files changed, 0 insertions, 57 deletions

diff --git a/network-bittorrent.cabal b/network-bittorrent.cabal
index facbf2f7..fa836e0a 100644
--- a/network-bittorrent.cabal
+++ b/network-bittorrent.cabal
@@ -57,24 +57,6 @@ library
 --  ghc-options:         -Wall
 
 
-executable client
-  main-is:             client.hs
-  build-depends:       base        == 4.5.*
-                     , bytestring >= 0.10.2.0
-                     , network    >= 2.4.1.2
-                     , text
-                     , cereal
-                     , mtl
-
-                     , bencoding  >= 0.1.0.0
-                     , network-bittorrent >= 0.1.0.0
-
-
-  hs-source-dirs:      tests
-  ghc-options:         -Wall -O2
-
-
-
 test-suite info-hash
   type:                exitcode-stdio-1.0
   main-is:             info-hash.hs
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