diff options
| author | Jan Tuomi <jans.tuomi@gmail.com> | 2022-12-11 18:45:46 +0200 |
|---|---|---|
| committer | Jan Tuomi <jans.tuomi@gmail.com> | 2022-12-11 18:48:28 +0200 |
| commit | e0e1c1d7573fc5251fe537314b6a6cfefae09e39 (patch) | |
| tree | b68787e42aff081fa23ad733ae73772a94fbc668 /test/TestUtils.hs | |
| parent | 3f7d328d356c75c0ae57c67eb64fb5337361cce7 (diff) | |
Ensure that imports do not overwrite symbols
Diffstat (limited to 'test/TestUtils.hs')
| -rw-r--r-- | test/TestUtils.hs | 3 |
1 files changed, 2 insertions, 1 deletions
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 |