From 7946c4e710b921c9354ef74557872926d48ea42a Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= <ludo@gnu.org>
Date: Sat, 9 Jun 2012 21:52:31 +0200
Subject: [PATCH] Add `derivation' test for multiple-output derivations.

* tests/derivations.scm ("multiple-output derivation"): New test.
---
 tests/derivations.scm | 18 ++++++++++++++++++
 1 file changed, 18 insertions(+)

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")))