diff options
author | Ludovic Courtès <ludo@gnu.org> | 2018-08-21 23:11:07 +0200 |
---|---|---|
committer | Ludovic Courtès <ludo@gnu.org> | 2018-08-21 23:27:08 +0200 |
commit | f7dfda2c73a0c4f09b105cafb29c45cf594e4ba9 (patch) | |
tree | a3e56a82a7fcb8d3c9f102f896a18d6ac8896336 | |
parent | f43d2dcd80c201600fb161f0f3076daaccc46a2c (diff) | |
download | patches-f7dfda2c73a0c4f09b105cafb29c45cf594e4ba9.tar patches-f7dfda2c73a0c4f09b105cafb29c45cf594e4ba9.tar.gz |
gremlin: 'elf-dynamic-info-needed' test is no longer skipped.
* tests/gremlin.scm (%guile-executable): Use /proc/self/exe instead
of (command-line). For a while now, the first element of (command-line)
was "./build-aux/test-driver.scm"; consequently the test was always
skipped.
-rw-r--r-- | tests/gremlin.scm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/tests/gremlin.scm b/tests/gremlin.scm index 2885554967..f1089e7da6 100644 --- a/tests/gremlin.scm +++ b/tests/gremlin.scm @@ -1,5 +1,5 @@ ;;; GNU Guix --- Functional package management for GNU -;;; Copyright © 2015 Ludovic Courtès <ludo@gnu.org> +;;; Copyright © 2015, 2018 Ludovic Courtès <ludo@gnu.org> ;;; ;;; This file is part of GNU Guix. ;;; @@ -27,8 +27,8 @@ #:use-module (ice-9 match)) (define %guile-executable - (match (command-line) - ((program . _) + (match (false-if-exception (readlink "/proc/self/exe")) + ((? string? program) (and (file-exists? program) (elf-file? program) program)) (_ |