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
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