# 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"
=8b6ad165d1fa479e5da2938d099dba356186e07c'>Merge branch 'master' into core-updates</a></td><td>Mark H Weaver</td></tr>
<tr><td><span title='2016-11-05 23:23:37 +0200'>2016-11-05</span></td><td><a href='/guix/commit/gnu/packages/ibus.scm?id=569fc290b303892128719c53b8f5f15bf6dafd88'>gnu: ibus: Update to 1.5.14.</a><span class='msg-avail'>...</span></td><td>Efraim Flashner</td></tr>
<tr><td><span title='2016-09-28 17:54:50 +0300'>2016-09-28</span></td><td><a href='/guix/commit/gnu/packages/ibus.scm?id=b94a6ca074f00b3f769933d074853d3c3ca50d00'>gnu: Add and use gettext-minimal.</a><span class='msg-avail'>...</span></td><td>Alex Kost</td></tr>
<tr><td><span title='2016-08-25 11:09:28 +0200'>2016-08-25</span></td><td><a href='/guix/commit/gnu/packages/ibus.scm?id=d37f00b97fc12a677409e13759fe3edc6ffede2c'>gnu: ibus: Fix simple engine.</a><span class='msg-avail'>...</span></td><td>Ricardo Wurmus</td></tr>
<tr><td><span title='2016-08-25 11:09:28 +0200'>2016-08-25</span></td><td><a href='/guix/commit/gnu/packages/ibus.scm?id=d5332e756e8e45f22498c0d3d73a26d4b15731a8'>gnu: ibus: Generate C from Vala sources.</a><span class='msg-avail'>...</span></td><td>Ricardo Wurmus</td></tr>
<tr><td><span title='2016-08-25 11:09:28 +0200'>2016-08-25</span></td><td><a href='/guix/commit/gnu/packages/ibus.scm?id=590021db3f3fae35d9773ff8fce59623ad7236cd'>gnu: ibus: Use modify-phases syntax.</a><span class='msg-avail'>...</span></td><td>Ricardo Wurmus</td></tr>
<tr><td><span title='2016-04-09 09:36:29 +0800'>2016-04-09</span></td><td><a href='/guix/commit/gnu/packages/ibus.scm?id=1c6ae41875b8531155e29df2f60851d161cc04b9'>gnu: Add ibus-anthy.</a><span class='msg-avail'>...</span></td><td>Chris Marusich</td></tr>
<tr><td><span title='2015-10-07 08:55:43 +0200'>2015-10-07</span></td><td><a href='/guix/commit/gnu/packages/ibus.scm?id=dedaf7ac742f4edb28977d9fd4dc06b104f8f785'>gnu: ibus-libpinyin: Add GTK+ and Glib inputs.</a><span class='msg-avail'>...</span></td><td>Ricardo Wurmus</td></tr>
<tr><td><span title='2015-09-26 11:22:11 +0200'>2015-09-26</span></td><td><a href='/guix/commit/gnu/packages/ibus.scm?id=92f1cefb74f6092c0c70f93140824ab806086272'>gnu: ibus: Add input gtk+-3.</a><span class='msg-avail'>...</span></td><td>Andreas Enge</td></tr>
<tr><td><span title='2015-09-12 22:51:44 +0200'>2015-09-12</span></td><td><a href='/guix/commit/gnu/packages/ibus.scm?id=5fbbd29f747ce0483ad53cb4b83101fc8a5eeb44'>gnu: Add ibus-libpinyin.</a><span class='msg-avail'>...</span></td><td>Ricardo Wurmus</td></tr>
<tr><td><span title='2015-09-12 22:51:44 +0200'>2015-09-12</span></td><td><a href='/guix/commit/gnu/packages/ibus.scm?id=12edffe4292587ef4f7050a8dd69387d2e3ee72f'>gnu: Add libpinyin.</a><span class='msg-avail'>...</span></td><td>Ricardo Wurmus</td></tr>
<tr><td><span title='2015-09-09 07:25:27 +0200'>2015-09-09</span></td><td><a href='/guix/commit/gnu/packages/ibus.scm?id=c940a145594d3d1a93b30ec3260751debe1c63bb'>gnu: ibus: Suggest search path.</a><span class='msg-avail'>...</span></td><td>Ricardo Wurmus</td></tr>
<tr><td><span title='2015-09-09 07:01:12 +0200'>2015-09-09</span></td><td><a href='/guix/commit/gnu/packages/ibus.scm?id=5b86a5842c0f1d18eb0f6c78d0dfebf8fd8e8383'>gnu: ibus: Update to 1.5.11.</a><span class='msg-avail'>...</span></td><td>Ricardo Wurmus</td></tr>
<tr><td><span title='2015-05-20 23:46:17 +0200'>2015-05-20</span></td><td><a href='/guix/commit/gnu/packages/ibus.scm?id=2e6ecc5c211c9645238aa26be7b3ceee3d098f36'>gnu: gconf: Propagate input glib.</a><span class='msg-avail'>...</span></td><td>Andreas Enge</td></tr>
<tr><td><span title='2015-03-26 09:07:44 +0100'>2015-03-26</span></td><td><a href='/guix/commit/gnu/packages/ibus.scm?id=aad6f5bcda28bd598f4937df8f97e651b4a97e8f'>gnu: Add IBus.</a><span class='msg-avail'>...</span></td><td>Ricardo Wurmus</td></tr>