1 files changed, 0 insertions, 38 deletions

diff --git a/tests/Data/Torrent/InfoHashSpec.hs b/tests/Data/Torrent/InfoHashSpec.hs
deleted file mode 100644
index 9accc741..00000000
--- a/tests/Data/Torrent/InfoHashSpec.hs
+++ /dev/null
@@ -1,38 +0,0 @@
-{-# OPTIONS -fno-warn-orphans #-}
-module Data.Torrent.InfoHashSpec (spec) where
-
-import Control.Applicative
-import Data.ByteString as BS
-import Data.Convertible
-import System.FilePath
-import Test.Hspec
-import Test.QuickCheck
-import Test.QuickCheck.Instances ()
-
-import Data.Torrent
-
-instance Arbitrary InfoHash where
-  arbitrary = do
-    bs <- BS.pack <$> vectorOf 20 arbitrary
-    pure $ either (const (error "arbitrary infohash")) id $ safeConvert bs
-
-type TestPair = (FilePath, String)
-
--- TODO add a few more torrents here
-torrentList :: [TestPair]
-torrentList =
-  [ ( "res" </> "dapper-dvd-amd64.iso.torrent"
-    , "0221caf96aa3cb94f0f58d458e78b0fc344ad8bf")
-  ]
-
-infohashSpec :: (FilePath, String) -> Spec
-infohashSpec (filepath, expectedHash) = do
-  it ("should match " ++ filepath) $ do
-    torrent    <- fromFile filepath
-    let actualHash = show $ idInfoHash $ tInfoDict torrent
-    actualHash `shouldBe` expectedHash
-
-spec :: Spec
-spec = do
-  describe "info hash" $ do
-    mapM_ infohashSpec torrentList