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.

1 files changed, 8 insertions, 0 deletions

diff --git a/gnu/packages/web.scm b/gnu/packages/web.scm
index b7be06cd7b..08daac5266 100644
--- a/gnu/packages/web.scm
+++ b/gnu/packages/web.scm
@@ -5958,6 +5958,14 @@ on the fly.")
      `(#:phases (modify-phases %standard-phases
                   (add-before 'check 'pre-check
                     (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
                       ;; unavailable in the build container.  Run them against
                       ;; a dummy local web server instead.