Remove accidentially duplicated tests from merge.

1 files changed, 0 insertions, 48 deletions

diff --git a/tests/test/let-env.scm b/tests/test/let-env.scm
deleted file mode 100644
index a989776a..00000000
--- a/tests/test/let-env.scm
+++ /dev/null
@@ -1,48 +0,0 @@
-(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")))