Left _ -> pending
Right metainfo -> do
let (Just info') = info metainfo
pieceLength info' `shouldBe` (524288 :: Integer)
it "Not a multifile torrent" $ do
Left _ -> pending
Right metainfo -> do
let (Just info') = info metainfo
pieceLength info' `shouldBe` (524288 :: Integer)
it "Not a multifile torrent" $ do