02/03: gremlin: Adjust tests for foreign distros.

[guix-commits]

civodul pushed a commit to branch version-1.0.1
in repository guix.

commit 6b97415996583b15a97dad8254f610275353e913
Author: Ting-Wei Lan <address@hidden>
Date:   Sat May 18 12:08:49 2019 +0200

    gremlin: Adjust tests for foreign distros.
    
    Fixes <https://bugs.gnu.org/35775>.
    
    * tests/gremlin.scm ("elf-dynamic-info-needed, executable"): Expect only
    libguile and libc among NEEDED.
    ("strip-runpath"): Pass '--enable-new-dtags' to get RUNPATH, not RPATH.
---
 tests/gremlin.scm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/tests/gremlin.scm b/tests/gremlin.scm
index 77a5dc1..b0bb7a8 100644
--- a/tests/gremlin.scm
+++ b/tests/gremlin.scm
@@ -52,7 +52,7 @@
     (or (not dyninfo)                             ;static executable
         (lset<= string=?
                 (list (string-append "libguile-" (effective-version))
-                      "libgc" "libunistring" "libffi")
+                      "libc")
                 (map (lambda (lib)
                        (string-take lib (string-contains lib ".so")))
                      (elf-dynamic-info-needed dyninfo))))))
@@ -79,7 +79,7 @@
          (lambda (port)
            (display "int main () { puts(\"hello\"); }" port)))
        (invoke c-compiler "t.c"
-               "-Wl,-rpath=/foo" "-Wl,-rpath=/bar")
+               "-Wl,--enable-new-dtags" "-Wl,-rpath=/foo" "-Wl,-rpath=/bar")
        (let* ((dyninfo (elf-dynamic-info
                         (parse-elf (call-with-input-file "a.out"
                                      get-bytevector-all))))