diff options
| author | Jan Tuomi <jans.tuomi@gmail.com> | 2022-09-26 15:37:04 +0300 |
|---|---|---|
| committer | Jan Tuomi <jans.tuomi@gmail.com> | 2022-12-05 14:21:53 +0200 |
| commit | 367cefd18ba6c96c9753e69a19db84ce50f34abf (patch) | |
| tree | 0d4da43f6dec38d9cd0a8d9efc08af173464ea5b /test | |
| parent | 3a87683f26ebe225f3fbdbc42cd340660a40f446 (diff) | |
Refactor builtins
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 6e8c9bf..458cc35 100644 --- a/test/Spec.hs +++ b/test/Spec.hs @@ -27,7 +27,7 @@ parseTests = testGroup "parse" [ ] evaluateTests = testGroup "evaluate" [ - do let env = M.fromList [("+", builtinAdd2)] :: Env + do let env = M.fromList [builtinAdd2] :: Env (gotEnv, gotAST) <- expectSuccessL $ evaluate env (ASTFunctionCall [ASTSymbol "+", ASTInteger 1, ASTInteger 2]) let expectedAST = ASTInteger 3 assertEqual "" gotAST expectedAST @@ -35,7 +35,7 @@ evaluateTests = testGroup "evaluate" [ ] e2eTests = testGroup "e2e" [ - do let env = M.fromList [("-", builtinSubtract2)] :: Env + do let env = M.fromList [builtinSubtract2] :: Env let script1 = "(let sub2 (\\[a b] (- a b)))\n(sub2 3 2)" (gotEnv, gotASTs) <- expectSuccessL $ runInlineScript env script1 let expectedEnvKeys = ["-", "sub2"] |