From: Jan (janneke) Nieuwenhuizen <janneke@gnu.org>
Date: Wed, 17 Jun 2020 05:29:30 +0000 (+0200)
Subject: gnu: coreutils: Update broken tests for the Hurd.
X-Git-Url: http://git.hcoop.net/jackhill/guix/guix.git/commitdiff_plain/c00564192a9924ab2218c243342963aba89d67d1

gnu: coreutils: Update broken tests for the Hurd.

* gnu/packages/base.scm (coreutils)[arguments]: When compiling for the Hurd,
remove hanging "timeout-group" test.  Remove tests "shred-passes", "l-chunk"
and "stats" from XFAIL_TESTS, they pass now.
---

diff --git a/gnu/packages/base.scm b/gnu/packages/base.scm
index c66ea5a187..50e426fadf 100644
--- a/gnu/packages/base.scm
+++ b/gnu/packages/base.scm
@@ -342,10 +342,7 @@ used to apply commands with arbitrarily long arguments.")
               (list (string-append "XFAIL_TESTS=tests/misc/env-S.pl"
                                    " tests/misc/kill.sh"
                                    " tests/misc/nice.sh"
-                                   " tests/misc/shred-passes.sh"
                                    " tests/split/fail.sh"
-                                   " tests/split/l-chunk.sh"
-                                   " tests/dd/stats.sh"
                                    " test-fdutimensat"
                                    " test-futimens"
                                    " test-linkat"
@@ -365,7 +362,15 @@ used to apply commands with arbitrarily long arguments.")
                        (("/bin/sh") (which "sh")))
                      (substitute* (find-files "tests" "\\.sh$")
                        (("#!/bin/sh") (string-append "#!" (which "sh"))))
-                     #t)))))
+                     #t))
+                 ,@(if (hurd-target?)
+                       `((add-after 'unpack 'remove-tests
+                           (lambda _
+                             (substitute* "Makefile.in"
+                               ;; this test hangs
+                               (("^ *tests/misc/timeout-group.sh.*") ""))
+                             #t)))
+                       '()))))
    (synopsis "Core GNU utilities (file, text, shell)")
    (description
     "GNU Coreutils package includes all of the basic command-line tools that