From: Ramakrishnan Muthukrishnan Date: Wed, 26 Jul 2017 11:58:42 +0000 (+0530) Subject: Add one more metainfo test X-Git-Url: https://git.rkrishnan.org/%5B/%5D%20/file/URI:LIT:krugkidfnzsc4/frontends/cyclelanguage?a=commitdiff_plain;h=1b29012aa1e98cbd35bf5fc2c2d076a38a04da3b;p=functorrent.git Add one more metainfo test --- diff --git a/test/MetainfoTests.hs b/test/MetainfoTests.hs index 86ecf48..824bb64 100644 --- a/test/MetainfoTests.hs +++ b/test/MetainfoTests.hs @@ -11,7 +11,13 @@ import Data.ByteString (readFile) tests :: IO () tests = hspec $ do describe "read and interpret a torrent file 1" $ do - it "valid announceList" $ do + it "valid torrent file" $ do fc <- readFile "data/debian-7.8.0-amd64-CD-1.iso.torrent" (torrentToMetainfo fc) `shouldNotBe` (Left "parse error") + it "valid announce list" $ do + fc <- readFile "data/debian-7.8.0-amd64-CD-1.iso.torrent" + case torrentToMetainfo fc of + Left _ -> pending + Right metainfo -> do + announceList metainfo `shouldNotBe` []