bartronx7/guix
1
0
Fork 0
mirror of https://codeberg.org/guix/guix.git synced 2026-01-25 03:55:08 -06:00
Code Issues Projects Releases Packages Wiki Activity Actions

tests: Add Fedora foreign distribution test.

Browse source 
* 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
This commit is contained in:
Rodion Goritskov 2025-12-25 20:59:20 +01:00 • committed by Rutherther
parent c558339893
commit 59c9c36db9
No known key found for this signature in database
GPG key ID: 0322798269E471C3
1 changed files with 57 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

58
gnu/tests/foreign.scm
View file

@ -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.
@ -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))))