From ff1146fb4f7254a8f644f89d7af6b4b566528603 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= <ludo@gnu.org>
Date: Sat, 28 Oct 2023 01:30:37 +0200
Subject: [PATCH] tests: Adjust to cope with glibc graft.
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

This is a followup to 1328c4cca531318e3ed90c6aecb522a5b22a4bcc, which
led to failures for tests that were not prepared to cope with that.

* tests/guix-environment-container.sh (hello_drv_nested): Pass “-E
GUIX_BUILD_OPTIONS” so ‘--no-grafts’ is passed.
* tests/guix-pack.sh (GUIX_BUILD_OPTIONS): Add ‘--no-grafts’.
* tests/transformations.scm ("options->transformation, with-graft"):
Skip when ‘glibc-final’ has a replacement.

Change-Id: Ia65c9aeb06f524252815b8290a5ca7bf97ee8136
---
 tests/guix-environment-container.sh | 2 +-
 tests/guix-pack.sh                  | 4 +++-
 tests/transformations.scm           | 5 +++++
 3 files changed, 9 insertions(+), 2 deletions(-)

diff --git a/tests/guix-environment-container.sh b/tests/guix-environment-container.sh
index a3bc1ab572..09704f751c 100644
--- a/tests/guix-environment-container.sh
+++ b/tests/guix-environment-container.sh
@@ -270,5 +270,5 @@ guix build hello -d
 env="$(type -P pre-inst-env)"
 guix shell -C -D guix -- "$env" guix build hello -d && false # cannot work
 hello_drv="$(guix build hello -d)"
-hello_drv_nested="$(cd "$(dirname env)" && guix shell --bootstrap -CW -D guix -- "$env" guix build hello -d)"
+hello_drv_nested="$(cd "$(dirname env)" && guix shell --bootstrap -E GUIX_BUILD_OPTIONS -CW -D guix -- "$env" guix build hello -d)"
 test "$hello_drv" = "$hello_drv_nested"
diff --git a/tests/guix-pack.sh b/tests/guix-pack.sh
index 4042e54aeb..3204e821cf 100644
--- a/tests/guix-pack.sh
+++ b/tests/guix-pack.sh
@@ -30,7 +30,9 @@ fi
 guix pack --version
 
 # Use --no-substitutes because we need to verify we can do this ourselves.
-GUIX_BUILD_OPTIONS="--no-substitutes"
+# Use --no-grafts to avoid interference--e.g., --dry-run passing even when
+# given an unsupported package.
+GUIX_BUILD_OPTIONS="--no-substitutes --no-grafts"
 export GUIX_BUILD_OPTIONS
 
 test_directory="`mktemp -d`"
diff --git a/tests/transformations.scm b/tests/transformations.scm
index 704818b9ed..755211d65d 100644
--- a/tests/transformations.scm
+++ b/tests/transformations.scm
@@ -187,6 +187,11 @@
                       (string=? (package-full-name dep)
                                 (package-full-name findutils)))))))))))
 
+;; The following test requires grafting enabled, but it becomes extremely
+;; expensive if there's a graft on glibc or other package deep in the graph.
+(when (package-replacement (@ (gnu packages commencement) glibc-final))
+  (test-skip 1))
+
 (test-assert "options->transformation, with-graft"
   (let* ((p (dummy-package "guix.scm"
               (inputs `(("foo" ,grep)