From 6b97415996583b15a97dad8254f610275353e913 Mon Sep 17 00:00:00 2001
From: Ting-Wei Lan <lantw44@gmail.com>
Date: Sat, 18 May 2019 12:08:49 +0200
Subject: 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 77a5dc1998..b0bb7a8e49 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))))
-- 
cgit v1.2.3

it</a><a href='/guix/diff/gnu/packages/c.scm?id=817e09c1745e2ec1454e486ae0d14a959e2e1b6f'>diff</a></td><td class='form'><form class='right' method='get' action='/guix/log/gnu/packages/c.scm'>
<input type='hidden' name='id' value='817e09c1745e2ec1454e486ae0d14a959e2e1b6f'/><select name='qt'>
<option value='grep'>log msg</option>
<option value='author'>author</option>
<option value='committer'>committer</option>
<option value='range'>range</option>
</select>
<input class='txt' type='search' size='10' name='q' value=''/>
<input type='submit' value='search'/>
</form>
</td></tr></table>
<div class='path'>path: <a href='/guix/log/?id=817e09c1745e2ec1454e486ae0d14a959e2e1b6f'>root</a>/<a href='/guix/log/gnu?id=817e09c1745e2ec1454e486ae0d14a959e2e1b6f'>gnu</a>/<a href='/guix/log/gnu/packages?id=817e09c1745e2ec1454e486ae0d14a959e2e1b6f'>packages</a>/<a href='/guix/log/gnu/packages/c.scm?id=817e09c1745e2ec1454e486ae0d14a959e2e1b6f'>c.scm</a></div><div class='content'><table class='list nowrap'><tr class='nohover'><th class='left'>Age</th><th class='left'>Commit message (<a href='/guix/log/gnu/packages/c.scm?id=817e09c1745e2ec1454e486ae0d14a959e2e1b6f&amp;showmsg=1'>Expand</a>)</th><th class='left'>Author</th></tr>
<tr><td><span title='2018-11-21 17:38:00 +0100'>2018-11-21</span></td><td><a href='/guix/commit/gnu/packages/c.scm?id=bf6859e45ad33aa631fc231b23df2d56aff97360'>gnu: libbytesize: Make .mo file builds reproducible.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2018-11-08 10:08:09 +0100'>2018-11-08</span></td><td><a href='/guix/commit/gnu/packages/c.scm?id=9c30cba431ccc36462f91652b624ae0068d77491'>gnu: pcc: Use INVOKE.</a><span class='msg-avail'>...</span></td><td>Ricardo Wurmus</td></tr>
<tr><td><span title='2018-10-24 04:56:23 +0200'>2018-10-24</span></td><td><a href='/guix/commit/gnu/packages/c.scm?id=94617bddb01b9e295f82a59550ee983341d59288'>gnu: libbytesize: Update to 1.4.</a><span class='msg-avail'>...</span></td><td>Tobias Geerinckx-Rice</td></tr>
<tr><td><span title='2018-08-27 14:46:26 +0200'>2018-08-27</span></td><td><a href='/guix/commit/gnu/packages/c.scm?id=4715f92ef0b9650cc4075c69f17aa51e84da3f21'>Update email for Pierre Neidhardt.</a><span class='msg-avail'>...</span></td><td>Pierre Neidhardt</td></tr>
<tr><td><span title='2018-07-30 21:51:43 +0200'>2018-07-30</span></td><td><a href='/guix/commit/gnu/packages/c.scm?id=c229fb3d8813d2941d3fceaf1c196337f9e97de6'>gnu: Add libbytesize.</a><span class='msg-avail'>...</span></td><td>Pierre Neidhardt</td></tr>
<tr><td><span title='2018-04-30 23:41:21 +0200'>2018-04-30</span></td><td><a href='/guix/commit/gnu/packages/c.scm?id=350f50cbd35b6d1544734a4c6b2d7d43df4ac03c'>gnu: tcc-wrapper: Use Guile 2.2.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2018-01-19 13:19:33 +0100'>2018-01-19</span></td><td><a href='/guix/commit/gnu/packages/c.scm?id=5d0bd1fbbf00c3f8a06fc64b29f801780f4d46b2'>gnu: tcc: Update to 0.9.27.</a><span class='msg-avail'>...</span></td><td>Tobias Geerinckx-Rice</td></tr>