41/89: gnu: findutils: Move test-strerror_r from XFAIL to skip on the Hurd.

[guix-commits]

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

commit 13f5822bfa58aab4af5f4740977a09331f0a9701
Author: Janneke Nieuwenhuizen <janneke@gnu.org>
AuthorDate: Fri Jun 2 16:47:36 2023 +0200

    gnu: findutils: Move test-strerror_r from XFAIL to skip on the Hurd.
    
    * gnu/packages/base.scm (findutils)[arguments]: When building natively on 
the
    Hurd, remove #:make-flags as "test-strerror_r" fails non-deterministically.
    Instead, add 'skip-test' phase and skip it.
---
 gnu/packages/base.scm | 14 ++++++++++----
 1 file changed, 10 insertions(+), 4 deletions(-)

diff --git a/gnu/packages/base.scm b/gnu/packages/base.scm
index 30eabe32af..c2dd156280 100644
--- a/gnu/packages/base.scm
+++ b/gnu/packages/base.scm
@@ -341,10 +341,16 @@ interactive means to merge two files.")
                      (substitute* '("tests/xargs/verbose-quote.sh"
                                     "tests/find/exec-plus-last-file.sh")
                        (("#!/bin/sh")
-                        (string-append "#!" (which "sh")))))))
-      #:make-flags ,(if (target-hurd?)
-                        ''("XFAIL_TESTS=test-strerror_r")
-                        ''())))
+                        (string-append "#!" (which "sh"))))))
+                 ,@(if (system-hurd?)
+                       '((add-after 'unpack 'skip-tests
+                           (lambda _
+                             (substitute*
+                                 ;; This test fails non-deterministically
+                                 "gnulib-tests/test-strerror_r.c"
+                               (("(^| )main *\\(.*" all)
+                                (string-append all "{\n  exit (77);//"))))))
+                       '()))))
    (synopsis "Operating on files matching given criteria")
    (description
     "Findutils supplies the basic file directory searching utilities of the