branch wip-ppc64le updated: tests: gremlin: Refactor file-needed/recursive skip logic.

[guix-commits]

This is an automated email from the git hooks/post-receive script.

marusich pushed a commit to branch wip-ppc64le
in repository guix.

The following commit(s) were added to refs/heads/wip-ppc64le by this push:
     new b22dcb2  tests: gremlin: Refactor file-needed/recursive skip logic.
b22dcb2 is described below

commit b22dcb24207022d9a716893836578e96f4b580a1
Author: Chris Marusich <cmmarusich@gmail.com>
AuthorDate: Wed Feb 24 09:16:29 2021 -0800

    tests: gremlin: Refactor file-needed/recursive skip logic.
    
    * tests/gremlin.scm (file-needed/recursive): Simplify the logic that
    determines when we should skip the test by using pair? to determine
    if (file-runpath %guile-executable) is a non-empty list.
---
 tests/gremlin.scm | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/tests/gremlin.scm b/tests/gremlin.scm
index 3464feb..79abdaf 100644
--- a/tests/gremlin.scm
+++ b/tests/gremlin.scm
@@ -65,8 +65,7 @@
              ;; When Guix has been built on a foreign distro, using a
              ;; toolchain and libraries from that foreign distro, it is not
              ;; unusual for the runpath to be empty.
-             (and=> (file-runpath %guile-executable)
-                    (compose not null-list?)))
+             (pair? (file-runpath %guile-executable)))
   (test-skip 1))
 (test-assert "file-needed/recursive"
   (let* ((needed (file-needed/recursive %guile-executable))