summaryrefslogtreecommitdiff
path: root/tests
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2013-01-05 23:51:13 +0100
committerLudovic Courtès <ludo@gnu.org>2013-01-05 23:51:13 +0100
commit7244a5f74e8a2f465b1ad04b5c4666457567c54e (patch)
treeb8c8f624d087814ba7336a9fa5294133e97fcbb8 /tests
parent3441e164976c14ef8bf9a95ab4130ca25ac85e70 (diff)
downloadpatches-7244a5f74e8a2f465b1ad04b5c4666457567c54e.tar
patches-7244a5f74e8a2f465b1ad04b5c4666457567c54e.tar.gz
derivations: Add `derivation-path->output-paths'.
* guix/derivations.scm (derivation-path->output-paths): New procedure. * tests/derivations.scm ("multiple-output derivation"): Test it.
Diffstat (limited to 'tests')
-rw-r--r--tests/derivations.scm7
1 files changed, 5 insertions, 2 deletions
diff --git a/tests/derivations.scm b/tests/derivations.scm
index 46bab4e19d..30be476a5f 100644
--- a/tests/derivations.scm
+++ b/tests/derivations.scm
@@ -1,5 +1,5 @@
;;; Guix --- Nix package management from Guile. -*- coding: utf-8 -*-
-;;; Copyright (C) 2012 Ludovic Courtès <ludo@gnu.org>
+;;; Copyright (C) 2012, 2013 Ludovic Courtès <ludo@gnu.org>
;;;
;;; This file is part of Guix.
;;;
@@ -234,7 +234,10 @@
(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))
+ (and (lset= equal?
+ (derivation-path->output-paths drv-path)
+ `(("out" . ,one) ("second" . ,two)))
+ (eq? 'one (call-with-input-file one read))
(eq? 'two (call-with-input-file two read)))))))
(test-assert "multiple-output derivation, non-alphabetic order"