diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2012-06-13 17:21:27 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2012-06-13 17:21:27 +0200 |
| commit | 2acb2cb6d006a4799ae9f477c22177824fcc8f52 (patch) | |
| tree | 4a79c9dc9cde2af4e7e41280de075e12406777ce /tests | |
| parent | c36db98c8eaeded5243ecfa1c66e06f38da10692 (diff) | |
Change `build-expression->derivation' to support sub-derivation inputs.
* guix/derivations.scm (build-expression->derivation): Change to expect
INPUTS to have the form (NAME DRV-PATH SUB-DRV) or (NAME DRV-PATH),
instead of (NAME . DRV-PATH). Update callers accordingly.
* guix/gnu-build-system.scm, tests/builders.scm, tests/derivations.scm:
Update accordingly.
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/builders.scm | 2 | ||||
| -rw-r--r-- | tests/derivations.scm | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/tests/builders.scm b/tests/builders.scm index c68f1ffe8d..851baa9ebf 100644 --- a/tests/builders.scm +++ b/tests/builders.scm @@ -47,7 +47,7 @@ "0wqd8sjmxfskrflaxywc7gqw7sfawrfvdxd9skxawzfgyy0pzdz6")) (tarball (http-fetch %store url 'sha256 hash)) (build (gnu-build %store "hello-2.8" tarball - `(("gawk" . ,(nixpkgs-derivation "gawk")))))) + `(("gawk" ,(nixpkgs-derivation "gawk")))))) (and (build-derivations %store (list (pk 'hello-drv build))) (file-exists? (string-append (derivation-path->output-path build) "/bin/hello"))))) diff --git a/tests/derivations.scm b/tests/derivations.scm index d39dacd9a0..4a81a70f65 100644 --- a/tests/derivations.scm +++ b/tests/derivations.scm @@ -211,7 +211,7 @@ "uname" "-a"))))) (drv-path (build-expression->derivation %store "uname" (%current-system) builder - `(("cu" . ,%coreutils)))) + `(("cu" ,%coreutils)))) (succeeded? (build-derivations %store (list drv-path)))) (and succeeded? (let ((p (derivation-path->output-path drv-path))) |