# GNU Guix --- Functional package management for GNU
# Copyright © 2022 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/>.

#
# Test 'guix shell --export-manifest'.
#

guix shell --version

tmpdir="t-guix-manifest-$$"
trap 'rm -r "$tmpdir"' EXIT
mkdir "$tmpdir"

manifest="$tmpdir/manifest.scm"

# Basics.
guix shell --export-manifest guile-bootstrap > "$manifest"
test "$(guix build -m "$manifest")" = "$(guix build guile-bootstrap)"

guix shell -m "$manifest" --bootstrap -- \
     "$SHELL" -c 'guix package --export-manifest -p "$GUIX_ENVIRONMENT"' > \
     "$manifest.second"
for m in "$manifest" "$manifest.second"
do
    grep -v '^;' < "$m" > "$m.new" # filter out comments
    mv "$m.new" "$m"
done

cat "$manifest"
cat "$manifest.second"

cmp "$manifest" "$manifest.second"

# Combining manifests.
guix shell --export-manifest -m "$manifest" gash gash-utils \
     > "$manifest.second"
guix build -m "$manifest.second" -d | \
    grep "$(guix build guile-bootstrap -d)"
guix build -m "$manifest.second" -d | \
    grep "$(guix build gash -d)"

# Package transformation option.
guix shell --export-manifest guile guix \
     --with-input=guile-json@3=guile-json > "$manifest"
grep 'options->transformation' "$manifest"
grep '(with-input . "guile-json@3=guile-json")' "$manifest"

# Development manifest.
guix shell --export-manifest -D guile git > "$manifest"
grep 'package->development-manifest' "$manifest"
grep '"guile"' "$manifest"
guix build -m "$manifest" -d | \
    grep "$(guix build -e '(@@ (gnu packages commencement) gcc-final)' -d)"
guix build -m "$manifest" -d | \
    grep "$(guix build git -d)"

guix shell --export-manifest -D guile -D python-itsdangerous > "$manifest"
guix build -m "$manifest" -d | grep "$(guix build libffi -d)"
guix build -m "$manifest" -d | \
    grep "$(guix build -e '(@ (gnu packages python) python)' -d)"

# Test various combinations to make sure generated code uses interfaces
# correctly.
for options in					\
    "coreutils grep sed"			\
    "gsl openblas gcc-toolchain --tune"		\
    "guile -m $manifest.previous"		\
    "git:send-email gdb guile:debug"		\
    "git -D coreutils"
do
    guix shell --export-manifest $options > "$manifest"
    cat "$manifest"
    guix shell -m "$manifest" -n
    mv "$manifest" "$manifest.previous"
done
-09-21 15:15:52 +0200'>2021-09-21</span></td><td><a href='/guix/commit/tests/graph.scm?id=5b32ad4f6f555d305659cee825879df075b06331'>graph: Add '--max-depth'.</a><span class='msg-avail'>...<span class='msg-tooltip'>* guix/graph.scm (export-graph): Add #:max-depth and honor it, adding
'depths' argument to 'loop'.
* guix/scripts/graph.scm (%options, show-help): Add '--max-depth'.
(%default-options): Add 'max-depth'.
(guix-graph): Pass #:max-depth to 'export-graph'.
* tests/graph.scm ("package DAG, limited depth"): New test.
* doc/guix.texi (Invoking guix graph): Document it.
</span></span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2020-10-20 16:30:15 +0200'>2020-10-20</span></td><td><a href='/guix/commit/tests/graph.scm?id=a9fd59dbd2d32e08c9479ac026b99b5c1dbbb0db'>graph: Adjust test for recent OCaml changes.</a><span class='msg-avail'>...<span class='msg-tooltip'>This is a followup to 339177956affdc471832750a3805b74356487e93.

