diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2013-09-10 22:36:41 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2013-09-11 01:07:49 +0200 |
| commit | cfbf916045c180c8f77f90e9c910012f18447dc9 (patch) | |
| tree | 81ab4c6b0d6ff87346aaa109888b8620a2580db8 /tests/store.scm | |
| parent | 590a4904d28e8cd6cbee404b66ce7a475713ca28 (diff) | |
| download | guix-cfbf916045c180c8f77f90e9c910012f18447dc9.tar guix-cfbf916045c180c8f77f90e9c910012f18447dc9.tar.gz | |
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/store.scm')
| -rw-r--r-- | tests/store.scm | 5 |
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)) |