;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2015 Ludovic Courtès <ludo@gnu.org>
;;;
;;; This file is part of GNU Guix.
;;;
;;; GNU Guix is free software; you can redistribute it and/or modify it
;;; under the terms of the GNU General Public License as published by
;;; the Free Software Foundation; either version 3 of the License, or (at
;;; your option) any later version.
;;;
;;; GNU Guix is distributed in the hope that it will be useful, but
;;; WITHOUT ANY WARRANTY; without even the implied warranty of
;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
;;; GNU General Public License for more details.
;;;
;;; You should have received a copy of the GNU General Public License
;;; along with GNU Guix.  If not, see <http://www.gnu.org/licenses/>.

(define-module (test-gremlin)
  #:use-module (guix elf)
  #:use-module (guix build utils)
  #:use-module (guix build gremlin)
  #:use-module (srfi srfi-1)
  #:use-module (srfi srfi-26)
  #:use-module (srfi srfi-64)
  #:use-module (rnrs io ports)
  #:use-module (ice-9 match))

(define %guile-executable
  (match (command-line)
    ((program . _)
     (and (file-exists? program) (elf-file? program)
          program))
    (_
     #f)))

(define read-elf
  (compose parse-elf get-bytevector-all))


(test-begin "gremlin")

(unless %guile-executable (test-skip 1))
(test-assert "elf-dynamic-info-needed, executable"
  (let* ((elf     (call-with-input-file %guile-executable read-elf))
         (dyninfo (elf-dynamic-info elf)))
    (or (not dyninfo)                             ;static executable
        (lset<= string=?
                (list (string-append "libguile-" (effective-version))
                      "libgc" "libunistring" "libffi")
                (map (lambda (lib)
                       (string-take lib (string-contains lib ".so")))
                     (elf-dynamic-info-needed dyninfo))))))

(test-equal "expand-origin"
  '("OOO/../lib"
    "OOO"
    "../OOO/bar/OOO/baz"
    "ORIGIN/foo")
  (map (cut expand-origin <> "OOO")
       '("$ORIGIN/../lib"
         "${ORIGIN}"
         "../${ORIGIN}/bar/$ORIGIN/baz"
         "ORIGIN/foo")))

(test-end "gremlin")
705c18ebfafc4e291ba3be2ceeeead9e2a289'>gnu</a>/<a href='/guix/log/gnu/packages?id=58f705c18ebfafc4e291ba3be2ceeeead9e2a289'>packages</a>/<a href='/guix/log/gnu/packages/chez.scm?id=58f705c18ebfafc4e291ba3be2ceeeead9e2a289'>chez.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/chez.scm?id=58f705c18ebfafc4e291ba3be2ceeeead9e2a289&amp;showmsg=1'>Expand</a>)</th><th class='left'>Author</th></tr>
<tr><td><span title='2020-01-15 00:24:28 +0100'>2020-01-15</span></td><td><a href='/guix/commit/gnu/packages/chez.scm?id=bb93042c8beb881ab907fa802eefb3c4091039a2'>gnu: util-linux: Move libraries to separate output.</a><span class='msg-avail'>...<span class='msg-tooltip'>Fixes &lt;https://bugs.gnu.org/37732&gt;.
Reported by Diego Nicola Barbato &lt;dnbarbato@posteo.de&gt;.

* gnu/packages/linux.scm (util-linux)[outputs]: Add "lib".
[arguments]: Update #:configure-flags and the "move-static-libraries" phase
accordingly.  Add phases "patch-build-scripts" and "adjust-pkg-config-files".
(e2fsprogs, psm, mtd-utils, f2fs-tools, f2fs-tools-1.7, eudev,
xfsprogs)[inputs]: Change to the "lib" output of UTIL-LINUX.
(btrfs-progs)[inputs]: Remove duplicate UTIL-LINUX inputs and change to use
the "lib" output.
* gnu/packages/admin.scm (pam-mount)[inputs]: Add UTIL-LINUX:LIB.
(testdisk)[inputs]: Change to the "lib" output of UTIL-LINUX.
* gnu/packages/android.scm (abootimg)[inputs]: Likewise.
* gnu/packages/audio.scm (jack-1)[propagated-inputs]: Likewise.
* gnu/packages/bootloaders.scm (syslinux, vboot-utils)[inputs]: Likewise.
* gnu/packages/chez.scm (chez-scheme)[inputs]: Likewise.
* gnu/packages/cryptsetup.scm (cryptsetup, cryptsetup-static)[inputs]: Likewise.
* gnu/packages/databases.scm (postgresql, 4store)[inputs]: Likewise.
* gnu/packages/disk.scm (ndctl, gptfdisk, fdisk, gparted, rmlint,
volume-key)[inputs]: Likewise.
(parted)[inputs]: Likewise.
[native-inputs]: Add UTIL-LINUX.
* gnu/packages/efi.scm (sbsigntools)[inputs]: Add UTIL-LINUX:LIB.
* gnu/packages/engineering.scm (lib3mf)[inputs]: Change to the "lib" output of
UTIL-LINUX.
* gnu/packages/enlightenment.scm (efl)[propagated-inputs]: Likewise.
* gnu/packages/file-systems.scm (glusterfs, jfsutils, zfs)[inputs]: Likewise.
* gnu/packages/firmware.scm (ovmf)[inputs]: Likewise.
* gnu/packages/fontutils.scm (fontconfig)[propagated-inputs]: Likewise.
* gnu/packages/freedesktop.scm (localed)[inputs]: Likewise.
* gnu/packages/glib.scm (glib, appstream-glib)[propagated-inputs]: Likewise.
* gnu/packages/gnome.scm (tracker, gnome-terminal)[inputs]: Likewise.
* gnu/packages/jupyter.scm (xeus)[inputs]: Likewise.
* gnu/packages/kde.scm (kpmcore)[inputs]: Likewise.
* gnu/packages/kodi.scm (crossguid)[inputs]: Likewise.
* gnu/packages/lighting.scm (ola)[inputs]: Likewise.
* gnu/packages/music.scm (libgig)[inputs]: Likewise.
* gnu/packages/nfs.scm (nfs-utils)[inputs]: Likewise.
* gnu/packages/opencog.scm (opencog)[inputs]: Likewise.
* gnu/packages/package-management.scm (msitools)[inputs]: Change to the "lib"
output of UTIL-LINUX.
* gnu/packages/password-utils.scm (pwsafe)[inputs]: Likewise.
* gnu/packages/telephony.scm (pjproject)[propagated-inputs]: Likewise.
* gnu/packages/rdf.scm (rasqal)[inputs]: Likewise.
* gnu/packages/search.scm (xapian)[inputs]: Likewise.
* gnu/packages/sssd.scm (sssd)[native-inputs]: Likewise.
* gnu/packages/storage.scm (ceph)[inputs]: Add UTIL-LINUX:LIB.
* gnu/packages/task-management.scm (taskwarrior)[inputs]: Change to the "lib"
output of UTIL-LINUX.
* gnu/packages/virtualization.scm (libvirt, xen)[inputs]: Likewise.
* gnu/packages/xorg.scm (libsm)[inputs]: Likewise.
</span></span></td><td>Marius Bakke</td></tr>
<tr><td><span title='2020-01-14 23:50:24 +0100'>2020-01-14</span></td><td><a href='/guix/commit/gnu/packages/chez.scm?id=bc5ce79faf209a2a135de87ad16457becae883d9'>gnu: chez-sheme: Move util-linux to inputs.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/packages/chez.scm (chez-scheme)[native-inputs]: Move UTIL-LINUX ...
[inputs]: ... here.  Rename assoc key to "libuuid" for clarity.
</span></span></td><td>Marius Bakke</td></tr>
<tr><td><span title='2020-01-12 20:33:52 +0100'>2020-01-12</span></td><td><a href='/guix/commit/gnu/packages/chez.scm?id=7dadffff8dec4cd4756e45ea60992de73dac4fc8'>gnu: chez-scheme: Remove obsolete snippet.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/packages/chez.scm (chez-scheme)[source](modules, snippet): Remove.
</span></span></td><td>Marius Bakke</td></tr>
<tr><td><span title='2019-12-24 21:58:16 -0600'>2019-12-24</span></td><td><a href='/guix/commit/gnu/packages/chez.scm?id=0cf6f606a83bab70cf68273e38025bc48e6897ce'>gnu: chez-scheme: Update home-page.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/packages/chez.scm (chez-scheme)[home-page]: Now uses Github project page.
</span></span></td><td>Brett Gilio</td></tr>
<tr><td><span title='2019-12-24 21:56:40 -0600'>2019-12-24</span></td><td><a href='/guix/commit/gnu/packages/chez.scm?id=cded4ca0003e36465b890f83395e7b6f1babbc87'>gnu: chez-scheme: Update to 9.5.2.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/packages/chez.scm (chez-scheme): Update to 9.5.2.
[native-inputs]: Add util-linux for UUID support.
[arguments]: Remove patch-broken-documentation phase.
[arguments]: Update configure mechanism to prevent CURLing of submodules.
</span></span></td><td>Brett Gilio</td></tr>