# GNU Guix --- Functional package management for GNU
# Copyright © 2013, 2015, 2017, 2018, 2019 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" "--list-roots"
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-roots | grep "$PWD/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"
nu/machine/ssh.scm (machine-check-initrd-modules): Filter out pseudo
file systems from 'file-systems'.
* guix/scripts/system.scm (check-initrd-modules): Likewise.
</span></span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2022-11-17 22:27:39 +0100'>2022-11-17</span></td><td><a href='/guix/commit/gnu/machine?id=17b01d546306885ff3c07e7b6aaffb541a8b9043'>machine: ssh: Validate 'system' field.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/machine/ssh.scm (&lt;machine-ssh-configuration&gt;)[system]: Add
'sanitize' property.
(validate-system-type): New macro.
</span></span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2022-11-09 13:45:24 +0100'>2022-11-09</span></td><td><a href='/guix/commit/gnu/machine?id=8d7cb7f2a4d0b7ce49764e4ba24026762d640da7'>machine/digital-ocean: Pull operating system definition out of string.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/machine/digital-ocean.scm (guix-infect): Define the operating system
declaration as an s-expression and paste it into the generated Bash script to
simplify editing.
</span></span></td><td>Ricardo Wurmus</td></tr>
<tr><td><span title='2022-11-09 13:45:24 +0100'>2022-11-09</span></td><td><a href='/guix/commit/gnu/machine?id=ebb88e2bed889b67ea83893c907ab29e3bc81e8b'>machine/digital-ocean: Set load path to Guile 3.0 directories.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/machine/digital-ocean.scm (guix-infect, add-static-networking): Set
GUILE_LOAD_PATH and GUILE_LOAD_COMPILED_PATH to directories for Guile 3.0
instead of 2.2.
</span></span></td><td>Ricardo Wurmus</td></tr>
<tr><td><span title='2022-11-09 13:45:24 +0100'>2022-11-09</span></td><td><a href='/guix/commit/gnu/machine?id=e8dcd008a0be8bd967efabab6960d19e5424d93e'>machine/digital-ocean: Use static-networking-service-type.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/machine/digital-ocean.scm (ip+netmask-&gt;cidr): New procedure.
(guix-infect, add-static-networking): Use static-networking-service-type
instead of the deprecated static-networking-service.
</span></span></td><td>Ricardo Wurmus</td></tr>
<tr><td><span title='2022-11-09 13:45:24 +0100'>2022-11-09</span></td><td><a href='/guix/commit/gnu/machine?id=c8e41af7be47fdd3ae16765d5cf892582f5a407a'>machine/digital-ocean: Use nightly Guix.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/machine/digital-ocean.scm (guix-infect): Fetch latest Guix build from
ci.guix.gnu.org.
</span></span></td><td>Ricardo Wurmus</td></tr>
<tr><td><span title='2022-10-17 07:29:09 +0200'>2022-10-17</span></td><td><a href='/guix/commit/gnu/machine?id=82b0f3755d12e04578a54ee53b3a8051958e8143'>guix: Fix typos.</a><span class='msg-avail'>...<span class='msg-tooltip'>These typos were found and reported through weblate.

* gnu/packages/audio.scm (wildmidi)[description]: Fix typo.
* gnu/packages/games.scm (cgoban)[description]: Fix typo.
* gnu/services/version-control.scm (gitolite-service-type)[description]:
  Fix typo.
* gnu/installer/newt/substitutes.scm (run-substitutes-page): Remove full
  stop at end of title.
* gnu/machine/ssh.scm (machine-ssh-configuration-system): Move
  punctuation outside of quotes.
* guix/scripts/home.scm (process-action): Remove trailing space before
  newline.
* guix/scripts/system.scm (show-help): Fix typo.
* guix/scripts/environment.scm (with-store/maybe): Fix typo.
</span></span></td><td>Julien Lepiller</td></tr>
<tr><td><span title='2022-09-26 23:29:35 +0200'>2022-09-26</span></td><td><a href='/guix/commit/gnu/machine?id=1033645e9d3899edd6b052b19e24c0a718b95e88'>machine: ssh: Parameterize '%current-system' early on.</a><span class='msg-avail'>...<span class='msg-tooltip'>Fixes &lt;https://issues.guix.gnu.org/58084&gt;.
Reported by Maxim Cournoyer &lt;maxim.cournoyer@gmail.com&gt;.

Previously, "sanity checks" and other operations would happen in a
context where '%current-system' has its default value.  Thus, running
'guix deploy' on x86_64-linux machine for an aarch64-linux one would
lead things like '%base-initrd-modules' to see "x86_64-linux" as the
'%current-system' value, in turn making the wrong choices.

* gnu/machine/ssh.scm (check-deployment-sanity)[assertions]: Wrap in
'parameterize'.
(deploy-managed-host): Likewise for the 'mlet' body.
</span></span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2022-09-04 17:57:02 +0200'>2022-09-04</span></td><td><a href='/guix/commit/gnu/machine?id=a451a809d5537035cc8888cfde5349842a68e934'>Fix misspelling of GUIX_DIGITAL_OCEAN_TOKEN.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/machine/digital-ocean.scm (maybe-raise-missing-api-key-error): Fix
  misspelling of GUIX_DIGITAL_OCEAN_TOKEN.

Signed-off-by: Mathieu Othacehe &lt;othacehe@gnu.org&gt;
</span></span></td><td>Matthew James Kraai</td></tr>