add unit tests for closures in dynamic scope

jcubic · Jan 14, 2024 · 4263db5 · 4263db5
1 parent 0e4cffd
commit 4263db5
Showing 1 changed file with 8 additions and 0 deletions.
diff --git a/tests/dynamic.scm b/tests/dynamic.scm
@@ -11,6 +11,14 @@
                         (f))))
               20)))
 
+(test "dynamic: no closures"
+      (lambda (t)
+        (t.is (exec (begin
+                       (define f (let ((x 10))
+                                   (lambda () x)))
+                       (try (t) (catch (e) #t))))
+              #t)))
+
 (test "dynamic: function parameters"
       (lambda (t)
         (t.is (exec (begin