tests: marionette-operating-system: Add initrd parameter and kernel-arguments.

* gnu/tests.scm (marionette-operating-system): Use initrd parameter "on-error"
and kernel-arguments "panic".
This commit is contained in:
Danny Milosavljevic 2018-01-09 09:26:27 +01:00
parent 20abb8c408
commit 16d78a8f72
No known key found for this signature in database
GPG key ID: E71A35542C30BAA5

View file

@ -172,6 +172,14 @@ (define* (marionette-operating-system os
in REQUIREMENTS." in REQUIREMENTS."
(operating-system (operating-system
(inherit os) (inherit os)
;; Make sure the guest dies on error.
(kernel-arguments (cons "panic=1"
(operating-system-user-kernel-arguments os)))
;; Make sure the guest doesn't hang in the REPL on error.
(initrd (lambda (fs . rest)
(apply (operating-system-initrd os) fs
#:on-error 'backtrace
rest)))
(services (cons (service marionette-service-type (services (cons (service marionette-service-type
(marionette-configuration (marionette-configuration
(requirements requirements) (requirements requirements)