diff options
| author | Jan Tuomi <jans.tuomi@gmail.com> | 2022-12-10 22:00:17 +0200 |
|---|---|---|
| committer | Jan Tuomi <jans.tuomi@gmail.com> | 2022-12-11 01:37:50 +0200 |
| commit | f522e39756ae0aef5e49585fc735c475cf3ff9e4 (patch) | |
| tree | 90a8fe239b064c5b1b20fe2ad2fbe7f7e792bff9 /test | |
| parent | 37e251578181213e49ba08d3de39f0b8b4f77427 (diff) | |
Refactor builtins, add new ones
Diffstat (limited to 'test')
| -rw-r--r-- | test/Spec.hs | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/test/Spec.hs b/test/Spec.hs index 68e575c..f85ecac 100644 --- a/test/Spec.hs +++ b/test/Spec.hs @@ -32,7 +32,7 @@ parseTests = testGroup "parse" [ ] evaluateTests = testGroup "evaluate" [ - do let env = makeEnv [builtinAdd2] + do let env = makeEnv [builtinNumAdd2] (gotAST, LState { stateEnv = gotEnv }) <- expectSuccessL env $ evaluate (astFunctionCall [astSymbol "+", astInteger 1, astInteger 2]) @@ -42,7 +42,7 @@ evaluateTests = testGroup "evaluate" [ ] e2eTests = testGroup "e2e" [ - do let env = makeEnv [builtinSubtract2] + do let env = makeEnv [builtinNumSubtract2] let script1 = "(let sub2 (\\[a b] (- a b)))\n(sub2 3 2)" (gotASTs, LState { stateEnv = gotEnv }) <- expectSuccessL env $ runInlineScript "<test>" script1 @@ -77,14 +77,14 @@ e2eTests = testGroup "e2e" [ astVector [astInteger 3, astInteger 2]] assertEqual "" expectedLastAST (last gotASTs), - do let env = makeEnv [builtinAdd2, builtinMultiply2] + do let env = makeEnv [builtinNumAdd2, builtinNumMultiply2] let script1 = "(let f (\\[x] (let y (+ x 1)) (let z (+ 3 y)) (* 2 z)))\n(f 1)" (gotASTs, _) <- expectSuccessL env $ runInlineScript "<test>" script1 let expectedLastAST = astInteger 10 assertEqual "" expectedLastAST (last gotASTs), - do let env = makeEnv [builtinAdd2, builtinSubtract2, ("_", astHole)] + do let env = makeEnv [builtinNumAdd2, builtinNumSubtract2, ("_", astHole)] let script1 = "(let memo fibo (\\[n]\ \ (match n\ \ 0 0\ |