39/92: gnu: grep: Update hanging and failing tests on the Hurd.

[guix-commits]

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

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

    gnu: grep: Update hanging and failing tests on the Hurd.
    
    * gnu/packages/base.scm (grep)[arguments]: When building natively on 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 | 24 ++++++++++--------------
 1 file changed, 10 insertions(+), 14 deletions(-)

diff --git a/gnu/packages/base.scm b/gnu/packages/base.scm
index 550be1a931..097055f7bf 100644
--- a/gnu/packages/base.scm
+++ b/gnu/packages/base.scm
@@ -135,21 +135,17 @@ command-line arguments, multiple languages, and so on.")
                                  (string-append bin "/fgrep"))
                 (("^exec grep")
                  (string-append "exec " bin "/grep"))))))
-        ,@(if (target-hurd?)
-              '((add-before 'check 'skip-triple-backref-test
+        ,@(if (system-hurd?)
+              '((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 (target-hurd?)
-                        ''("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