# 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
    ! guix gc $option whatever
done

# This should fail.
! guix gc --verify=foo

# 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"

! guix gc --references /dev/null;

# 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"
! guix gc --delete "$drv";

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.
! guix gc --delete /dev/null;

# 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"
ss='left'>Author</th></tr>
<tr><td><span title='2020-12-06 23:18:08 +0100'>2020-12-06</span></td><td><a href='/guix/commit/gnu/services/audio.scm?id=ce3b5e5a8d8566162201cb778c4586f94a626dfa'>services: mpd: Make /var/run/mpd/USER user-owned.</a><span class='msg-avail'>...<span class='msg-tooltip'>Fixes &lt;https://bugs.gnu.org/44820&gt;.
Reported by Simon &lt;lists@netpanic.org&gt;.

This is a followup to bb124f6e9c0af0a23736f233c2ea2c9c9b4a40a6.

* gnu/services/audio.scm (mpd-service-activation): Chown the parent of
DIRECTORY as well.
</span></span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2020-11-06 23:10:18 +0100'>2020-11-06</span></td><td><a href='/guix/commit/gnu/services/audio.scm?id=bb124f6e9c0af0a23736f233c2ea2c9c9b4a40a6'>services: mpd: Fix daemon startup.</a><span class='msg-avail'>...<span class='msg-tooltip'>Until now it would wait for a PID file that'd never come.

* gnu/services/audio.scm (mpd-shepherd-service): Add 'requirement'.
Remove #:pid-file from 'start'.
(mpd-service-activation): Create the ".mpd" directory since that's what
the daemon expects.
</span></span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2020-11-06 22:59:19 +0100'>2020-11-06</span></td><td><a href='/guix/commit/gnu/services/audio.scm?id=7209d7cbc37c108ca1148561a681258bb2222ab1'>services: mpd: Always create the "mpd" user account.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/services/audio.scm (%mpd-accounts): New variable.
(mpd-service-type)[extensions]: Add ACCOUNT-SERVICE-TYPE extension.
</span></span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2020-11-06 08:54:27 -0500'>2020-11-06</span></td><td><a href='/guix/commit/gnu/services/audio.scm?id=0c5d0c57d370b34f3ba677838deaa8baf7bca58a'>services: mpd: Do not eagerly look for a user.</a><span class='msg-avail'>...<span class='msg-tooltip'>Running 'guix system search mpd' would throw a backtrace because the
mpd-shepherd-service service start Gexp contained an unquoted call to
'getpwnam', which would look for a missing 'mpd' user and fail.

* gnu/services/audio.scm (mpd-shepherd-service): gexp-unquote only the
relevant variable rather than the whole expression.
</span></span></td><td>Maxim Cournoyer</td></tr>
<tr><td><span title='2020-05-13 23:35:57 +0200'>2020-05-13</span></td><td><a href='/guix/commit/gnu/services/audio.scm?id=ad263045b9bf016d6f4fbb1f7fde0f51d3194944'>services: Add missing import.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/services/audio.scm: Import (ice-9 format).
</span></span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2019-11-08 21:32:45 +0100'>2019-11-08</span></td><td><a href='/guix/commit/gnu/services/audio.scm?id=970cb5ceceaa85765230a9f896a43783cdcb4e6c'>services: mpd: Connect to the user's PulseAudio socket.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/services/audio.scm (mpd-shepherd-service): Set the XDG_RUNTIME_DIR
environment variable.

Signed-off-by: Tobias Geerinckx-Rice &lt;me@tobias.gr&gt;
</span></span></td><td>Robert Smith</td></tr>
<tr><td><span title='2019-10-29 15:14:22 +0100'>2019-10-29</span></td><td><a href='/guix/commit/gnu/services/audio.scm?id=878e0e1bb0d15809c6582436d53498f3e6385524'>gnu: mpd-service-type: Support configuration of outputs.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/services/audio.scm (&lt;mpd-output&gt;): New record type.
(&lt;mpd-configuration&gt;)[outputs]: New field.
(mpd-output, mpd-output?, mpd-output-&gt;string): New procedures.
(mpd-config-&gt;file): Use mpd-output-&gt;string.
* doc/guix.texi (Audio Services): Document mpd-output fields.
</span></span></td><td>Ricardo Wurmus</td></tr>
<tr><td><span title='2019-03-15 23:27:59 +0100'>2019-03-15</span></td><td><a href='/guix/commit/gnu/services/audio.scm?id=c71b7b5b3740177f0df6d3565dcc356ceda1acba'>services: mpd: add more configuration options</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/services/audio.scm (&lt;mpd-configuration&gt;): Add 'db-file', 'state-file'
  and 'sticker-file' fields.
* doc/guix.texi (Music Player Daemon): Document it.

Signed-off-by: Ludovic Courtès &lt;ludo@gnu.org&gt;
</span></span></td><td>nixo</td></tr>
<tr><td><span title='2017-11-05 15:29:52 +0100'>2017-11-05</span></td><td><a href='/guix/commit/gnu/services/audio.scm?id=21b71b01e9c2264c31ef30451c152bb38cc9e635'>services: Add 'description' fields.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/services/admin.scm (rottlog-service-type)
(tailon-service-type): Add 'description' field.
* gnu/services/audio.scm (mpd-service-type): Likewise.
* gnu/services/avahi.scm (avahi-service-type): Likewise.
* gnu/services/ssh.scm (lsh-service-type)
(openssh-service-type, dropbear-service-type): Likewise.
</span></span></td><td>Ludovic Courtès</td></tr>