diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2019-11-24 20:47:20 +0100 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2019-11-26 00:16:35 +0100 |
| commit | 1d64afbdc0644a2be8bd2ad157085731e212ab74 (patch) | |
| tree | 8a59a81abe4e957eb6e174e6211223924f0a53af | |
| parent | 5d297ca6760d62f1287c9d6f4729ce3352752df8 (diff) | |
| download | patches-1d64afbdc0644a2be8bd2ad157085731e212ab74.tar patches-1d64afbdc0644a2be8bd2ad157085731e212ab74.tar.gz | |
tests: Avoid (catch 'srfi-34 …) form.
* tests/build-utils.scm ("wrap-script, raises condition"): Use 'guard'
instead of "catch 'srfi-34".
| -rw-r--r-- | tests/build-utils.scm | 14 |
1 files changed, 6 insertions, 8 deletions
diff --git a/tests/build-utils.scm b/tests/build-utils.scm index 61e6c44e63..ec442c267b 100644 --- a/tests/build-utils.scm +++ b/tests/build-utils.scm @@ -235,13 +235,11 @@ print('hello world')")) (lambda (port) (format port "This is not a script"))) (chmod script-file-name #o777) - (catch 'srfi-34 - (lambda () - (wrap-script script-file-name - #:guile "MYGUILE" - `("GUIX_FOO" prefix ("/some/path" - "/some/other/path")))) - (lambda (type obj) - (wrap-error? obj))))))) + (guard (c ((wrap-error? c) #t)) + (wrap-script script-file-name + #:guile "MYGUILE" + `("GUIX_FOO" prefix ("/some/path" + "/some/other/path"))) + #f))))) (test-end) |