01/06: gnu: guix: Disable test that fails on Btrfs.

[Marius Bakke]

mbakke pushed a commit to branch master
in repository guix.

commit 40e89f5be609045bc2666cc16a4ef80bb7f84095
Author: Marius Bakke <address@hidden>
Date:   Tue Nov 21 00:27:08 2017 +0100

    gnu: guix: Disable test that fails on Btrfs.
    
    Works around <https://bugs.gnu.org/29363>.
    Reported by Rutger Helling <address@hidden>.
    
    * gnu/packages/package-management.scm (guix)[arguments]: Rename
    'disable-container-tests' phase to 'disable-failing-tests' and add
    substitution to disable test for freed disk space.
---
 gnu/packages/package-management.scm | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

diff --git a/gnu/packages/package-management.scm 
b/gnu/packages/package-management.scm
index 4f1f7f5..0c7aef9 100644
--- a/gnu/packages/package-management.scm
+++ b/gnu/packages/package-management.scm
@@ -169,8 +169,7 @@
                         (copy "armhf")
                         (copy "aarch64")
                         #t))
-                    (add-after
-                        'unpack 'disable-container-tests
+                    (add-after 'unpack 'disable-failing-tests
                       ;; XXX FIXME: These tests fail within the build 
container.
                       (lambda _
                         (substitute* "tests/syscalls.scm"
@@ -183,6 +182,12 @@
                           (substitute* "tests/guix-environment-container.sh"
                             (("guix environment --version")
                              "exit 77\n")))
+                        ;; XXX: On some file systems (notably Btrfs), the test
+                        ;; for freed disk space after GC may fail.  See
+                        ;; <https://bugs.gnu.org/29363>.
+                        (substitute* "tests/store.scm"
+                          (("(\\(> freed 0\\))" all)
+                           (string-append ";" all)))
                         #t))
                     (add-before 'check 'set-SHELL
                       (lambda _