~ruther/guix-local: tests: Don't dump the list of dead items in the test log.

5f1f10c59d2b1bdc02f83abe9610d5ee77a83be2 — Ludovic Courtès 11 years ago abac874

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

* tests/store.scm ("dead-paths"): Wrap result in '->bool'.

patch browse .tar.gz

1 files changed, 1 insertions(+), 1 deletions(-)

M tests/store.scm

M tests/store.scm => tests/store.scm +1 -1

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