;;; 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")
libutil?id=077d66ed4277d8195272bc64feed650a27cc2995'>libutil</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/nix/libutil?id=077d66ed4277d8195272bc64feed650a27cc2995&amp;showmsg=1'>Expand</a>)</th><th class='left'>Author</th></tr>
<tr><td><span title='2017-08-18 11:31:28 +0200'>2017-08-18</span></td><td><a href='/guix/commit/nix/libutil?id=ed464f48efd80e6439441d7a9f6d0e7988fb1272'>nix: Remove unused function.</a><span class='msg-avail'>...</span></td><td>Andy Wingo</td></tr>
<tr><td><span title='2016-05-31 18:22:14 +0200'>2016-05-31</span></td><td><a href='/guix/commit/nix/libutil?id=75abbd0cbe2c42f07fa104f97bd206891eb576ef'>daemon: Remove unused XML output code.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2015-12-02 19:37:59 +0200'>2015-12-02</span></td><td><a href='/guix/commit/nix/libutil?id=14fb686a21d786afa699a38d20929a88be6e541d'>daemon: Fix namespace issue.</a></td><td>Eelco Dolstra</td></tr>
<tr><td><span title='2015-12-02 19:37:59 +0200'>2015-12-02</span></td><td><a href='/guix/commit/nix/libutil?id=29d3242e5c428d3b0e8dc9db1c81cd4053e5271c'>daemon: Support SHA-512 hashes.</a><span class='msg-avail'>...</span></td><td>Eelco Dolstra</td></tr>
<tr><td><span title='2015-12-02 19:37:59 +0200'>2015-12-02</span></td><td><a href='/guix/commit/nix/libutil?id=79aa1a83054af1600ba235ddf305337b5df78271'>daemon: int2String -&gt; std::to_string.</a></td><td>Eelco Dolstra</td></tr>
<tr><td><span title='2015-07-03 00:30:55 +0200'>2015-07-03</span></td><td><a href='/guix/commit/nix/libutil?id=322eeb87d0e5bb608ae1c176611a50297c93cbe8'>Merge branch 'nix'.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2015-06-03 22:59:02 +0200'>2015-06-03</span></td><td><a href='/guix/commit/nix/libutil?id=54c260e6ecc81f1836bda844ec8e661d51bfb867'>Merge branch 'nix'.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2015-05-19 16:09:58 +0200'>2015-05-19</span></td><td><a href='/guix/commit/nix/libutil?id=2bb04905f86f9c3f1d27557fbff8cbdc776560a3'>Merge branch 'nix'.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2015-05-19 16:09:58 +0200'>2015-05-19</span></td><td><a href='/guix/commit/nix/libutil?id=a88b8c5c985a87586159c0621974a1dfe5b9b92d'>Revert "daemon: Fix possible use-after-free."</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2015-05-11 23:01:20 +0200'>2015-05-11</span></td><td><a href='/guix/commit/nix/libutil?id=1303a4a4517260def862ce7fe97e6b28dd8005e1'>daemon: Fix possible use-after-free.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2015-01-04 23:27:34 +0100'>2015-01-04</span></td><td><a href='/guix/commit/nix/libutil?id=15ddeff532b517843668eef8f615838d15b4f75c'>Merge commit a1dd396cc02922372314c35c8035a38bfeea08df of branch 'nix'.</a></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2014-12-19 22:47:37 +0100'>2014-12-19</span></td><td><a href='/guix/commit/nix/libutil?id=36457566f9917dc7c0c348d012816a2ca333ef1b'>Merge branch 'nix' into 'master'.</a></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2013-12-19 00:02:49 +0100'>2013-12-19</span></td><td><a href='/guix/commit/nix/libutil?id=0c5028faea7e5c08c920f8ea31f02e7923b8c2d8'>daemon: Fix 'HashSink::currentHash()'.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2013-09-12 14:09:29 +0200'>2013-09-12</span></td><td><a href='/guix/commit/nix/libutil?id=ea1673808584f3c40cc76cc2ea570676309ba5bc'>daemon: Use 'int' instead of the internal 'gcry_md_algo_t' type.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>