module Ribosome.Test.File(
tempDirIO,
tempDir,
fixture,
) where
import Control.Monad.IO.Class (liftIO, MonadIO)
import System.Directory (canonicalizePath, createDirectoryIfMissing, removePathForcibly)
import System.FilePath ((</>))
testDir :: String -> IO FilePath
testDir prefix = canonicalizePath $ "test" </> prefix
tempDirIO :: String -> FilePath -> IO FilePath
tempDirIO prefix path = do
base <- testDir prefix
let dir = base </> "temp"
removePathForcibly dir
createDirectoryIfMissing False dir
let absPath = dir </> path
createDirectoryIfMissing True absPath
return absPath
tempDir :: MonadIO m => String -> FilePath -> m FilePath
tempDir prefix path =
liftIO $ tempDirIO prefix path
fixture :: MonadIO m => String -> FilePath -> m FilePath
fixture prefix path = do
base <- liftIO $ testDir prefix
return $ base </> "fixtures" </> path