libarchive-2.0.0.0: test/Spec.hs

module Main ( main ) where

import           Codec.Archive
import qualified Data.ByteString.Lazy as BSL
import           Data.Either          (isRight)
import           Data.Foldable        (traverse_)
import           System.Directory     (doesDirectoryExist, listDirectory)
import           System.FilePath      ((</>))
import           Test.Hspec

roundtrip :: FilePath -> IO (Either ArchiveResult BSL.ByteString)
roundtrip = fmap (fmap entriesToBSL . readArchiveBSL) . BSL.readFile

testFp :: FilePath -> Spec
testFp fp = parallel $ it ("sucessfully packs/unpacks itself (" ++ fp ++ ")") $
    roundtrip fp >>= (`shouldSatisfy` isRight)

main :: IO ()
main = do
    dir <- doesDirectoryExist "test/data"
    tarballs <- if dir then listDirectory "test/data" else pure []
    hspec $
        describe "roundtrip" $ traverse_ testFp
            (("test/data" </>) <$> tarballs)