codedownio/sandwich
1
1
Fork 0
mirror of https://github.com/codedownio/sandwich.git synced 2024-10-27 04:59:50 +03:00
Code Issues Projects Releases Wiki Activity

nodeOptionsCreateFolder = False for introduce commandLineOptions

Browse Source
This commit is contained in:
Tom McLaughlin 2023-04-10 15:26:38 -07:00
parent 70131d46a5
commit ab2b8ca1bb
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
sandwich/src/Test/Sandwich.hs
View File

@ -152,9 +152,11 @@ runSandwichWithCommandLineArgs' baseOptions userOptionsParser spec = do
runWithRepeat repeatCount totalTests $
case optIndividualTestModule clo of
Nothing -> runSandwich' (Just $ clo { optUserOptions = () }) options $
introduce' (defaultNodeOptions { nodeOptionsVisibilityThreshold = systemVisibilityThreshold }) "command line options" commandLineOptions (pure clo) (const $ return ()) spec
introduce' (defaultNodeOptions { nodeOptionsVisibilityThreshold = systemVisibilityThreshold
, nodeOptionsCreateFolder = False }) "command line options" commandLineOptions (pure clo) (const $ return ()) spec
Just (IndividualTestModuleName x) -> runSandwich' (Just $ clo { optUserOptions = () }) options $ filterTreeToModule x $
introduce' (defaultNodeOptions { nodeOptionsVisibilityThreshold = systemVisibilityThreshold }) "command line options" commandLineOptions (pure clo) (const $ return ()) spec
introduce' (defaultNodeOptions { nodeOptionsVisibilityThreshold = systemVisibilityThreshold
, nodeOptionsCreateFolder = False }) "command line options" commandLineOptions (pure clo) (const $ return ()) spec
Just (IndividualTestMainFn x) -> do
let individualTestFlagStrings = [[ Just ("--" <> shorthand), const ("--" <> shorthand <> "-main") <$> nodeModuleInfoFn ]
| (NodeModuleInfo {..}, shorthand) <- modulesAndShorthands]