aboutsummaryrefslogtreecommitdiffstats
path: root/test/TestUtils.hs
diff options
context:
space:
mode:
Diffstat (limited to 'test/TestUtils.hs')
-rw-r--r--test/TestUtils.hs9
1 files changed, 7 insertions, 2 deletions
diff --git a/test/TestUtils.hs b/test/TestUtils.hs
index 84f95bf..672f801 100644
--- a/test/TestUtils.hs
+++ b/test/TestUtils.hs
@@ -8,13 +8,18 @@ testConfig = Config {
configScriptFileName = Nothing,
configVerboseMode = False,
configShowHelp = False,
- configPrintEvaled = False,
+ configPrintEvaled = PrintEvaledOff,
configPrintCallStack = False,
configUseREPL = False
}
testRunL :: Env -> LContext a -> IO (Either LException (a, LState))
-testRunL env = runL LState { stateConfig = testConfig, stateEnv = env, stateDepth = 0 }
+testRunL env = runL LState {
+ stateConfig = testConfig,
+ stateEnv = env,
+ stateDepth = 0,
+ statePure = Impure
+}
expectSuccessL :: Env -> LContext a -> IO (a, LState)
expectSuccessL env lc =