mirror of
https://github.com/wasp-lang/wasp.git
synced 2024-12-18 06:32:05 +03:00
43 lines
1.3 KiB
Haskell
43 lines
1.3 KiB
Haskell
module Common
|
|
( ProjectRoot,
|
|
E2eTestDir,
|
|
GoldensDir,
|
|
getE2eTestDir,
|
|
getTestOutputsDir,
|
|
getProjectRootPath,
|
|
)
|
|
where
|
|
|
|
import Control.Monad (unless)
|
|
import StrongPath (Abs, Dir, Path', Rel, reldir, (</>))
|
|
import qualified StrongPath as SP
|
|
import System.Directory (getCurrentDirectory)
|
|
import System.FilePath (takeFileName)
|
|
|
|
-- The "waspc" directory.
|
|
data ProjectRoot
|
|
|
|
data E2eTestDir
|
|
|
|
data GoldensDir
|
|
|
|
getProjectRootPath :: IO (Path' Abs (Dir ProjectRoot))
|
|
getProjectRootPath = do
|
|
-- NOTE: Cabal launches `cabal test` from root of the project, so this should always be some absolute path to waspc.
|
|
absCwd <- getCurrentDirectory
|
|
-- Just a little extra safeguard here since we are doing destructive file ops.
|
|
unless (takeFileName absCwd == "waspc") (error "Expecting test process to be invoked from waspc dir")
|
|
SP.parseAbsDir absCwd
|
|
|
|
e2eTestDirInProjectRoot :: Path' (Rel ProjectRoot) (Dir E2eTestDir)
|
|
e2eTestDirInProjectRoot = [reldir|e2e-test|]
|
|
|
|
getE2eTestDir :: IO (Path' Abs (Dir E2eTestDir))
|
|
getE2eTestDir = (</> e2eTestDirInProjectRoot) <$> getProjectRootPath
|
|
|
|
testOutputsDirInE2eTest :: Path' (Rel E2eTestDir) (Dir GoldensDir)
|
|
testOutputsDirInE2eTest = [reldir|test-outputs|]
|
|
|
|
getTestOutputsDir :: IO (Path' Abs (Dir GoldensDir))
|
|
getTestOutputsDir = (</> testOutputsDirInE2eTest) <$> getE2eTestDir
|