1 import Storage.Hashed.Test( tests )
    2 import Test.Framework( defaultMain )
    3 import System.Directory( createDirectory, removeDirectoryRecursive
    4                        , setCurrentDirectory )
    5 import Codec.Archive.Zip( extractFilesFromArchive, toArchive )
    6 import qualified Data.ByteString.Lazy as BL
    7 
    8 main :: IO ()
    9 main = do zip <- toArchive `fmap` BL.readFile "testdata.zip"
   10           removeDirectoryRecursive "_test_playground" `catch` \_ -> return ()
   11           createDirectory "_test_playground"
   12           setCurrentDirectory "_test_playground"
   13           extractFilesFromArchive [] zip
   14           defaultMain tests