1 files changed, 49 insertions, 0 deletions
diff --git a/tests/test/hnh-util-env.scm b/tests/test/hnh-util-env.scm
new file mode 100644
index 00000000..f38a3a3b
--- /dev/null
+++ b/tests/test/hnh-util-env.scm
@@ -0,0 +1,49 @@
+(define-module (test hnh-util-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)))
+
+
+(test-group "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 "with-working-directory"
+  'TODO)
+
+(test-group "with-locale"
+  'TODO)