| 1 | # GNU Guix --- Functional package management for GNU |
| 2 | # Copyright © 2015, 2016, 2019, 2020 Ludovic Courtès <ludo@gnu.org> |
| 3 | # Copyright © 2019 Simon Tournier <zimon.toutoune@gmail.com> |
| 4 | # |
| 5 | # This file is part of GNU Guix. |
| 6 | # |
| 7 | # GNU Guix is free software; you can redistribute it and/or modify it |
| 8 | # under the terms of the GNU General Public License as published by |
| 9 | # the Free Software Foundation; either version 3 of the License, or (at |
| 10 | # your option) any later version. |
| 11 | # |
| 12 | # GNU Guix is distributed in the hope that it will be useful, but |
| 13 | # WITHOUT ANY WARRANTY; without even the implied warranty of |
| 14 | # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
| 15 | # GNU General Public License for more details. |
| 16 | # |
| 17 | # You should have received a copy of the GNU General Public License |
| 18 | # along with GNU Guix. If not, see <http://www.gnu.org/licenses/>. |
| 19 | |
| 20 | # |
| 21 | # Test the 'guix graph' command-line utility. |
| 22 | # |
| 23 | |
| 24 | module_dir="t-guix-graph-$$" |
| 25 | mkdir "$module_dir" |
| 26 | trap "rm -rf $module_dir" EXIT |
| 27 | |
| 28 | tmpfile1="$module_dir/t-guix-graph1-$$" |
| 29 | tmpfile2="$module_dir/t-guix-graph2-$$" |
| 30 | trap 'rm -f "$tmpfile1" "$tmpfile2"' EXIT |
| 31 | |
| 32 | |
| 33 | cat > "$module_dir/foo.scm"<<EOF |
| 34 | (define-module (foo) |
| 35 | #:use-module (guix packages) |
| 36 | #:use-module (gnu packages base)) |
| 37 | |
| 38 | (define-public dummy |
| 39 | (package (inherit hello) |
| 40 | (name "dummy") |
| 41 | (version "42") |
| 42 | (synopsis "dummy package") |
| 43 | (description "dummy package. Only used for testing purposes."))) |
| 44 | EOF |
| 45 | |
| 46 | |
| 47 | guix graph --version |
| 48 | |
| 49 | for package in guile-bootstrap coreutils python |
| 50 | do |
| 51 | for graph in package bag-emerged bag bag-with-origins |
| 52 | do |
| 53 | guix graph -t "$graph" "$package" | grep "$package" |
| 54 | done |
| 55 | done |
| 56 | |
| 57 | guix build guile-bootstrap |
| 58 | guix graph -t references guile-bootstrap | grep guile-bootstrap |
| 59 | |
| 60 | guix graph -e '(@ (gnu packages bootstrap) %bootstrap-guile)' \ |
| 61 | | grep guile-bootstrap |
| 62 | |
| 63 | if guix graph -e +; then false; else true; fi |
| 64 | |
| 65 | # Try passing store file names. |
| 66 | |
| 67 | guix graph -t references guile-bootstrap > "$tmpfile1" |
| 68 | guix graph -t references `guix build guile-bootstrap` > "$tmpfile2" |
| 69 | cmp "$tmpfile1" "$tmpfile2" |
| 70 | |
| 71 | # XXX: Filter the file names in the graph to work around the fact that we get |
| 72 | # a mixture of relative and absolute file names. |
| 73 | guix graph -t derivation coreutils > "$tmpfile1" |
| 74 | guix graph -t derivation `guix build -d coreutils` > "$tmpfile2" |
| 75 | cmp "$tmpfile1" "$tmpfile2" |
| 76 | |
| 77 | # Try package transformation options. |
| 78 | guix graph git | grep 'label = "openssl' |
| 79 | guix graph git --with-input=openssl=libressl | grep 'label = "libressl' |
| 80 | if guix graph git --with-input=openssl=libressl | grep 'label = "openssl' |
| 81 | then false; else true; fi |
| 82 | |
| 83 | # Try --load-path |
| 84 | guix graph -L $module_dir dummy | grep 'label = "dummy' |
| 85 | |
| 86 | # Displaying shortest paths (or lack thereof). |
| 87 | if guix graph --path emacs vim; then false; else true; fi |
| 88 | |
| 89 | path="\ |
| 90 | emacs |
| 91 | gnutls |
| 92 | guile |
| 93 | libffi" |
| 94 | test "`guix graph --path emacs libffi | cut -d '@' -f1`" = "$path" |
| 95 | |
| 96 | # At the derivation level, there's a direct path because libffi is propagated |
| 97 | # via gtk+. |
| 98 | test "`guix graph --path -t derivation emacs libffi | wc -l`" -ge 2 |