From 5f1f10c59d2b1bdc02f83abe9610d5ee77a83be2 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= <ludo@gnu.org>
Date: Mon, 2 Feb 2015 12:29:12 +0100
Subject: [PATCH] tests: Don't dump the list of dead items in the test log.

* tests/store.scm ("dead-paths"): Wrap result in '->bool'.
---
 tests/store.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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'.
 ;;