diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2016-05-24 23:27:07 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2016-05-24 23:35:28 +0200 |
| commit | f6fee16e9370bdc9e912878706f69355fc40a472 (patch) | |
| tree | 365e1e52c4d18b6dea9ffb95f8ffde2aeec27c73 /tests/store.scm | |
| parent | db761534df3b57122da8e8b05a678182b59a9d3a (diff) | |
| download | gnu-guix-f6fee16e9370bdc9e912878706f69355fc40a472.tar gnu-guix-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/store.scm')
| -rw-r--r-- | tests/store.scm | 10 |
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" '())) |