diff options
Diffstat (limited to 'tests')
-rw-r--r-- | tests/utils.scm | 15 |
1 files changed, 0 insertions, 15 deletions
diff --git a/tests/utils.scm b/tests/utils.scm index 6a14355..d5298c5 100644 --- a/tests/utils.scm +++ b/tests/utils.scm @@ -35,19 +35,4 @@ (not (alist? 'foo)) (not (alist? #:bar)))) -(test-assert "with-directory-excursion" - (let ((old (getcwd)) - (tmp (tmpnam))) - (dynamic-wind - (λ () - (mkdir tmp)) - (λ () - (with-directory-excursion tmp - (dir-1 (getcwd))) - (dir-2 (getcwd)) - (and (string=? (dir-1) tmp) - (string=? (dir-2) old))) - (λ () - (rmdir tmp))))) - (test-end) |