mirror/guix
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/guix.git synced 2025-02-03 16:57:55 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu: hitch: Rewrite grep command to not use perl regexps.

Browse source 
* gnu/packages/web.scm (hitch)[arguments]: Rewrite grep command in a test to
not use perl regexps.
This commit is contained in:
Arun Isaac 2023-07-29 13:22:42 +01:00
parent e43cbeafd1
commit 5a462c0d3d
No known key found for this signature in database
GPG key ID: 2E25EE8B61802BB3
1 changed files with 8 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
gnu/packages/web.scm
View file

@ -5958,6 +5958,14 @@ (define-public hitch
`(#:phases (modify-phases %standard-phases `(#:phases (modify-phases %standard-phases
(add-before 'check 'pre-check (add-before 'check 'pre-check
(lambda _ (lambda _
;; Our grep is compiled without perl regexp support. So,
;; rewrite the grep command to not use it. \t tab
;; characters are supported only in perl regexps. So,
;; put in literal tabs using printf instead.
(substitute* "src/tests/test32-proxy-authority.sh"
(("grep -Pq") "grep -q")
(("extension:\\\\tdefault")
"extension:$(printf '\\011')default"))
;; Most tests attempts to access hitch-tls.org which is ;; Most tests attempts to access hitch-tls.org which is
;; unavailable in the build container. Run them against ;; unavailable in the build container. Run them against
;; a dummy local web server instead. ;; a dummy local web server instead.