eval-bot: empty environment variables when eval code

yfzhe · Aug 6, 2024 · 921321c · 921321c
1 parent 08f628e
commit 921321c
Showing 1 changed file with 5 additions and 0 deletions.
diff --git a/eval-bot/eval.rkt b/eval-bot/eval.rkt
@@ -34,6 +34,7 @@
                  [sandbox-propagate-breaks #f]
                  [sandbox-propagate-exceptions #f]
                  [sandbox-make-code-inspector current-code-inspector]
+                 [sandbox-make-environment-variables make-environment-variables]
                  [sandbox-memory-limit 64])
     (define evaluator
       (make-module-evaluator (format "#lang ~a" lang)))
@@ -115,6 +116,10 @@
                                (caddr (car result))))
               (eval-code "(+ 1 2")
               "syntax error")
+  (check-equal? (eval-code "(environment-variables-names
+                              (current-environment-variables))")
+                '(("'()\n" "" ""))
+                "empty environment-variables")
 
   (check-equal? (eval-code/chez "(+ 1 2)")
                 '(("3\n" "" "")))