diff options
Diffstat (limited to 'test/TestUtils.hs')
| -rw-r--r-- | test/TestUtils.hs | 9 |
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 = |
