summaryrefslogtreecommitdiff
path: root/tests
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2014-10-16 23:22:07 +0200
committerLudovic Courtès <ludo@gnu.org>2014-11-02 21:22:12 +0100
commit50373bab7a084dc28a48df2ca7e16036d8978182 (patch)
treedeb8ceda8be1d07508fb23d175a8b1e34313ecbc /tests
parente786293e769f4d69e14d77905bf3a5745557033f (diff)
packages: Add 'package->bag' test for propagated inputs.
* tests/packages.scm ("package->bag, propagated inputs"): New test.
Diffstat (limited to 'tests')
-rw-r--r--tests/packages.scm11
1 files changed, 11 insertions, 0 deletions
diff --git a/tests/packages.scm b/tests/packages.scm
index ceb2299748..44cdb35c4b 100644
--- a/tests/packages.scm
+++ b/tests/packages.scm
@@ -394,6 +394,17 @@
(assoc-ref (bag-build-inputs bag) "libc")
(assoc-ref (bag-build-inputs bag) "coreutils"))))
+(test-assert "package->bag, propagated inputs"
+ (let* ((dep (dummy-package "dep"))
+ (prop (dummy-package "prop"
+ (propagated-inputs `(("dep" ,dep)))))
+ (dummy (dummy-package "dummy"
+ (inputs `(("prop" ,prop)))))
+ (inputs (bag-transitive-inputs (package->bag dummy #:graft? #f))))
+ (match (assoc "prop/dep" inputs)
+ (("prop/dep" package)
+ (eq? package dep)))))
+
(test-assert "bag->derivation"
(let ((bag (package->bag gnu-make))
(drv (package-derivation %store gnu-make)))