summary refs log tree commit diff
path: root/gnu/tests.scm
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 /gnu/tests.scm
parent20abb8c4085fcad6379ac46c285d6ac7f5b4d575 (diff)
downloadguix-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".
Diffstat (limited to 'gnu/tests.scm')
-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)