Add new tests.

1 files changed, 42 insertions, 0 deletions

diff --git a/tests/test/let-env.scm b/tests/test/let-env.scm
new file mode 100644
index 00000000..1d6d7507
--- /dev/null
+++ b/tests/test/let-env.scm
@@ -0,0 +1,42 @@
+(define-module (test let-env)
+  :use-module (srfi srfi-64)
+  :use-module (srfi srfi-88)
+  :use-module ((guile) :select (setenv getenv))
+  :use-module ((hnh util) :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"))
+
+