From 609d126e86ea7a05ab7e758fa3fd000ced005f49 Mon Sep 17 00:00:00 2001 From: Ludovic Courtès Date: Wed, 6 Dec 2017 09:07:28 +0100 Subject: Revert "packages: 'package-grafts' trims native inputs." This reverts commit 91c9b5d016ac8bed127557d378c70fbc56cec0e5 following the concerns raised by Mark, Ben, and Tobias: . --- tests/packages.scm | 18 ------------------ 1 file changed, 18 deletions(-) (limited to 'tests/packages.scm') diff --git a/tests/packages.scm b/tests/packages.scm index fe7bd1ded..930374dab 100644 --- a/tests/packages.scm +++ b/tests/packages.scm @@ -660,24 +660,6 @@ ;; (package-cross-derivation %store p "mips64el-linux-gnu" ;; #:graft? #t))) -;; It doesn't make sense for 'package-grafts' to look at native inputs since, -;; by definition, they are not referenced at run time. Make sure -;; 'package-grafts' respects this. -(test-equal "package-grafts, grafts of native inputs ignored" - '() - (let* ((new (dummy-package "native-dep" - (version "0.1") - (arguments '(#:implicit-inputs? #f)))) - (ndep (package (inherit new) (version "0.0") - (replacement new))) - (dep (dummy-package "dep" - (arguments '(#:implicit-inputs? #f)))) - (dummy (dummy-package "dummy" - (arguments '(#:implicit-inputs? #f)) - (native-inputs `(("ndep" ,ndep))) - (inputs `(("dep" ,dep)))))) - (package-grafts %store dummy))) - (test-assert "package-grafts, indirect grafts" (let* ((new (dummy-package "dep" (arguments '(#:implicit-inputs? #f)))) -- cgit v1.3