02/03: gnu: grep: Skip 'triple-backref' test.

[guix-commits]

civodul pushed a commit to branch master
in repository guix.

commit 02a4e54250e81664a797466edba46b017ae1a7b0
Author: Ludovic Courtès <ludo@gnu.org>
AuthorDate: Wed Nov 23 19:31:12 2022 +0100

    gnu: grep: Skip 'triple-backref' test.
    
    * gnu/packages/base.scm (grep)[arguments]: Add
    'skip-triple-backref-test' phase for GNU/Hurd.
---
 gnu/packages/base.scm | 14 +++++++++++++-
 1 file changed, 13 insertions(+), 1 deletion(-)

diff --git a/gnu/packages/base.scm b/gnu/packages/base.scm
index bf6435585e..36b27a4e25 100644
--- a/gnu/packages/base.scm
+++ b/gnu/packages/base.scm
@@ -130,7 +130,19 @@ command-line arguments, multiple languages, and so on.")
               (substitute* (list (string-append bin "/egrep")
                                  (string-append bin "/fgrep"))
                 (("^exec grep")
-                 (string-append "exec " bin "/grep")))))))
+                 (string-append "exec " bin "/grep"))))))
+        ,@(if (hurd-target?)
+              '((add-before 'check 'skip-triple-backref-test
+                  (lambda _
+                    ;; This test is marked as malfunctioning on glibc systems
+                    ;; due to
+                    ;; <https://sourceware.org/bugzilla/show_bug.cgi?id=11053>
+                    ;; and it triggers a segfault with glibc 2.33 on GNU/Hurd.
+                    ;; Skip it.
+                    (substitute* "tests/triple-backref"
+                      (("^warn_" all)
+                       (string-append "exit 77\n" all))))))
+              '()))
       #:make-flags ,(if (hurd-target?)
                         ''("XFAIL_TESTS=test-perror2 equiv-classes") ;XXX
                         ''())))