1 files changed, 48 insertions, 0 deletions
diff --git a/tests/test/let-env.scm b/tests/test/let-env.scm
new file mode 100644
index 00000000..a989776a
--- /dev/null
+++ b/tests/test/let-env.scm
@@ -0,0 +1,48 @@
+(define-module (test let-env)
+  :use-module (srfi srfi-64)
+  :use-module (srfi srfi-64 test-error)
+  :use-module (srfi srfi-88)
+  :use-module ((guile) :select (setenv getenv))
+  :use-module ((hnh util env) :select (let-env)))
+
+(setenv "CALP_TEST_ENV" "1")
+
+(test-equal
+  "Ensure we have set value beforehand"
+  "1"
+  (getenv "CALP_TEST_ENV"))
+
+(let-env
+  ((CALP_TEST_ENV "2"))
+  (test-equal
+    "Test our local override"
+    "2"
+    (getenv "CALP_TEST_ENV")))
+
+(test-equal
+  "Test that we have returned"
+  "1"
+  (getenv "CALP_TEST_ENV"))
+
+(catch 'test-error
+       (lambda ()
+         (let-env
+           ((CALP_TEST_ENV "2"))
+           (test-equal
+             "Test our local override again"
+             "2"
+             (getenv "CALP_TEST_ENV"))
+           (throw 'test-error)))
+       list)
+
+(test-equal
+  "Test restoration after non-local exit"
+  "1"
+  (getenv "CALP_TEST_ENV"))
+
+
+(test-group "Unsetting environment"
+  (setenv "TEST" "A")
+  (let-env ((TEST #f))
+           (test-assert (not (getenv "TEST"))))
+  (test-equal "A" (getenv "TEST")))