~ Move info hash test to main test suite.

1 files changed, 0 insertions, 29 deletions

diff --git a/tests/InfoHash.hs b/tests/InfoHash.hs
deleted file mode 100644
index bbf77545..00000000
--- a/tests/InfoHash.hs
+++ /dev/null
@@ -1,29 +0,0 @@
-{-# LANGUAGE OverloadedStrings #-}
-module Main (main) where
-
-import qualified Data.ByteString.Char8 as BC
-import Data.Torrent
-
-import System.Environment
-import System.Exit
-
-checkInfo :: String
-checkInfo = "0221caf96aa3cb94f0f58d458e78b0fc344ad8bf"
-
-torrentFileName :: String
-torrentFileName = "res/dapper-dvd-amd64.iso.torrent"
-
-main :: IO ()
-main = do
-  args <- getArgs
-  let path = if length args == 0 then torrentFileName else head args
-
-  t <- fromFile path
-
-  BC.putStr "info hash: "
-  print (ppInfoHash (tInfoHash t))
-
-  let passed = checkInfo == show (ppInfoHash (tInfoHash t))
-
-  print passed
-  if passed then exitSuccess else exitFailure