51/137: gnu: coreutils: Skip a test.

[guix-commits]

guix_mirror_bot pushed a commit to branch mesa-updates
in repository guix.

commit ee8e3ce2f5c9082889dfc6ad9172448f21bd2145
Author: John Kehayias <j...@guixotic.coop>
AuthorDate: Fri Sep 12 17:09:54 2025 -0400

    gnu: coreutils: Skip a test.
    
    This test fails on btrfs more generally, not only on hurd.
    
    * gnu/packages/base.scm (coreutils)[arguments]<#:phases>: Skip the
    reflink-auto test unconditionally.
    
    Change-Id: I27c4750f848a6b4c3c251614d95aefe41efe5d81
---
 gnu/packages/base.scm | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/gnu/packages/base.scm b/gnu/packages/base.scm
index 51a06c5413..2b3367d5b2 100644
--- a/gnu/packages/base.scm
+++ b/gnu/packages/base.scm
@@ -526,8 +526,6 @@ used to apply commands with arbitrarily long arguments.")
                                    "tests/split/fail.sh"
                                    ;; These tests error
                                    "tests/dd/nocache.sh"
-                                   ;; These tests can intermitently fail on 
btrfs
-                                   "tests/cp/reflink-auto.sh"
                                    ;; These tests fail
                                    "tests/cp/sparse.sh"
                                    "tests/cp/special-f.sh"
@@ -573,6 +571,10 @@ used to apply commands with arbitrarily long arguments.")
                                (("(^| )main *\\(.*" all)
                                 (string-append all "{\n  exit (77);//"))))
                            '())
+                     ;; These tests can fail on btrfs.
+                     (substitute* "tests/cp/reflink-auto.sh"
+                       (("^#!.*" all)
+                        (string-append all "exit 77;\n")))
                      (substitute* "Makefile.in"
                        ;; fails on filesystems where inotify cannot be used,
                        ;; more info in #47935