test pass

[functorrent.git] / test / MetainfoTests.hs

diff --git a/test/MetainfoTests.hs b/test/MetainfoTests.hs
index 9f1a2e23b19d7dec2f58765030221df6e73dff44..32d98e5325566a08cb0568690c3f3a2f802299f1 100644 (file)
--- a/test/MetainfoTests.hs
+++ b/test/MetainfoTests.hs
@@ -33,7 +33,6 @@ tests :: IO ()
 tests = do
   fc <- readFile "data/debian-7.8.0-amd64-CD-1.iso.torrent"
   let minfo = torrentToMetainfo fc
-  putStrLn $ show minfo
   hspec $ do
     describe "read and interpret a torrent file 1" $ do
       it "valid torrent file" $ do
@@ -54,7 +53,7 @@ tests = do
           Left _ -> pending
           Right metainfo -> do 
             let (Just i) = info metainfo
-            (length (filemeta i)) `shouldSatisfy` (== 0)
+            (length (filemeta i)) `shouldSatisfy` (== 1)
 
     describe "read and interpret a multifile torrent file" $ do
       it "valid multifile torrent file" $ do