summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2025-07-14 18:38:51 +0200
committerLudovic Courtès <ludo@gnu.org>2025-07-18 00:43:50 +0200
commit9596822a6c1bf2394f0f99f9d76fda20ddb595e0 (patch)
treed128563061b6f536da196a77a77341ff77caa4f2
parent08c23d2c13df1492307793e31889c22da89bf3f0 (diff)
tests: foreign: Forcefully delete /bin/{wget,gpg}.
* gnu/tests/foreign.scm (run-foreign-install-test)[build]: Attempt to delete /bin/{wget,gpg} before recreating them. Change-Id: I5260cae7f706ce9a492a86b1859591c8446e04a3
-rw-r--r--gnu/tests/foreign.scm7
1 files changed, 6 insertions, 1 deletions
diff --git a/gnu/tests/foreign.scm b/gnu/tests/foreign.scm
index 3e52d8139d..5509a7d619 100644
--- a/gnu/tests/foreign.scm
+++ b/gnu/tests/foreign.scm
@@ -218,9 +218,14 @@ GNU/Linux distro, and check that the installation is functional."
(test-assert "install fake dependencies"
;; The installation script insists on checking for the
;; availability of 'wget' and 'gpg' but does not actually use them
- ;; when 'GUIX_BINARY_FILE_NAME' is set. Provide fake binaries.
+ ;; when 'GUIX_BINARY_FILE_NAME' is set. Provide fake binaries
+ ;; that always succeed.
(marionette-eval '(begin
+ (false-if-exception
+ (delete-file "/bin/wget"))
(symlink "/bin/true" "/bin/wget")
+ (false-if-exception
+ (delete-file "/bin/gpg"))
(symlink "/bin/true" "/bin/gpg")
#t)
marionette))