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

[Danny Milosavljevic]

dannym pushed a commit to branch master
in repository guix.

commit 16d78a8f7207271e662d9152150b0cf790492373
Author: Danny Milosavljevic <address@hidden>
Date:   Tue Jan 9 09:26:27 2018 +0100

    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 0caa922..3e4c3d4 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)