diff options
Diffstat (limited to 'test')
| -rw-r--r-- | test/Spec.hs | 2 | ||||
| -rw-r--r-- | test/TestUtils.hs | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/test/Spec.hs b/test/Spec.hs index 710e528..e67f2b7 100644 --- a/test/Spec.hs +++ b/test/Spec.hs @@ -29,7 +29,7 @@ parseTests = testGroup "parse" [ evaluateTests = testGroup "evaluate" [ do let env = M.fromList [builtinAdd2] :: Env (gotAST, LState { stateEnv = gotEnv }) <- expectSuccessL env $ - evaluate 0 (astFunctionCall [astSymbol "+", astInteger 1, astInteger 2]) + evaluate (astFunctionCall [astSymbol "+", astInteger 1, astInteger 2]) let expectedAST = astInteger 3 assertEqual "" gotAST expectedAST diff --git a/test/TestUtils.hs b/test/TestUtils.hs index e505de2..84f95bf 100644 --- a/test/TestUtils.hs +++ b/test/TestUtils.hs @@ -14,7 +14,7 @@ testConfig = Config { } testRunL :: Env -> LContext a -> IO (Either LException (a, LState)) -testRunL env = runL LState { stateConfig = testConfig, stateEnv = env } +testRunL env = runL LState { stateConfig = testConfig, stateEnv = env, stateDepth = 0 } expectSuccessL :: Env -> LContext a -> IO (a, LState) expectSuccessL env lc = |