diff options
| author | Mathieu Othacehe <m.othacehe@gmail.com> | 2017-07-01 12:23:23 +0200 |
|---|---|---|
| committer | Mathieu Othacehe <m.othacehe@gmail.com> | 2017-07-01 18:47:18 +0200 |
| commit | f301378d943e9848df30805957d4933e0e894f2c (patch) | |
| tree | 2904cc8097eef3816fc95146e6ee63211e678164 /tests | |
| parent | 706c80c6a0e0ab32684d4ae9d8d11295bb70087a (diff) | |
| download | cuirass-f301378d943e9848df30805957d4933e0e894f2c.tar cuirass-f301378d943e9848df30805957d4933e0e894f2c.tar.gz | |
utils: Remove useless procedures.
* src/cuirass/utils.scm (mkdir-p, make-user-module,
call-with-temporary-directory, with-directory-excursion): Remove because
already defined in guix.
* tests/utils (with-directory-excursion): Remove associated test.
* src/cuirass/base.scm: Use (guix build utils) to provide procedure removed
from (cuirass utils).
* bin/evaluate.in: Ditto.
* bin/cuirass.in: Use "make-user-module" provided by (guix ui).
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) |