01/01: gnu: acl: Enable tests.

[Leo Famulari]

lfam pushed a commit to branch core-updates
in repository guix.

commit 2d433b5363fecba0d63caa1844c937dec4ccc23b
Author: Kei Kebreau <address@hidden>
Date:   Sat Nov 4 10:36:36 2017 -0400

    gnu: acl: Enable tests.
    
    * gnu/packages/acl.scm (acl)[arguments]: Enable tests. Add 'patch-tests' 
phase.
---
 gnu/packages/acl.scm | 13 +++++++++++--
 1 file changed, 11 insertions(+), 2 deletions(-)

diff --git a/gnu/packages/acl.scm b/gnu/packages/acl.scm
index 35bafc4..3540d40 100644
--- a/gnu/packages/acl.scm
+++ b/gnu/packages/acl.scm
@@ -44,8 +44,7 @@
       (patches (search-patches "acl-hurd-path-max.patch"))))
     (build-system gnu-build-system)
     (arguments
-     `(#:tests? #f   ; FIXME: Investigate test suite failures
-       #:test-target "tests"
+     `(#:test-target "tests"
        #:phases
        (modify-phases %standard-phases
          (add-after 'build 'patch-exec-bin-sh
@@ -53,6 +52,16 @@
              (substitute* "test/run"
                (("/bin/sh") (which "sh")))
              #t))
+         (add-before 'check 'patch-tests
+            ;; The coreutils do not have an ACL bit to remove from their
+            ;; output, so the sed expression that removes the bit is disabled.
+            (substitute* "test/sbits-restore.test"
+              (("\\| sed.*'") ""))
+            ;; These tests require the existence of a user named "bin", but
+            ;; this user does not exist within Guix's build environment.
+            (for-each (lambda (file)
+                        (delete-file (string-append "test/" file)))
+                      '("setfacl-X.test" "cp.test" "misc.test")))
          (replace 'install
            (lambda _
              (zero? (system* "make" "install" "install-lib" 
"install-dev")))))))