1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
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
|