* tests/graph.scm ("reverse bag DAG"): Look for "ocaml4.07-dune" rather
than "dune".
</span></span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2020-05-22 01:29:39 +0200'>2020-05-22</span></td><td><a href='/guix/commit/tests/graph.scm?id=ce0be5675b702b2ff89aed1772ebb42af4150243'>packages: Introduce &lt;content-hash&gt; and use it in &lt;origin&gt;.</a><span class='msg-avail'>...<span class='msg-tooltip'>* guix/packages.scm (&lt;content-hash&gt;): New record type.
(define-content-hash-constructor, build-content-hash)
(content-hash): New macros.
(print-content-hash): New procedure.
(&lt;origin&gt;): Rename constructor to '%origin'.
[sha256]: Remove field.
[hash]: New field.  Adjust users.
(origin-compatibility-helper, origin): New macros.
(origin-sha256): New deprecated procedure.
(origin-&gt;derivation): Adjust accordingly.
* tests/packages.scm ("package-source-derivation, origin, sha512"): New
test.
* guix/tests.scm: Hide (gcrypt hash) 'sha256' for proper syntax
matching.
* tests/challenge.scm: Add #:prefix for (gcrypt hash) and adjust users.
* tests/derivations.scm: Likewise.
* tests/store.scm: Likewise.
* tests/graph.scm ("bag DAG, including origins"): Provide 'sha256' field
with the right length.
* gnu/packages/aspell.scm (aspell-dictionary)
(aspell-dict-ca, aspell-dict-it): Use 'hash' and 'content-hash' for
proper syntax matching.
* gnu/packages/bash.scm (bash-patch): Rename 'sha256' to 'sha256-bv'.
* gnu/packages/bootstrap.scm (bootstrap-executable): Rename 'sha256' to 'bv'.
* gnu/packages/readline.scm (readline-patch): Likewise.
* gnu/packages/virtualization.scm (qemu-patch): Rename 'sha256' to
'sha256-bv'.
* guix/import/utils.scm: Hide (gcrypt hash) 'sha256'.
</span></span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2020-05-11 23:30:55 +0200'>2020-05-11</span></td><td><a href='/guix/commit/tests/graph.scm?id=36c2192414dfcc43db767106cede2cc1d0e6e556'>graph: Add 'shortest-path'.</a><span class='msg-avail'>...<span class='msg-tooltip'>* guix/graph.scm (shortest-path): New procedure.
* tests/graph.scm ("shortest-path, packages + derivations")
("shortest-path, reverse packages")
("shortest-path, references"): New tests.
</span></span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2020-05-11 23:30:55 +0200'>2020-05-11</span></td><td><a href='/guix/commit/tests/graph.scm?id=724020213664239ec5c92d04f5fee44c25408a7f'>graph: reference/referrer node types work with graph traversal.</a><span class='msg-avail'>...<span class='msg-tooltip'>The graph traversal procedures in (guix graph) assume that nodes can be
compared with 'eq?', which was not the case for nodes of
%REFERENCE-NODE-TYPE and %REFERRER-NODE-TYPE (strings).

* guix/scripts/graph.scm (intern): New procedure.
(ensure-store-items, references*)
(%reference-node-type, non-derivation-referrers)
(%referrer-node-type): Use it on all store items.
* tests/graph.scm ("node-transitive-edges, references"): New test.
</span></span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2020-02-05 16:18:58 +0100'>2020-02-05</span></td><td><a href='/guix/commit/tests/graph.scm?id=312df1d40cf2d61fc96b32efedc16d958718fc48'>tests: Adjust reverse-bag graph test to recent OCaml changes.</a><span class='msg-avail'>...<span class='msg-tooltip'>This is a followup to 87858bc526a9d577760f55d05a51cb56630f845b.

Partly fixes &lt;https://bugs.gnu.org/39374&gt;.
Reported by Ellen Papsch &lt;ellen.papsch@wine-logistix.de&gt;.

* tests/graph.scm ("reverse bag DAG"): Adjust test to latest OCaml
changes.
</span></span></td><td>Ludovic Courtès</td></tr>