summaryrefslogtreecommitdiff
path: root/tests
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2013-09-10 22:36:41 +0200
committerLudovic Courtès <ludo@gnu.org>2013-09-11 01:07:49 +0200
commitcfbf916045c180c8f77f90e9c910012f18447dc9 (patch)
tree81ab4c6b0d6ff87346aaa109888b8620a2580db8 /tests
parent590a4904d28e8cd6cbee404b66ce7a475713ca28 (diff)
store: The 'references' parameter of 'add-text-to-store' is now optional.
* guix/store.scm (add-text-to-store): Make 'references' optional. * tests/store.scm ("dead-paths", "references"): Use 'add-text-to-store' with no optional argument. * doc/guix.texi (The Store): Adjust accordingly.
Diffstat (limited to 'tests')
-rw-r--r--tests/store.scm5
1 files changed, 2 insertions, 3 deletions
diff --git a/tests/store.scm b/tests/store.scm
index 9625a6b308..0280713191 100644
--- a/tests/store.scm
+++ b/tests/store.scm
@@ -68,8 +68,7 @@
(test-skip (if %store 0 10))
(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))))
;; FIXME: Find a test for `live-paths'.
@@ -99,7 +98,7 @@
(test-assert "references"
(let* ((t1 (add-text-to-store %store "random1"
- (random-text) '()))
+ (random-text)))
(t2 (add-text-to-store %store "random2"
(random-text) (list t1))))
(and (equal? (list t1) (references %store t2))