aboutsummaryrefslogtreecommitdiff
path: root/tests/guix-gc.sh
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2019-04-06 22:29:18 +0200
committerLudovic Courtès <ludo@gnu.org>2019-04-10 17:09:47 +0200
commitbacf980c76c94e7bda86220ca4bf662d0e34a45a (patch)
treecc5a7f09074b6b9d26e017d1a6d3c532722968cd /tests/guix-gc.sh
parent72eda0624be89ed18302fd7d7f22976071ab020c (diff)
downloadguix-bacf980c76c94e7bda86220ca4bf662d0e34a45a.tar
guix-bacf980c76c94e7bda86220ca4bf662d0e34a45a.tar.gz
guix gc: Add '--list-roots'.
* guix/scripts/gc.scm (show-help, %options): Add '--list-roots'. (guix-gc)[list-roots]: New procedure. Handle '--list-roots'. * tests/guix-gc.sh: Test it. * doc/guix.texi (Invoking guix gc): Document it.
Diffstat (limited to 'tests/guix-gc.sh')
-rw-r--r--tests/guix-gc.sh6
1 files changed, 4 insertions, 2 deletions
diff --git a/tests/guix-gc.sh b/tests/guix-gc.sh
index ef2d9543b7..8284287730 100644
--- a/tests/guix-gc.sh
+++ b/tests/guix-gc.sh
@@ -1,5 +1,5 @@
# GNU Guix --- Functional package management for GNU
-# Copyright © 2013, 2015, 2017, 2018 Ludovic Courtès <ludo@gnu.org>
+# Copyright © 2013, 2015, 2017, 2018, 2019 Ludovic Courtès <ludo@gnu.org>
#
# This file is part of GNU Guix.
#
@@ -34,7 +34,7 @@ unset drv
unset out
# For some operations, passing extra arguments is an error.
-for option in "" "-C 500M" "--verify" "--optimize"
+for option in "" "-C 500M" "--verify" "--optimize" "--list-roots"
do
if guix gc $option whatever; then false; else true; fi
done
@@ -69,6 +69,8 @@ guix gc --delete "$drv"
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