aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorDanny Milosavljevic <dannym@scratchpost.org>2018-01-09 09:26:27 +0100
committerDanny Milosavljevic <dannym@scratchpost.org>2018-01-09 20:02:26 +0100
commit16d78a8f7207271e662d9152150b0cf790492373 (patch)
tree26ea1d48439d0f38b5dff437ae6aeaa657b3838d
parent20abb8c4085fcad6379ac46c285d6ac7f5b4d575 (diff)
downloadguix-16d78a8f7207271e662d9152150b0cf790492373.tar
guix-16d78a8f7207271e662d9152150b0cf790492373.tar.gz
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".
-rw-r--r--gnu/tests.scm8
1 files changed, 8 insertions, 0 deletions
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 @@ marionette service in the guest is started after the Shepherd services listed
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)