From 235782f210e99ac063b78907d17a049a0a94a50a Mon Sep 17 00:00:00 2001
From: Jan Tuomi <jans.tuomi@gmail.com>
Date: Tue, 6 Dec 2022 22:04:37 +0200
Subject: Add tests

---
 test/TestUtils.hs | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

(limited to 'test/TestUtils.hs')

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 =
-- 
cgit v1.3