# GNU Guix --- Functional package management for GNU
# Copyright © 2013, 2015, 2017, 2018 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 the `guix gc' command-line utility.
#

guix gc --version

trap "rm -f guix-gc-root" EXIT
rm -f guix-gc-root

# Below we are using 'drv' and 'out' to contain store file names.  If 'drv'
# and 'out' are environment variables, 'list-runtime-roots' will "see" them
# and thus prevent $drv and $out from being garbage-collected.  Using 'unset'
# allows us to make sure these are truly local shell variables and not
# environments variables.
unset drv
unset out

# For some operations, passing extra arguments is an error.
for option in "" "-C 500M" "--verify" "--optimize"
do
    if guix gc $option whatever; then false; else true; fi
done

# This should fail.
if guix gc --verify=foo; then false; else true; fi

# Check the references of a .drv.
drv="`guix build guile-bootstrap -d`"
out="`guix build guile-bootstrap`"
test -f "$drv" && test -d "$out"

guix gc --references "$drv" | grep -e -bash
guix gc --references "$out"
guix gc --references "$out/bin/guile"

if guix gc --references /dev/null;
then false; else true; fi

# Check derivers.
guix gc --derivers "$out" | grep "$drv"

# Add then reclaim a .drv file.
drv="`guix build idutils -d`"
test -f "$drv"

guix gc --list-dead | grep "$drv"
guix gc --delete "$drv"
! test -f "$drv"

# Add a .drv, register it as a root.
drv="`guix build --root=guix-gc-root lsh -d`"
test -f "$drv" && test -L guix-gc-root

guix gc --list-live | grep "$drv"
if guix gc --delete "$drv";
then false; else true; fi

rm guix-gc-root
guix gc --list-dead | grep "$drv"
guix gc --delete "$drv"
! test -f "$drv"

# Try a random collection.
guix gc -C 1KiB

# Check trivial error cases.
if guix gc --delete /dev/null;
then false; else true; fi

# Bug #19757
out="`guix build guile-bootstrap`"
test -d "$out"

guix gc --delete "$out"

! test -d "$out"

out="`guix build guile-bootstrap`"
test -d "$out"

guix gc --delete "$out/"

! test -d "$out"

out="`guix build guile-bootstrap`"
test -d "$out"

guix gc --delete "$out/bin/guile"
8 11:36:31 +0300'>2023-10-18</span></td><td><a href='/guix/commit/gnu/packages/crypto.scm?id=003dc790fdccb2e762edbe09abbc1b6f24f18de0'>Revert "build: cargo-build-system: Disable tests by default."</a><span class='msg-avail'>...<span class='msg-tooltip'>This reverts commit 37667443074a6de29f7665868f102111d62f0af9.

