diff options
| author | Danny Milosavljevic <dannym@scratchpost.org> | 2018-01-09 09:26:27 +0100 |
|---|---|---|
| committer | Danny Milosavljevic <dannym@scratchpost.org> | 2018-01-09 20:02:26 +0100 |
| commit | 16d78a8f7207271e662d9152150b0cf790492373 (patch) | |
| tree | 26ea1d48439d0f38b5dff437ae6aeaa657b3838d /gnu | |
| parent | 20abb8c4085fcad6379ac46c285d6ac7f5b4d575 (diff) | |
| download | guix-16d78a8f7207271e662d9152150b0cf790492373.tar.gz guix-16d78a8f7207271e662d9152150b0cf790492373.zip | |
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')
| -rw-r--r-- | gnu/tests.scm | 8 |
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) |