From 16d78a8f7207271e662d9152150b0cf790492373 Mon Sep 17 00:00:00 2001 From: Danny Milosavljevic Date: Tue, 9 Jan 2018 09:26:27 +0100 Subject: [PATCH] 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". --- gnu/tests.scm | 8 ++++++++ 1 file changed, 8 insertions(+) diff --git a/gnu/tests.scm b/gnu/tests.scm index 0caa922fdf..3e4c3d4e3a 100644 --- a/gnu/tests.scm +++ b/gnu/tests.scm @@ -172,6 +172,14 @@ (define* (marionette-operating-system os in REQUIREMENTS." (operating-system (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 (marionette-configuration (requirements requirements)