diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2014-10-16 23:22:07 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2014-11-02 21:22:12 +0100 |
| commit | 50373bab7a084dc28a48df2ca7e16036d8978182 (patch) | |
| tree | deb8ceda8be1d07508fb23d175a8b1e34313ecbc | |
| parent | e786293e769f4d69e14d77905bf3a5745557033f (diff) | |
| download | guix-50373bab7a084dc28a48df2ca7e16036d8978182.tar.gz | |
packages: Add 'package->bag' test for propagated inputs.
* tests/packages.scm ("package->bag, propagated inputs"): New test.
| -rw-r--r-- | tests/packages.scm | 11 |
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))) |