diff options
| -rw-r--r-- | gnu/tests/foreign.scm | 23 |
1 files changed, 22 insertions, 1 deletions
diff --git a/gnu/tests/foreign.scm b/gnu/tests/foreign.scm index 0c321693fe..52ead49a24 100644 --- a/gnu/tests/foreign.scm +++ b/gnu/tests/foreign.scm @@ -38,7 +38,8 @@ #:use-module (gnu system vm) #:use-module ((guix scripts pack) #:prefix pack:) #:use-module (srfi srfi-9) - #:export (%test-debian-install)) + #:export (%test-debian-install + %test-archlinux-install)) (define marionette-systemd-service ;; Definition of the marionette service for systemd. @@ -289,3 +290,23 @@ partition of IMAGE is expected to be on DEVICE." "Test installation of Guix on Debian using the @file{guix-install.sh} script.") (value (run-foreign-install-test debian-12-qcow2 name)))) + +(define archlinux-qcow2 + ;; Images generated by <https://gitlab.archlinux.org/archlinux/arch-boxes>; + ;; using default mirror mentioned in README there. + ;; XXX: These images are removed every ~90 days + (origin + (uri "https://geo.mirror.pkgbuild.com/images/v20250615.366044/Arch-Linux-x86_64-basic.qcow2") + (method url-fetch) + (sha256 + (base32 + "11m945cv5hgfa7zgkvd7fqgqfp3vdq3c4bdh3x0ilza36w5xcn1b")))) + +(define %test-archlinux-install + (system-test + (name "archlinux-install") + (description + "Test installation of Guix on Arch Linux using the @file{guix-install.sh} +script.") + (value (run-foreign-install-test archlinux-qcow2 name + #:device "/dev/vdb3")))) |