summary refs log tree commit diff
path: root/tests
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2016-05-24 23:27:07 +0200
committerLudovic Courtès <ludo@gnu.org>2016-05-24 23:35:28 +0200
commitf6fee16e9370bdc9e912878706f69355fc40a472 (patch)
tree365e1e52c4d18b6dea9ffb95f8ffde2aeec27c73 /tests
parentdb761534df3b57122da8e8b05a678182b59a9d3a (diff)
downloadguix-f6fee16e9370bdc9e912878706f69355fc40a472.tar.gz
store: 'requisites' now takes a list of store items.
* guix/store.scm (fold-path): Change 'path' to 'paths' and adjust body
accordingly.
(requisites): Likewise.
* guix/scripts/environment.scm (inputs->requisites): Adjust
user accordingly.
* guix/scripts/size.scm (requisites*): Likewise.
* guix/scripts/gc.scm (guix-gc): Likewise.
* tests/store.scm ("requisites"): Likewise.
Diffstat (limited to 'tests')
-rw-r--r--tests/store.scm10
1 files changed, 6 insertions, 4 deletions
diff --git a/tests/store.scm b/tests/store.scm
index eeadcb94f8..3c2c247561 100644
--- a/tests/store.scm
+++ b/tests/store.scm
@@ -244,10 +244,12 @@
       (and (= (length x) (length y))
            (lset= equal? x y)))
 
-    (and (same? (requisites %store t1) (list t1))
-         (same? (requisites %store t2) (list t1 t2))
-         (same? (requisites %store t3) (list t1 t2 t3))
-         (same? (requisites %store t4) (list t1 t2 t3 t4)))))
+    (and (same? (requisites %store (list t1)) (list t1))
+         (same? (requisites %store (list t2)) (list t1 t2))
+         (same? (requisites %store (list t3)) (list t1 t2 t3))
+         (same? (requisites %store (list t4)) (list t1 t2 t3 t4))
+         (same? (requisites %store (list t1 t2 t3 t4))
+                (list t1 t2 t3 t4)))))
 
 (test-assert "derivers"
   (let* ((b (add-text-to-store %store "build" "echo $foo > $out" '()))