guix_mirror_bot pushed a commit to branch version-1.5.0 in repository guix.
commit 59c9c36db96c42d9e07eea09dff6b925ba92cc62 Author: Rodion Goritskov <[email protected]> AuthorDate: Thu Dec 25 20:59:20 2025 +0100 tests: Add Fedora foreign distribution test. * gnu/tests/foreign.scm (qcow-image-with-marionette): - Create .autorelabel file to make copied Guile work on SELinux-enabled systems. (resize-lvm-xfs-partition): New variable. (run-foreign-install-test): Increase RAM for VM to 1024 as 512 is not sufficient to run Guix installation on Fedora. (fedora-qcow2): New variable. (%test-fedora-install): New variable. Change-Id: Ib247a174dfea8630d830763410391077516a8c16 Merges: #5007 --- gnu/tests/foreign.scm | 60 ++++++++++++++++++++++++++++++++++++++++++++++++--- 1 file changed, 57 insertions(+), 3 deletions(-) diff --git a/gnu/tests/foreign.scm b/gnu/tests/foreign.scm index 7ef64534c8..82e2f2d870 100644 --- a/gnu/tests/foreign.scm +++ b/gnu/tests/foreign.scm @@ -42,7 +42,8 @@ #:use-module (srfi srfi-9) #:export (%test-debian-install %test-archlinux-install - %test-ubuntu-install)) + %test-ubuntu-install + %test-fedora-install)) (define marionette-systemd-service ;; Definition of the marionette service for systemd. @@ -73,7 +74,7 @@ marionette. This procedure will be called from within a VM and it should resize the partition and file system, if appropriate." (define vm (virtual-machine - (marionette-operating-system %simple-os))) + (marionette-operating-system %simple-os))) (define build (with-imported-modules (source-module-closure @@ -109,6 +110,9 @@ resize the partition and file system, if appropriate." marionette)) (error "failed to mount foreign distro image" #$device)) + ;; Make newly copied files relabeled for SELinux-enabled distributions + (marionette-eval '(system* "touch" "/mnt/.autorelabel") marionette) + (marionette-eval '(system* "ls" "-la" "/mnt") marionette) (marionette-eval '(begin @@ -176,6 +180,35 @@ resize the partition and file system, if appropriate." marionette)) (error "failed to grow the file system")))) +(define resize-lvm-xfs-partition + ;; Gexp evaluating to a two-argument procedure, taking DEVICE and + ;; MARIONETTE. It will grow the given device and its file system to 100 % + ;; of the empty space on the image. + #~(lambda (device marionette) + + (unless (zero? (marionette-eval `(begin + (system* #$(file-append lvm2 "/sbin/pvscan")) + (system* #$(file-append lvm2 "/sbin/vgscan")) + (system* #$(file-append lvm2 "/sbin/vgchange") "-a" "y") + (system* #$(file-append lvm2 "/sbin/lvscan")) + (system* #$(file-append lvm2 "/sbin/lvextend") "-l" "+100%FREE" ,device)) + marionette)) + `(error "failed to extend logical volume" ,device)) + + (unless (zero? (marionette-eval `(system* "mount" ,device "/mnt") + marionette)) + `(error "failed to mount foreign distro image" ,device)) + + (unless (zero? (marionette-eval + `(system* #$(file-append xfsprogs "/sbin/xfs_growfs") + ,device) + marionette)) + (error "failed to grow the file system")) + + (unless (zero? (marionette-eval '(system* "umount" "/mnt") + marionette)) + (error "failed to unmount device")))) + (define (manifest-entry-without-grafts entry) "Return ENTRY with grafts disabled on its contents." (manifest-entry @@ -239,7 +272,7 @@ and file system, if appropriate." (list (%store-prefix)) #:image-format "qcow2" #:rw-image? #t) - "-m" "512" + "-m" "1024" "-snapshot"))) (test-runner-current (system-test-runner #$output)) @@ -466,3 +499,24 @@ script.") ubuntu-uidmap-deb-file) #:resize-image "+1G" #:resize-proc resize-ext4-partition)))) +(define fedora-qcow2 + (origin + (uri "https://download.fedoraproject.org/pub/fedora/linux/releases/43/Server/x86_64/images/Fedora-Server-Guest-Generic-43-1.6.x86_64.qcow2";) + (method url-fetch) + (sha256 + (base32 + "0j142kbrfcv9fwds4bw57dqhnjvpzd6d6m15ar3sgf1yw9dq0pac")))) + +;; This test starts failing when derivations in repo for GNU Hello and its dependencies +;; differs from versions in current Guix package. The simple way to fix it is to update +;; Guix package version. +(define %test-fedora-install + (system-test + (name "fedora-install") + (description + "Test installation of Guix on Fedora Linux using the @file{guix-install.sh} +script.") + (value (run-foreign-install-test fedora-qcow2 name + #:device "/dev/systemVG/LVRoot" + #:resize-image "+1G" + #:resize-proc resize-lvm-xfs-partition))))
