31/48: gnu: tar: Disable troublesome tests on the Hurd.

[guix-commits]

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

commit 0c8e548e0300afdb87fd1d9a015a1674c1d9bdef
Author: Jan (janneke) Nieuwenhuizen <address@hidden>
AuthorDate: Wed Apr 15 09:42:09 2020 +0200

    gnu: tar: Disable troublesome tests on the Hurd.
    
    The sparse03.at test apparently freezes the Hurd; messages
    on the console:
    
    165: listing sparse files bigger than 2^33
    
    ext2fs: device:hd0s1: warning: bit already cleared for block 245780
    ext2fs: device:hd0s1: warning: bit already cleared for block 245781
    ext2fs: device:hd0s1: warning: bit already cleared for block 245782
    ...
    ext2fs: BUG: unexpected fault on disk image ... err 0xa
    ext2fs: disk-pager.c:98: fault_handler: Assertion 'err' failed.
    
    the other tests just fail.
    
    * gnu/packages/base.scm (tar)[arguments]: When compiling for the Hurd,
    skip `sparse' and failing tests.
---
 gnu/packages/base.scm | 17 ++++++++++++++++-
 1 file changed, 16 insertions(+), 1 deletion(-)

diff --git a/gnu/packages/base.scm b/gnu/packages/base.scm
index 80a158a..d4bd572 100644
--- a/gnu/packages/base.scm
+++ b/gnu/packages/base.scm
@@ -171,7 +171,22 @@ implementation offers several extensions over the standard 
utility.")
    (build-system gnu-build-system)
    ;; Note: test suite requires ~1GiB of disk space.
    (arguments
-    `(#:phases (modify-phases %standard-phases
+    `(,@(if (hurd-target?)
+            '(#:make-flags
+              (list (string-append
+                     "TESTSUITEFLAGS= -k '"
+                     "!sparse"
+                     ",!renamed dirs in incrementals"
+                     ",!--exclude-tag option in incremental pass"
+                     ",!incremental dumps with -C"
+                     ",!incremental dumps of nested directories"
+                     ",!incremental restores with -C"
+                     ",!concatenated incremental archives (renames)"
+                     ",!renamed directory containing subdirectories"
+                     ",!renamed subdirectories"
+                     "'")))
+            '())
+      #:phases (modify-phases %standard-phases
                  (add-before 'build 'set-shell-file-name
                    (lambda* (#:key inputs #:allow-other-keys)
                      ;; Do not use "/bin/sh" to run programs.