ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-12-24 05:18:07 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

Add `derivation' test for multiple-output derivations.

Browse source 
* tests/derivations.scm ("multiple-output derivation"): New test.
This commit is contained in:
Ludovic Courtès 2012-06-09 21:52:31 +02:00
parent af7f9e5f13
commit 7946c4e710
1 changed files with 18 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

18
tests/derivations.scm
View file

@ -85,6 +85,24 @@ (define %store
(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")))