- let (MultiFileInfo dname' files') = dyninfo $ info m
- length files' `shouldBe` 9 -- 9 files in the torrent
- dname' `shouldBe` "NASA_NTRS_Archive_19740027163"
+ let fs = files $ info m
+ p = path $ head fs
+ length fs `shouldBe` 9 -- 9 files in the torrent
+ p `shouldStartWith` "NASA_NTRS_Archive_19740027163"
+