Add tests

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 =