diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2014-10-14 14:47:49 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2014-10-17 23:23:20 +0200 |
| commit | 969df974871ae1882c25df8d9b09bced2e62a30b (patch) | |
| tree | d7ba4b1e6e347884f2c72ee81a06b18fefe6e08f /tests | |
| parent | e25408849ad70026e1673ea0adc9bd4df8ff32fc (diff) | |
| download | guix-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.scm | 8 |
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))) |