tests: Don't dump the list of dead items in the test log.

* tests/store.scm ("dead-paths"): Wrap result in '->bool'.
2015-02-02 12:29:12 +01:00 · 2015-02-02 12:29:12 +01:00 · 5f1f10c59d
parent abac874b22
commit 5f1f10c59d
1 changed files with 1 additions and 1 deletions
--- 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'.
 ;;