gnu: Zsh: Patch some tests that began failing in 5.6.

* gnu/packages/shells.scm (zsh)[arguments]: Patch the tests rather than deleting
them.
This commit is contained in:
Leo Famulari 2018-09-04 18:33:06 -04:00
parent 95681e5586
commit fcf4841c0e
No known key found for this signature in database
GPG key ID: 2646FA30BACA7F08

View file

@ -336,11 +336,19 @@ (define-public zsh
(("command -pv") "command -v")
(("command -p") "command ")
(("'command' -p") "'command' "))
;; Several of these tests fail spuriously in the Guix
;; build environment due to assumptions about PATH and
;; the location of the test files. It was easier to just
;; skip them than try to make them work.
(delete-file "Test/A05execution.ztst")
;; This file is ISO-8859-1 encoded.
(with-fluids ((%default-port-encoding #f))
(substitute* "Test/A05execution.ztst"
;; Help it find `sh`
(("PATH=/bin:\\$\\{ZTST_testdir\\}/command.tmp/ tstcmd-slashless")
(string-append "PATH=/bin:"
(assoc-ref %build-inputs "bash") "/bin:"
"${ZTST_testdir}/command.tmp/ tstcmd-slashless"))
;; Help it find `echo`
(("PATH=/bin:\\$\\{ZTST_testdir\\}/command.tmp tstcmd-arg")
(string-append "PATH=/bin:"
(assoc-ref %build-inputs "coreutils") "/bin:"
"PATH=/bin:${ZTST_testdir}/command.tmp tstcmd-arg"))))
#t)))))
(native-inputs `(("autoconf" ,autoconf)))
(inputs `(("ncurses" ,ncurses)