rekahsoft
/
guix
1
1
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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
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 @@ 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)