tests: foreign: Add ‘archlinux-install’ test.

* gnu/tests/foreign.scm (archlinux-qcow2, %test-archlinux-install): New
variables.

Co-authored-by: Ivan Popovych <ivan@ipvych.com>
Change-Id: I2fce962a2eafa58fafaf2bdff25fc23df28fd687

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"))))