tests: Don't dump the list of dead items in the test log.
* tests/store.scm ("dead-paths"): Wrap result in '->bool'.master
parent
abac874b22
commit
5f1f10c59d
|
@ -119,7 +119,7 @@
|
||||||
|
|
||||||
(test-assert "dead-paths"
|
(test-assert "dead-paths"
|
||||||
(let ((p (add-text-to-store %store "random-text" (random-text))))
|
(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'.
|
;; FIXME: Find a test for `live-paths'.
|
||||||
;;
|
;;
|
||||||
|
|
Reference in New Issue