~ruther/guix-local: tests: Disable test for freed disk space that fails on Btrfs.

953c2de7061f18f55d8c51b72eb24945f436e80e — Marius Bakke 8 years ago d1451fa

tests: Disable test for freed disk space that fails on Btrfs.

This is a follow-up to commit 40e89f5be609045bc2666cc16a4ef80bb7f84095.

* tests/store.scm ("dead path can be explicitly collected"): Don't check
that (> freed 0).
* gnu/packages/package-management.scm (guix)[arguments]<#:phases>: Remove
workaround for the same problem.

patch browse .tar.gz

2 files changed, 3 insertions(+), 7 deletions(-)

M gnu/packages/package-management.scm
M tests/store.scm

M gnu/packages/package-management.scm => gnu/packages/package-management.scm +0 -6

@@ 182,12 182,6 @@
                           (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 _

M tests/store.scm => tests/store.scm +3 -1

@@ 180,7 180,9 @@
                               (random-text) '())))
     (let-values (((paths freed) (delete-paths %store (list p))))
       (and (equal? paths (list p))
-           (> freed 0)
+           ;; XXX: On some file systems (notably Btrfs), freed
+           ;; may return 0.  See <https://bugs.gnu.org/29363>.
+           ;;(> freed 0)
            (not (file-exists? p))))))
 
 (test-assert "add-text-to-store vs. delete-paths"