# GNU Guix --- Functional package management for GNU
# Copyright © 2015, 2016, 2019, 2020 Ludovic Courtès <ludo@gnu.org>
# Copyright © 2019 Simon Tournier <zimon.toutoune@gmail.com>
#
# 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/>.

#
# Test the 'guix graph' command-line utility.
#

module_dir="t-guix-graph-$$"
mkdir "$module_dir"
trap "rm -rf $module_dir" EXIT

tmpfile1="$module_dir/t-guix-graph1-$$"
tmpfile2="$module_dir/t-guix-graph2-$$"
trap 'rm -f "$tmpfile1" "$tmpfile2"' EXIT


cat > "$module_dir/foo.scm"<<EOF
(define-module (foo)
  #:use-module (guix packages)
  #:use-module (gnu packages base))

(define-public dummy
  (package (inherit hello)
    (name "dummy")
    (version "42")
    (synopsis "dummy package")
    (description "dummy package. Only used for testing purposes.")))
EOF


guix graph --version

for package in guile-bootstrap coreutils python
do
    for graph in package bag-emerged bag bag-with-origins
    do
	guix graph -t "$graph" "$package" | grep "$package"
    done
done

guix build guile-bootstrap
guix graph -t references guile-bootstrap | grep guile-bootstrap

guix graph -e '(@ (gnu packages bootstrap) %bootstrap-guile)' \
    | grep guile-bootstrap

if guix graph -e +; then false; else true; fi

# Try passing store file names.

guix graph -t references guile-bootstrap > "$tmpfile1"
guix graph -t references `guix build guile-bootstrap` > "$tmpfile2"
cmp "$tmpfile1" "$tmpfile2"

# XXX: Filter the file names in the graph to work around the fact that we get
# a mixture of relative and absolute file names.
guix graph -t derivation coreutils > "$tmpfile1"
guix graph -t derivation `guix build -d coreutils` > "$tmpfile2"
cmp "$tmpfile1" "$tmpfile2"

# Try package transformation options.
guix graph git | grep 'label = "openssl'
guix graph git --with-input=openssl=libressl | grep 'label = "libressl'
if guix graph git --with-input=openssl=libressl | grep 'label = "openssl'
then false; else true; fi

# Try --load-path
guix graph -L $module_dir dummy | grep 'label = "dummy'

# Displaying shortest paths (or lack thereof).
if guix graph --path emacs vim; then false; else true; fi

path="\
emacs
gnutls
guile
libffi"
test "`guix graph --path emacs libffi | cut -d '@' -f1`" = "$path"

# At the derivation level, there's a direct path because libffi is propagated
# via gtk+.
test "`guix graph --path -t derivation emacs libffi | wc -l`" -ge 2
d></tr>
<tr><td><span title='2021-01-31 00:00:41 +0200'>2021-01-31</span></td><td><a href='/guix/commit/gnu/packages/parallel.scm?id=2667156585fe81ed4370b71b232973c29582f232'>gnu: slurm-19.05: Update to 19.05.8.</a><span class='msg-avail'>...</span></td><td>Efraim Flashner</td></tr>
<tr><td><span title='2021-01-30 23:49:02 +0200'>2021-01-30</span></td><td><a href='/guix/commit/gnu/packages/parallel.scm?id=8d7bc7932f24cbe8f806574298968f70dc789a03'>gnu: slurm: Update to 20.11.3.</a><span class='msg-avail'>...</span></td><td>Efraim Flashner</td></tr>
<tr><td><span title='2021-01-30 23:35:31 +0200'>2021-01-30</span></td><td><a href='/guix/commit/gnu/packages/parallel.scm?id=ebf88ff593bf02e15d348e41df2139ae58ac0b6a'>gnu: slurm: Update note about slurm versions.</a><span class='msg-avail'>...</span></td><td>Efraim Flashner</td></tr>
<tr><td><span title='2021-01-30 23:27:45 +0200'>2021-01-30</span></td><td><a href='/guix/commit/gnu/packages/parallel.scm?id=9008e0ec3f4bbb6a3ac294aab8a67e7800b850fd'>gnu: parallel: Update to 20210122.</a><span class='msg-avail'>...</span></td><td>Efraim Flashner</td></tr>
<tr><td><span title='2021-01-07 12:08:41 +0100'>2021-01-07</span></td><td><a href='/guix/commit/gnu/packages/parallel.scm?id=c356c751e2e21d7cbe88eb0563961f0c00a364fb'>gnu: slurm: Add old 20.02 version back.</a><span class='msg-avail'>...</span></td><td>Vincent Legoll</td></tr>
<tr><td><span title='2021-01-05 12:53:07 +0200'>2021-01-05</span></td><td><a href='/guix/commit/gnu/packages/parallel.scm?id=c25285b6a155365a73c1f84e42397b2cd01d3023'>gnu: parallel: Update to 20201222.</a><span class='msg-avail'>...</span></td><td>Efraim Flashner</td></tr>
<tr><td><span title='2020-12-30 17:53:07 -0500'>2020-12-30</span></td><td><a href='/guix/commit/gnu/packages/parallel.scm?id=50abaf63879c93e0ea0e09883defe639396fb04c'>gnu: slurm: Update to 20.11.2.</a><span class='msg-avail'>...</span></td><td>Vincent Legoll</td></tr>
<tr><td><span title='2020-12-01 21:12:17 +0200'>2020-12-01</span></td><td><a href='/guix/commit/gnu/packages/parallel.scm?id=410d5550b0f7e42686fd13fe2f11bde4afcfac0c'>gnu: Add slurm-18.08.</a><span class='msg-avail'>...</span></td><td>Efraim Flashner</td></tr>
<tr><td><span title='2020-11-23 19:22:30 +0100'>2020-11-23</span></td><td><a href='/guix/commit/gnu/packages/parallel.scm?id=2d3c9320731367427072a5b448fba857352db7cb'>gnu: parallel: Update to 20201122.</a><span class='msg-avail'>...</span></td><td>Tobias Geerinckx-Rice</td></tr>
<tr><td><span title='2020-11-20 02:26:47 +0100'>2020-11-20</span></td><td><a href='/guix/commit/gnu/packages/parallel.scm?id=5ccd270ab225b253c93e85cb16e3cc0eacd0753a'>gnu: parallel: Update to 20201022.</a><span class='msg-avail'>...</span></td><td>Tobias Geerinckx-Rice</td></tr>
<tr><td><span title='2020-11-02 14:59:34 +0100'>2020-11-02</span></td><td><a href='/guix/commit/gnu/packages/parallel.scm?id=e1bd62eb5ce0f2410b2607f157989588791b43e0'>gnu: slurm: Reintroduce version 19.05.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2020-10-15 10:39:33 +0300'>2020-10-15</span></td><td><a href='/guix/commit/gnu/packages/parallel.scm?id=d623ece56624fd7d611cdaf42f728b21d89fec5c'>gnu: slurm: Re-arrange package inputs.</a><span class='msg-avail'>...</span></td><td>Efraim Flashner</td></tr>
<tr><td><span title='2020-10-14 15:22:29 +0200'>2020-10-14</span></td><td><a href='/guix/commit/gnu/packages/parallel.scm?id=3c338135f1ec218f2cd19786a13b883ed36f12bb'>gnu: slurm: Update to 20.02.5.</a><span class='msg-avail'>...</span></td><td>Ricardo Wurmus</td></tr>
<tr><td><span title='2020-08-23 18:19:57 +0200'>2020-08-23</span></td><td><a href='/guix/commit/gnu/packages/parallel.scm?id=7e33054be8bc39c279a68466ae7a1ee6978ccc67'>gnu: parallel: Update to 20200822.</a><span class='msg-avail'>...</span></td><td>Tobias Geerinckx-Rice</td></tr>
<tr><td><span title='2020-07-23 23:51:22 +0200'>2020-07-23</span></td><td><a href='/guix/commit/gnu/packages/parallel.scm?id=4ba0f3b597f7099c5a780cad45b86c2e384507ea'>gnu: parallel: Update to 20200722.</a><span class='msg-avail'>...</span></td><td>Tobias Geerinckx-Rice</td></tr>
<tr><td><span title='2020-06-30 09:31:53 +0300'>2020-06-30</span></td><td><a href='/guix/commit/gnu/packages/parallel.scm?id=5511395b0511dc6eb724c9a1542e2913a3339982'>gnu: parallel: Update to 20200622.</a><span class='msg-avail'>...</span></td><td>Efraim Flashner</td></tr>