29 lines
818 B
Haskell
29 lines
818 B
Haskell
{-# LANGUAGE OverloadedStrings #-}
|
|
|
|
import qualified Data.ByteString as BS
|
|
import Data.IORef
|
|
import Test.Hspec
|
|
import Test.Hspec.Runner
|
|
import Test.Hspec.Formatters
|
|
import qualified Spec
|
|
import Utils
|
|
import System.Posix.Temp.ByteString (mkdtemp)
|
|
import System.Posix.Env.ByteString (getEnvDefault)
|
|
import System.Posix.FilePath ((</>))
|
|
import "hpath-directory" System.Posix.RawFilePath.Directory
|
|
|
|
|
|
-- TODO: chardev, blockdev, namedpipe, socket
|
|
|
|
|
|
main :: IO ()
|
|
main = do
|
|
tmpdir <- getEnvDefault "TMPDIR" "/tmp" >>= canonicalizePath
|
|
tmpBase <- mkdtemp (tmpdir </> "hpath-directory")
|
|
writeIORef baseTmpDir (Just (tmpBase `BS.append` "/"))
|
|
putStrLn $ ("Temporary test directory at: " ++ show tmpBase)
|
|
hspecWith
|
|
defaultConfig { configFormatter = Just progress }
|
|
$ afterAll_ deleteBaseTmpDir
|
|
$ Spec.spec
|