Rewrite test running system.

1 files changed, 0 insertions, 47 deletions

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