summaryrefslogtreecommitdiff
path: root/tests/packages.scm
diff options
context:
space:
mode:
Diffstat (limited to 'tests/packages.scm')
-rw-r--r--tests/packages.scm18
1 files changed, 0 insertions, 18 deletions
diff --git a/tests/packages.scm b/tests/packages.scm
index fe7bd1ded69..930374dabfa 100644
--- a/tests/packages.scm
+++ b/tests/packages.scm
@@ -660,24 +660,6 @@
660;; (package-cross-derivation %store p "mips64el-linux-gnu" 660;; (package-cross-derivation %store p "mips64el-linux-gnu"
661;; #:graft? #t))) 661;; #:graft? #t)))
662 662
663;; It doesn't make sense for 'package-grafts' to look at native inputs since,
664;; by definition, they are not referenced at run time. Make sure
665;; 'package-grafts' respects this.
666(test-equal "package-grafts, grafts of native inputs ignored"
667 '()
668 (let* ((new (dummy-package "native-dep"
669 (version "0.1")
670 (arguments '(#:implicit-inputs? #f))))
671 (ndep (package (inherit new) (version "0.0")
672 (replacement new)))
673 (dep (dummy-package "dep"
674 (arguments '(#:implicit-inputs? #f))))
675 (dummy (dummy-package "dummy"
676 (arguments '(#:implicit-inputs? #f))
677 (native-inputs `(("ndep" ,ndep)))
678 (inputs `(("dep" ,dep))))))
679 (package-grafts %store dummy)))
680
681(test-assert "package-grafts, indirect grafts" 663(test-assert "package-grafts, indirect grafts"
682 (let* ((new (dummy-package "dep" 664 (let* ((new (dummy-package "dep"
683 (arguments '(#:implicit-inputs? #f)))) 665 (arguments '(#:implicit-inputs? #f))))