This change needs more discussion.
</span></span></td><td>Efraim Flashner</td></tr>
<tr><td><span title='2023-10-18 11:36:18 +0300'>2023-10-18</span></td><td><a href='/guix/commit/gnu/packages/crypto.scm?id=d631d901d8afe5fcf326c91203d73a34b99dde0f'>build: cargo-build-system: Disable tests by default.</a><span class='msg-avail'>...<span class='msg-tooltip'>* guix/build-system/cargo.scm (cargo-build): Disable tests by default.
* gnu/packages/admin.scm (greetd, wlgreet, du-dust),
* gnu/packages/bioinformatics.scm (circtools, python-gseapy),
* gnu/packages/crypto.scm (rust-minisign, b3sum),
* gnu/packages/gnome.scm (librsvg),
* gnu/packages/python-crypto.scm (python-blake3,
python-cryptography-rust),
* gnu/packages/python-xyz.scm (python-orjson),
* gnu/packages/rust-apps.scm (agate, alfis, bat, diffr, drill, dutree,
exa, fd, hexyl, hyperfine, i3status-rust, just, maturin, ripgrep, rot8,
rust-swc, rust-cargo-edit, git-interactive-rebase-tool, rust-cbindgen,
rust-cbindgen-0.24, rust-cbindgen-0.19, sniffglue, tectonic, treefmt,
hex, tokei, vivid, watchexec, rbw, rust-analyzer, rust-cargo-c, rtss,
skim, skim-0.7, svd2rust, swayhide, tealdeer, git-absorb, zoxide, htmlq),
* gnu/packages/sequoia.scm (sequoia-sqv),
* gnu/packages/syndication.scm (newsboat),
* gnu/packages/terminals.scm (alacritty),
* gnu/packages/text-editors.scm (kak-lsp, parinfer-rust),
* gnu/packages/tree-sitter.scm (tree-sitter-cli),
* gnu/packages/video.scm (rav1e),
* gnu/packages/web.scm (monolith, castor)
[arguments]: Enable tests.
</span></span></td><td>Efraim Flashner</td></tr>
<tr><td><span title='2023-10-18 11:36:15 +0300'>2023-10-18</span></td><td><a href='/guix/commit/gnu/packages/crypto.scm?id=d9745d6dbdf9d75d29fb83d03b29a9a595138aba'>gnu: b3sum: Update to 1.5.0.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/packages/crypto.scm (b3sum): Update to 1.5.0.
[cargo-inputs]: Replace rust-blake3-0.3 with 1, rust-clap-2 with 4.
Remove rust-memmap-0.7. Add rust-memmap2-0.7.
</span></span></td><td>Efraim Flashner</td></tr>
<tr><td><span title='2023-10-18 11:36:15 +0300'>2023-10-18</span></td><td><a href='/guix/commit/gnu/packages/crypto.scm?id=0294bff75db8c1f92f3e2c7b39854068efba7953'>gnu: rust-blake3-1: Update to 1.5.0.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/packages/crypto.scm (rust-blake3-1): Update to 1.5.0.
[source]: Download using url-fetch.
[arguments]: Skip tests.
[cargo-inputs]: Add rust-memmap2-0.7, rust-serde-1, rust-zerioze-1.
Replace rust-constant-time-eq-0.1 with 0.3, rust-digest-0.9 with 0.10.
Remove rust-crypto-mac-0.11.
[cargo-development-inputs]: Add rust-serde-json-1, rust-tempfile-3.
Replace rust-page-size-0.4 with 0.6.  Remove rust-cc-1.
</span></span></td><td>Efraim Flashner</td></tr>
<tr><td><span title='2023-10-18 11:36:13 +0300'>2023-10-18</span></td><td><a href='/guix/commit/gnu/packages/crypto.scm?id=afb201251f99936771688ab065cc5455bb1b87d0'>gnu: rust-minisign: Update to 0.7.5.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/packages/crates-io.scm (rust-minisign): Update to 0.7.5.
[cargo-inputs]: Replace rust-getrandom-0.1 with 0.2, rust-rpassword-4
with 7, rust-scrypt-0.3 with 0.11.
</span></span></td><td>Efraim Flashner</td></tr>
<tr><td><span title='2023-10-17 10:24:01 +0100'>2023-10-17</span></td><td><a href='/guix/commit/gnu/packages/crypto.scm?id=c8312a6d070677909130c227e9a5bbcaa6a57bfe'>gnu: crypto++: Add tunable property.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/packages/crypto.scm (crypto++): Set tunable? property to true.

Signed-off-by: Christopher Baines &lt;mail@cbaines.net&gt;
</span></span></td><td>Jean-Pierre De Jesus DIAZ</td></tr>
<tr><td><span title='2023-10-17 10:23:55 +0100'>2023-10-17</span></td><td><a href='/guix/commit/gnu/packages/crypto.scm?id=113844549491a4280505049c39a60bc61840ee5f'>gnu: crypto++: Update to 8.8.0.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/packages/crypto.scm (crypto++): Update to 8.8.0.
[arguments]: Update to new style. Remove .so symbolic link installation as the
project does it now. Fix cross-compilation for GNU/Linux and MinGW targets.

Signed-off-by: Christopher Baines &lt;mail@cbaines.net&gt;
</span></span></td><td>Jean-Pierre De Jesus DIAZ</td></tr>