me
/
guix
Archived
1
0
Fork 0
Code

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

* tests/build-utils.scm ("wrap-script, raises condition"): Use 'guard'
instead of "catch 'srfi-34".
master
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) (lambda (port)
(format port "This is not a script"))) (format port "This is not a script")))
(chmod script-file-name #o777) (chmod script-file-name #o777)
(catch 'srfi-34 (guard (c ((wrap-error? c) #t))
(lambda () (wrap-script script-file-name
(wrap-script script-file-name #:guile "MYGUILE"
#:guile "MYGUILE" `("GUIX_FOO" prefix ("/some/path"
`("GUIX_FOO" prefix ("/some/path" "/some/other/path")))
"/some/other/path")))) #f)))))
(lambda (type obj)
(wrap-error? obj)))))))
(test-end) (test-end)