X-Git-Url: https://git.rkrishnan.org/?p=functorrent.git;a=blobdiff_plain;f=test%2FMetainfoTests.hs;fp=test%2FMetainfoTests.hs;h=a9043db8ec70eea5ae94c1905c76c878fa2d1454;hp=32d98e5325566a08cb0568690c3f3a2f802299f1;hb=9d57d0353054fc75922282a91d971fe81b0ff7eb;hpb=d484812bb4953c6f83cbdce10fd62403947fb8f5

diff --git a/test/MetainfoTests.hs b/test/MetainfoTests.hs
index 32d98e5..a9043db 100644
--- a/test/MetainfoTests.hs
+++ b/test/MetainfoTests.hs
@@ -36,20 +36,20 @@ tests = do
   hspec $ do
     describe "read and interpret a torrent file 1" $ do
       it "valid torrent file" $ do
-        (torrentToMetainfo fc) `shouldNotBe` (Left "parse error")
+        minfo `shouldNotBe` (Left "parse error")
       it "valid announce list" $ do
-        case torrentToMetainfo fc of
+        case minfo of
           Left _ -> pending
           Right metainfo -> do
             announceList metainfo `shouldSatisfy` (not . null)
       it "valid piece length" $ do
-        case torrentToMetainfo fc of
+        case minfo of
           Left _ -> pending
           Right metainfo -> do
             let (Just info') = info metainfo
             pieceLength info' `shouldBe` (524288 :: Integer)
       it "Not a multifile torrent" $ do
-        case torrentToMetainfo fc of
+        case minfo of
           Left _ -> pending
           Right metainfo -> do 
             let (Just i) = info metainfo