From 50373bab7a084dc28a48df2ca7e16036d8978182 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= <ludo@gnu.org>
Date: Thu, 16 Oct 2014 23:22:07 +0200
Subject: [PATCH] packages: Add 'package->bag' test for propagated inputs.

* tests/packages.scm ("package->bag, propagated inputs"): New test.
---
 tests/packages.scm | 11 +++++++++++
 1 file changed, 11 insertions(+)

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