diff options
author | Hugo Hörnquist <hugo@lysator.liu.se> | 2023-04-04 14:39:29 +0200 |
---|---|---|
committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2023-04-10 23:45:29 +0200 |
commit | fc6759c3596b695634466330e37baa4d16222b0c (patch) | |
tree | 1e2b0ea4715ebe7afa3d0a8cf5ba95a223f24a77 /tests/test/let-env.scm | |
parent | Borrow state-monad from guile-dns. (diff) | |
download | calp-fc6759c3596b695634466330e37baa4d16222b0c.tar.gz calp-fc6759c3596b695634466330e37baa4d16222b0c.tar.xz |
Reorder (util .*) tests.
Added test groups for each exported procedure (meaning that the TODOs
are now updated (at least for (hnh util))). Split path tests out into
own file.
Also rename those files so they map 1-1 onto their core module names.
Diffstat (limited to '')
-rw-r--r-- | tests/test/let-env.scm | 43 |
1 files changed, 0 insertions, 43 deletions
diff --git a/tests/test/let-env.scm b/tests/test/let-env.scm deleted file mode 100644 index e3dc5927..00000000 --- a/tests/test/let-env.scm +++ /dev/null @@ -1,43 +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")) - - |