38/48: gnu: grep: Update hanging and failing tests for the Hurd.

[guix-commits]

janneke pushed a commit to branch wip-hurd
in repository guix.

commit 8709d11ae227c348daf5b349fd478cd030e03158
Author: Janneke Nieuwenhuizen <janneke@gnu.org>
AuthorDate: Fri Jun 2 15:42:36 2023 +0200

    gnu: grep: Update hanging and failing tests for the Hurd.
    
    * gnu/packages/base.scm (grep)[arguments]: When building for the Hurd, 
remove
    Rename phase 'skip-triple-backref-test' to 'skip-tests'.  Remove
    "tests/triple-backref" as it now passes.  Add the hanging
    "tests/hash-collision-perf" test and the failing "tests/file" test.
---
 gnu/packages/base.scm | 22 +++++++++-------------
 1 file changed, 9 insertions(+), 13 deletions(-)

diff --git a/gnu/packages/base.scm b/gnu/packages/base.scm
index dc0f53c59b..6acad19fd1 100644
--- a/gnu/packages/base.scm
+++ b/gnu/packages/base.scm
@@ -134,20 +134,16 @@ command-line arguments, multiple languages, and so on.")
                 (("^exec grep")
                  (string-append "exec " bin "/grep"))))))
         ,@(if (hurd-target?)
-              '((add-before 'check 'skip-triple-backref-test
+              '((add-before 'check 'skip-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
-                        ''())))
+                    (substitute*
+                        ;; This test hangs
+                        '("tests/hash-collision-perf"
+                          ;; This test fails
+                          "tests/file")
+                      (("^#!.*" all)
+                       (string-append all "exit 77;\n"))))))
+              '()))))
    (synopsis "Print lines matching a pattern")
    (description
      "grep is a tool for finding text inside files.  Text is found by