me
/
guix
Archived
1
0
Fork 0
Code

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

* gnu/packages/web.scm (hitch)[arguments]: Rewrite grep command in a test to
not use perl regexps.
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 @@ on the fly.")
`(#: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.