gnu: gettext: Set encoding to ISO-8859-1 when modifying files.
* gnu/packages/gettext.scm (gnu-gettext)[arguments] <patch-tests>: Set %default-port-encoding. Fixes test failures at <http://hydra.gnu.org/build/262586>.
This commit is contained in:
parent
50915d2c2e
commit
e8c9f0498f
|
@ -51,6 +51,10 @@
|
||||||
'check 'patch-tests
|
'check 'patch-tests
|
||||||
(lambda* (#:key inputs #:allow-other-keys)
|
(lambda* (#:key inputs #:allow-other-keys)
|
||||||
(let* ((bash (which "sh")))
|
(let* ((bash (which "sh")))
|
||||||
|
;; Some of the files we're patching are
|
||||||
|
;; ISO-8859-1-encoded, so choose it as the default
|
||||||
|
;; encoding so the byte encoding is preserved.
|
||||||
|
(with-fluids ((%default-port-encoding #f))
|
||||||
(substitute*
|
(substitute*
|
||||||
(find-files "gettext-tools/tests"
|
(find-files "gettext-tools/tests"
|
||||||
"^(lang-sh|msg(exec|filter)-[0-9])")
|
"^(lang-sh|msg(exec|filter)-[0-9])")
|
||||||
|
@ -65,7 +69,7 @@
|
||||||
|
|
||||||
(substitute* "gettext-tools/src/project-id"
|
(substitute* "gettext-tools/src/project-id"
|
||||||
(("/bin/pwd")
|
(("/bin/pwd")
|
||||||
"pwd"))))
|
"pwd")))))
|
||||||
%standard-phases)
|
%standard-phases)
|
||||||
|
|
||||||
;; When tests fail, we want to know the details.
|
;; When tests fail, we want to know the details.
|
||||||
|
|
Loading…
Reference in New Issue