import Storage.Hashed.Test( tests )
import Test.Framework( defaultMain )
import System.Directory( createDirectory, removeDirectoryRecursive
                       , setCurrentDirectory )
import Codec.Archive.Zip( extractFilesFromArchive, toArchive )
import qualified Data.ByteString.Lazy as BL

main :: IO ()
main = do zip <- toArchive `fmap` BL.readFile "testdata.zip"
          removeDirectoryRecursive "_test_playground" `catch` \_ -> return ()
          createDirectory "_test_playground"
          setCurrentDirectory "_test_playground"
          extractFilesFromArchive [] zip
          defaultMain tests