Commit 707aa683 authored by Valentin Reis's avatar Valentin Reis

Enable verbosity in all tests.

parent 0566d538
Pipeline #5702 passed with stage
in 28 seconds
......@@ -48,16 +48,26 @@ cleanLeftovers (WorkingDirectory wd) = do
void $ shell (format ("rm -rf " % fp) wd) Turtle.empty
prepareDaemon
:: StdOutLog -> StdErrLog -> Maybe TestText -> Shell Instrumentation
prepareDaemon out stdErr test = do
:: StdOutLog
-> StdErrLog
-> Maybe TestText
-> Verbosity
-> Shell Instrumentation
prepareDaemon out stdErr test v = do
_ <- myWhich "daemon"
let confPath' = "/tmp/argo_nodeos_config"
cleanContainers confPath' 1 2
export "ARGO_NODEOS_CONFIG" (format fp confPath')
return $ Instrumentation (P.proc "daemon" ["--nrm_log", "./nrm_log"])
out
stdErr
test
return $ Instrumentation
(P.proc
"daemon"
( ["--nrm_log", "./nrm_log"]
++ (if (v == Verbose) then ["--verbose"] else [])
)
)
out
stdErr
test
where
nodeOsFailure n = do
printError ("argo_nodeos_config failed with exit code :" <> repr n)
......@@ -186,9 +196,9 @@ runStack sa@StackArgs { verbosity = (==Verbose) -> verbose, ..} = do
iDaemon <- case daemon of
DontRun -> return Nothing
JustRun stdOut stdErr ->
(\i -> Just (Daemon, i)) <$> prepareDaemon stdOut stdErr Nothing
(\i -> Just (Daemon, i)) <$> prepareDaemon stdOut stdErr Nothing (verbosity sa)
Test t stdOut stdErr ->
(\i -> Just (Daemon, i)) <$> prepareDaemon stdOut stdErr (Just t)
(\i -> Just (Daemon, i)) <$> prepareDaemon stdOut stdErr (Just t) Verbose
let milist =
[ iDaemon
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment