+ let (SingleFileInfo file') = dyninfo $ info m
+ (FileInfo _ _ name') = file'
+ name' `shouldNotBe` ""
+ it "torrent-file-2" $ do
+ c <- BC.readFile "data/test2.torrent"
+ let (Right m) = torrentToMetainfo (BC.toStrict c)
+ (SingleFileInfo file') = dyninfo $ info m
+ (FileInfo _ _ name') = file'
+ name' `shouldNotBe` ""
+ it "torrent-file-3" $ do
+ c <- BC.readFile "data/test3.torrent"
+ let (Right m) = torrentToMetainfo (BC.toStrict c)
+ (SingleFileInfo file') = dyninfo $ info m
+ (FileInfo _ _ name') = file'