From 7a498e3a581f26b81fc9c2c9c7af8448a7f84f0f Mon Sep 17 00:00:00 2001
From: Jan Tuomi <jans.tuomi@gmail.com>
Date: Tue, 4 Oct 2022 14:46:45 +0300
Subject: Rename and refactor

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

(limited to 'test')

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