summary refs log tree commit diff
path: root/tests/store.scm
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2015-02-02 12:29:12 +0100
committerLudovic Courtès <ludo@gnu.org>2015-02-02 12:46:36 +0100
commit5f1f10c59d2b1bdc02f83abe9610d5ee77a83be2 (patch)
treede5744b38efd978714338de275d850520da5d13a /tests/store.scm
parentabac874b22532a17a868443dc1f883ed483b0604 (diff)
downloadguix-5f1f10c59d2b1bdc02f83abe9610d5ee77a83be2.tar.gz
tests: Don't dump the list of dead items in the test log.
* tests/store.scm ("dead-paths"): Wrap result in '->bool'.
Diffstat (limited to 'tests/store.scm')
-rw-r--r--tests/store.scm2
1 files changed, 1 insertions, 1 deletions
diff --git a/tests/store.scm b/tests/store.scm
index db7299fc70..ee783be846 100644
--- a/tests/store.scm
+++ b/tests/store.scm
@@ -119,7 +119,7 @@
 
 (test-assert "dead-paths"
   (let ((p (add-text-to-store %store "random-text" (random-text))))
-    (member p (dead-paths %store))))
+    (->bool (member p (dead-paths %store)))))
 
 ;; FIXME: Find a test for `live-paths'.
 ;;