ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-12-24 21:38:07 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

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

Browse source 
* 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
1 changed files with 6 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
tests/build-utils.scm
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)