1 # GNU Guix --- Functional package management for GNU
2 # Copyright © 2013, 2015, 2017, 2018, 2019 Ludovic Courtès <ludo@gnu.org>
4 # This file is part of GNU Guix.
6 # GNU Guix is free software; you can redistribute it and/or modify it
7 # under the terms of the GNU General Public License as published by
8 # the Free Software Foundation; either version 3 of the License, or (at
9 # your option) any later version.
11 # GNU Guix is distributed in the hope that it will be useful, but
12 # WITHOUT ANY WARRANTY; without even the implied warranty of
13 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
14 # GNU General Public License for more details.
16 # You should have received a copy of the GNU General Public License
17 # along with GNU Guix. If not, see <http://www.gnu.org/licenses/>.
20 # Test the `guix gc' command-line utility.
25 trap "rm -f guix-gc-root" EXIT
28 # Below we are using 'drv' and 'out' to contain store file names. If 'drv'
29 # and 'out' are environment variables, 'list-runtime-roots' will "see" them
30 # and thus prevent $drv and $out from being garbage-collected. Using 'unset'
31 # allows us to make sure these are truly local shell variables and not
32 # environments variables.
36 # For some operations, passing extra arguments is an error.
37 for option
in "" "-C 500M" "--verify" "--optimize" "--list-roots"
39 ! guix gc
$option whatever
43 ! guix gc
--verify=foo
45 # Check the references of a .drv.
46 drv
="`guix build guile-bootstrap -d`"
47 out
="`guix build guile-bootstrap`"
48 test -f "$drv" && test -d "$out"
50 guix gc
--references "$drv" |
grep -e -bash
51 guix gc
--references "$out"
52 guix gc
--references "$out/bin/guile"
54 ! guix gc
--references /dev
/null
;
57 guix gc
--derivers "$out" |
grep "$drv"
59 # Add then reclaim a .drv file.
60 drv
="`guix build idutils -d`"
63 guix gc
--list-dead |
grep "$drv"
64 guix gc
--delete "$drv"
67 # Add a .drv, register it as a root.
68 drv
="`guix build --root=guix-gc-root lsh -d`"
69 test -f "$drv" && test -L guix-gc-root
71 guix gc
--list-roots |
grep "$PWD/guix-gc-root"
73 guix gc
--list-live |
grep "$drv"
74 ! guix gc
--delete "$drv";
77 guix gc
--list-dead |
grep "$drv"
78 guix gc
--delete "$drv"
81 # Try a random collection.
84 # Check trivial error cases.
85 ! guix gc
--delete /dev
/null
;
88 out
="`guix build guile-bootstrap`"
91 guix gc
--delete "$out"
95 out
="`guix build guile-bootstrap`"
98 guix gc
--delete "$out/"
102 out
="`guix build guile-bootstrap`"
105 guix gc
--delete "$out/bin/guile"