aboutsummaryrefslogtreecommitdiff
path: root/tests
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2014-10-14 14:47:49 +0200
committerLudovic Courtès <ludo@gnu.org>2014-10-17 23:23:20 +0200
commit969df974871ae1882c25df8d9b09bced2e62a30b (patch)
treed7ba4b1e6e347884f2c72ee81a06b18fefe6e08f /tests
parente25408849ad70026e1673ea0adc9bd4df8ff32fc (diff)
downloadguix-969df974871ae1882c25df8d9b09bced2e62a30b.tar
guix-969df974871ae1882c25df8d9b09bced2e62a30b.tar.gz
derivations: Introduce 'graft' record type.
* guix/derivations.scm (<graft>): New record type. (graft-derivation): Rename 'replacements' to 'grafts', and expect it to be a list of <graft> records. Adjust accordingly. * tests/derivations.scm ("graft-derivation"): Use 'graft' instead of pairs in argument to 'graft-derivation'.
Diffstat (limited to 'tests')
-rw-r--r--tests/derivations.scm8
1 files changed, 6 insertions, 2 deletions
diff --git a/tests/derivations.scm b/tests/derivations.scm
index 48d12990e6..e774fed4c3 100644
--- a/tests/derivations.scm
+++ b/tests/derivations.scm
@@ -831,8 +831,12 @@ Deriver: ~a~%"
(lambda (port)
(display "fake mkdir" port)))))
(graft (graft-derivation %store "graft" orig
- `(((,%bash) . (,one))
- ((,%mkdir) . (,two))))))
+ (list (graft
+ (origin %bash)
+ (replacement one))
+ (graft
+ (origin %mkdir)
+ (replacement two))))))
(and (build-derivations %store (list graft))
(let ((two (derivation->output-path two))
(graft (derivation->output-path graft)))