me
/
guix
Archived
1
0
Fork 0
Code

tests: install: Use a default qemu machine for arm architectures. 

* gnu/tests/install.scm (qemu-command*): Adjust qemu command when run on
armhf-linux or aarch64-linux to include a machine type.
(run-install): Same.

Change-Id: I32f85183cd8ec39c6a2e66624954743fd5983582
master
Efraim Flashner 2024-04-30 21:01:12 +03:00
parent 3444a78e2e
commit 4c39f6edeb
No known key found for this signature in database
GPG Key ID: 41AAE7DCCA3D8351
1 changed files with 12 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
gnu/tests/install.scm
View File

@ -289,6 +289,12 @@ such as for RAID systems."
(define marionette
(make-marionette
`(,(which #$(qemu-command system))
;; Neither of these architectures have a default machine.
,@(if (or (string=? "aarch64-linux" #$system)
(string=? "armhf-linux" #$system))
'("-machine" "virt"
"-cpu" "host")
'())
"-no-reboot"
"-m" "1200"
,@(if #$uefi-firmware
@ -363,6 +369,12 @@ MiB of RAM."
(use-modules (srfi srfi-1))
`(,(string-append #$qemu-minimal "/bin/"
#$(qemu-command system))
;; Neither of these architectures have a default machine.
,@(if (or (string=? "aarch64-linux" #$system)
(string=? "armhf-linux" #$system))
'("-machine" "virt"
"-cpu" "host")
'())
"-snapshot" ;for the volatile, writable overlay
,@(if (file-exists? "/dev/kvm")
'("-enable-kvm")