diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2012-06-09 21:52:31 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2012-06-09 21:52:31 +0200 |
| commit | 7946c4e710b921c9354ef74557872926d48ea42a (patch) | |
| tree | 2685b75fd604840b69ee5fdaef0f17b987c1084a /tests | |
| parent | af7f9e5f13106ccfd6c9144e40dff5071672b195 (diff) | |
| download | guix-7946c4e710b921c9354ef74557872926d48ea42a.tar.gz guix-7946c4e710b921c9354ef74557872926d48ea42a.tar.xz | |
Add `derivation' test for multiple-output derivations.
* tests/derivations.scm ("multiple-output derivation"): New test.
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/derivations.scm | 18 |
1 files changed, 18 insertions, 0 deletions
diff --git a/tests/derivations.scm b/tests/derivations.scm index dd4f9ee254..5d4fea8403 100644 --- a/tests/derivations.scm +++ b/tests/derivations.scm @@ -85,6 +85,24 @@ (equal? (string->utf8 "hello") (call-with-input-file p get-bytevector-all)))))) +(test-assert "multiple-output derivation" + (let* ((builder (add-text-to-store %store "my-fixed-builder.sh" + "echo one > $out ; echo two > $second" + '())) + (drv-path (derivation %store "fixed" "x86_64-linux" + "/bin/sh" `(,builder) + '(("HOME" . "/homeless") + ("zzz" . "Z!") + ("AAA" . "A!")) + `((,builder)) + #:outputs '("out" "second"))) + (succeeded? (build-derivations %store (list drv-path)))) + (and succeeded? + (let ((one (derivation-path->output-path drv-path "out")) + (two (derivation-path->output-path drv-path "second"))) + (and (eq? 'one (call-with-input-file one read)) + (eq? 'two (call-with-input-file two read))))))) + (define %coreutils (false-if-exception (nixpkgs-derivation "coreutils"))) |