tests: Avoid (catch 'srfi-34 …) form.

* tests/build-utils.scm ("wrap-script, raises condition"): Use 'guard'
instead of "catch 'srfi-34".
This commit is contained in:
Ludovic Courtès 2019-11-24 20:47:20 +01:00
parent 5d297ca676
commit 1d64afbdc0
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5

View file

@ -235,13 +235,11 @@ (define-module (test-build-utils)
(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)