ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-12-24 05:18:07 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

gremlin: Adjust tests for foreign distros.

Browse source 
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.
This commit is contained in:
Ting-Wei Lan 2019-05-18 12:08:49 +02:00 committed by Ludovic Courtès
parent 1b0d2b2afc
commit 6b97415996
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
tests/gremlin.scm
View file

@ -52,7 +52,7 @@ (define c-compiler
(or (not dyninfo) ;static executable (or (not dyninfo) ;static executable
(lset<= string=? (lset<= string=?
(list (string-append "libguile-" (effective-version)) (list (string-append "libguile-" (effective-version))
"libgc" "libunistring" "libffi") "libc")
(map (lambda (lib) (map (lambda (lib)
(string-take lib (string-contains lib ".so"))) (string-take lib (string-contains lib ".so")))
(elf-dynamic-info-needed dyninfo)))))) (elf-dynamic-info-needed dyninfo))))))
@ -79,7 +79,7 @@ (define c-compiler
(lambda (port) (lambda (port)
(display "int main () { puts(\"hello\"); }" port))) (display "int main () { puts(\"hello\"); }" port)))
(invoke c-compiler "t.c" (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 (let* ((dyninfo (elf-dynamic-info
(parse-elf (call-with-input-file "a.out" (parse-elf (call-with-input-file "a.out"
get-bytevector-all)))) get-bytevector-all))))