module Test.Hspec.JUnit.Config
( JUnitConfig
, defaultJUnitConfig
, setJUnitConfigOutputDirectory
, setJUnitConfigOutputName
, setJUnitConfigOutputFile
, setJUnitConfigSuiteName
, setJUnitConfigSourcePathPrefix
, getJUnitConfigOutputFile
, getJUnitConfigSuiteName
, getJUnitPrefixSourcePath
) where
import Prelude
import Data.Maybe (fromMaybe)
import Data.Text (Text)
import System.FilePath ((</>))
data JUnitConfig = JUnitConfig
{ JUnitConfig -> FilePath
junitConfigOutputDirectory :: FilePath
, JUnitConfig -> FilePath
junitConfigOutputName :: FilePath
, JUnitConfig -> Maybe FilePath
junitConfigOutputFile :: Maybe FilePath
, JUnitConfig -> Text
junitConfigSuiteName :: Text
, JUnitConfig -> Maybe FilePath
junitConfigSourcePathPrefix :: Maybe FilePath
}
defaultJUnitConfig :: Text -> JUnitConfig
defaultJUnitConfig :: Text -> JUnitConfig
defaultJUnitConfig Text
name = JUnitConfig :: FilePath
-> FilePath
-> Maybe FilePath
-> Text
-> Maybe FilePath
-> JUnitConfig
JUnitConfig
{ junitConfigOutputDirectory :: FilePath
junitConfigOutputDirectory = FilePath
"."
, junitConfigOutputName :: FilePath
junitConfigOutputName = FilePath
"junit.xml"
, junitConfigOutputFile :: Maybe FilePath
junitConfigOutputFile = Maybe FilePath
forall a. Maybe a
Nothing
, junitConfigSuiteName :: Text
junitConfigSuiteName = Text
name
, junitConfigSourcePathPrefix :: Maybe FilePath
junitConfigSourcePathPrefix = Maybe FilePath
forall a. Maybe a
Nothing
}
setJUnitConfigOutputDirectory :: FilePath -> JUnitConfig -> JUnitConfig
setJUnitConfigOutputDirectory :: FilePath -> JUnitConfig -> JUnitConfig
setJUnitConfigOutputDirectory FilePath
x JUnitConfig
config =
JUnitConfig
config { junitConfigOutputDirectory :: FilePath
junitConfigOutputDirectory = FilePath
x }
setJUnitConfigOutputName :: FilePath -> JUnitConfig -> JUnitConfig
setJUnitConfigOutputName :: FilePath -> JUnitConfig -> JUnitConfig
setJUnitConfigOutputName FilePath
x JUnitConfig
config = JUnitConfig
config { junitConfigOutputName :: FilePath
junitConfigOutputName = FilePath
x }
setJUnitConfigOutputFile :: FilePath -> JUnitConfig -> JUnitConfig
setJUnitConfigOutputFile :: FilePath -> JUnitConfig -> JUnitConfig
setJUnitConfigOutputFile FilePath
x JUnitConfig
config = JUnitConfig
config { junitConfigOutputFile :: Maybe FilePath
junitConfigOutputFile = FilePath -> Maybe FilePath
forall a. a -> Maybe a
Just FilePath
x }
setJUnitConfigSuiteName :: Text -> JUnitConfig -> JUnitConfig
setJUnitConfigSuiteName :: Text -> JUnitConfig -> JUnitConfig
setJUnitConfigSuiteName Text
x JUnitConfig
config = JUnitConfig
config { junitConfigSuiteName :: Text
junitConfigSuiteName = Text
x }
setJUnitConfigSourcePathPrefix :: FilePath -> JUnitConfig -> JUnitConfig
setJUnitConfigSourcePathPrefix :: FilePath -> JUnitConfig -> JUnitConfig
setJUnitConfigSourcePathPrefix FilePath
x JUnitConfig
config =
JUnitConfig
config { junitConfigSourcePathPrefix :: Maybe FilePath
junitConfigSourcePathPrefix = FilePath -> Maybe FilePath
forall a. a -> Maybe a
Just FilePath
x }
getJUnitConfigOutputFile :: JUnitConfig -> FilePath
getJUnitConfigOutputFile :: JUnitConfig -> FilePath
getJUnitConfigOutputFile JUnitConfig {FilePath
Maybe FilePath
Text
junitConfigSourcePathPrefix :: Maybe FilePath
junitConfigSuiteName :: Text
junitConfigOutputFile :: Maybe FilePath
junitConfigOutputName :: FilePath
junitConfigOutputDirectory :: FilePath
junitConfigSourcePathPrefix :: JUnitConfig -> Maybe FilePath
junitConfigSuiteName :: JUnitConfig -> Text
junitConfigOutputFile :: JUnitConfig -> Maybe FilePath
junitConfigOutputName :: JUnitConfig -> FilePath
junitConfigOutputDirectory :: JUnitConfig -> FilePath
..} = FilePath -> Maybe FilePath -> FilePath
forall a. a -> Maybe a -> a
fromMaybe
(FilePath
junitConfigOutputDirectory FilePath -> FilePath -> FilePath
</> FilePath
junitConfigOutputName)
Maybe FilePath
junitConfigOutputFile
getJUnitConfigSuiteName :: JUnitConfig -> Text
getJUnitConfigSuiteName :: JUnitConfig -> Text
getJUnitConfigSuiteName = JUnitConfig -> Text
junitConfigSuiteName
getJUnitPrefixSourcePath :: JUnitConfig -> FilePath -> FilePath
getJUnitPrefixSourcePath :: JUnitConfig -> FilePath -> FilePath
getJUnitPrefixSourcePath JUnitConfig {FilePath
Maybe FilePath
Text
junitConfigSourcePathPrefix :: Maybe FilePath
junitConfigSuiteName :: Text
junitConfigOutputFile :: Maybe FilePath
junitConfigOutputName :: FilePath
junitConfigOutputDirectory :: FilePath
junitConfigSourcePathPrefix :: JUnitConfig -> Maybe FilePath
junitConfigSuiteName :: JUnitConfig -> Text
junitConfigOutputFile :: JUnitConfig -> Maybe FilePath
junitConfigOutputName :: JUnitConfig -> FilePath
junitConfigOutputDirectory :: JUnitConfig -> FilePath
..} =
(FilePath -> FilePath)
-> (FilePath -> FilePath -> FilePath)
-> Maybe FilePath
-> FilePath
-> FilePath
forall b a. b -> (a -> b) -> Maybe a -> b
maybe FilePath -> FilePath
forall a. a -> a
id FilePath -> FilePath -> FilePath
(</>) Maybe FilePath
junitConfigSourcePathPrefix