learning-sicp

commit fdac643b6e930fd1c6cb89dd9c20fa8957529e5c
parent 91e40f4651bbbe69da529e4eae19742149c33ddf
Author: Yuval Langer <yuval.langer@gmail.com>
Date:   Mon, 22 Jul 2024 14:45:57 +0300

Add test for exercise 4.2.

Diffstat:
A
sicp/tests/chapter-4/exercise-2.scm
 | 
16
++++++++++++++++

1 file changed, 16 insertions(+), 0 deletions(-)
diff --git a/sicp/tests/chapter-4/exercise-2.scm b/sicp/tests/chapter-4/exercise-2.scm
@@ -0,0 +1,16 @@
+(define-library (sicp tests chapter-4 exercise-2)
+  (import (scheme base)
+
+          (srfi :64)
+
+          (sicp solutions chapter-4 exercise-2))
+
+  (begin
+    (test-begin "chapter-4-exercise-2")
+
+    (test-equal -1
+      (eval '(call + -2 1)
+            (make-environment '(+)
+                              `((primitive ,+)))))
+
+    (test-end "chapter-4-exercise-2")))