diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2025-07-14 18:38:51 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2025-07-18 00:43:50 +0200 |
| commit | 9596822a6c1bf2394f0f99f9d76fda20ddb595e0 (patch) | |
| tree | d128563061b6f536da196a77a77341ff77caa4f2 /gnu/tests | |
| parent | 08c23d2c13df1492307793e31889c22da89bf3f0 (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
Diffstat (limited to 'gnu/tests')
| -rw-r--r-- | gnu/tests/foreign.scm | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/gnu/tests/foreign.scm b/gnu/tests/foreign.scm index 3e52d8139d8..5509a7d6198 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." | |||
| 218 | (test-assert "install fake dependencies" | 218 | (test-assert "install fake dependencies" |
| 219 | ;; The installation script insists on checking for the | 219 | ;; The installation script insists on checking for the |
| 220 | ;; availability of 'wget' and 'gpg' but does not actually use them | 220 | ;; availability of 'wget' and 'gpg' but does not actually use them |
| 221 | ;; when 'GUIX_BINARY_FILE_NAME' is set. Provide fake binaries. | 221 | ;; when 'GUIX_BINARY_FILE_NAME' is set. Provide fake binaries |
| 222 | ;; that always succeed. | ||
| 222 | (marionette-eval '(begin | 223 | (marionette-eval '(begin |
| 224 | (false-if-exception | ||
| 225 | (delete-file "/bin/wget")) | ||
| 223 | (symlink "/bin/true" "/bin/wget") | 226 | (symlink "/bin/true" "/bin/wget") |
| 227 | (false-if-exception | ||
| 228 | (delete-file "/bin/gpg")) | ||
| 224 | (symlink "/bin/true" "/bin/gpg") | 229 | (symlink "/bin/true" "/bin/gpg") |
| 225 | #t) | 230 | #t) |
| 226 | marionette)) | 231 | marionette)) |
