From e0e1c1d7573fc5251fe537314b6a6cfefae09e39 Mon Sep 17 00:00:00 2001
From: Jan Tuomi <jans.tuomi@gmail.com>
Date: Sun, 11 Dec 2022 18:45:46 +0200
Subject: Ensure that imports do not overwrite symbols

---
 test/TestUtils.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'test/TestUtils.hs')

diff --git a/test/TestUtils.hs b/test/TestUtils.hs
index 89bc6e6..42352e5 100644
--- a/test/TestUtils.hs
+++ b/test/TestUtils.hs
@@ -4,6 +4,7 @@ module TestUtils where
 import qualified Data.Map as M
 import qualified Data.Bifunctor as B
 import Utils
+import Builtins ( builtinModule )
 
 testConfig :: Config
 testConfig = Config {
@@ -39,7 +40,7 @@ expectErrorL env lc =
             Right (val, _) -> error $ "unexpected success: " ++ show val
 
 makeEnv :: [(String, AST)] -> Env
-makeEnv = M.fromList . map (B.second Regular)
+makeEnv = M.fromList . map (B.second (\v -> (builtinModule, Regular v)))
 
 ast :: ASTNode -> AST
 ast node = makeNonsenseAST node
-- 
cgit v1.3