From f522e39756ae0aef5e49585fc735c475cf3ff9e4 Mon Sep 17 00:00:00 2001
From: Jan Tuomi <jans.tuomi@gmail.com>
Date: Sat, 10 Dec 2022 22:00:17 +0200
Subject: Refactor builtins, add new ones

---
 test/Spec.hs | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

(limited to 'test')

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\
-- 
cgit v1.3