diff options
| author | Jan Tuomi <jans.tuomi@gmail.com> | 2022-10-04 14:46:45 +0300 |
|---|---|---|
| committer | Jan Tuomi <jans.tuomi@gmail.com> | 2022-12-05 14:21:53 +0200 |
| commit | 7a498e3a581f26b81fc9c2c9c7af8448a7f84f0f (patch) | |
| tree | 10c05309191807d0bcc31a9fcca4a422c1cda414 /test | |
| parent | fe5d1ec1b76b8cb42359324030e701a719847a50 (diff) | |
Rename and refactor
Diffstat (limited to 'test')
| -rw-r--r-- | test/Spec.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/test/Spec.hs b/test/Spec.hs index 3d1ad3a..1b712a8 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 - (gotEnv, gotAST) <- expectSuccessL $ evaluate env (astFunctionCall + (gotEnv, gotAST) <- expectSuccessL $ evaluate 0 env (astFunctionCall [astSymbol "+", astInteger 1, astInteger 2]) let expectedAST = astInteger 3 assertEqual "" gotAST expectedAST @@ -38,7 +38,7 @@ evaluateTests = testGroup "evaluate" [ e2eTests = testGroup "e2e" [ do let env = M.fromList [builtinSubtract2] :: Env - let script1 = "(let sub2 (\\[a b] (- a b)))\n(sub2 3 2)" + let script1 = "(let! sub2 (\\[a b] (- a b)))\n(sub2 3 2)" (gotEnv, gotASTs) <- expectSuccessL $ runInlineScript "<test>" env script1 let expectedEnvKeys = ["-", "sub2"] assertEqual "" (M.keys gotEnv) expectedEnvKeys |