diff options
author | Ludovic Courtès <ludo@gnu.org> | 2023-09-16 23:02:37 +0200 |
---|---|---|
committer | Ludovic Courtès <ludo@gnu.org> | 2023-09-17 15:31:03 +0200 |
commit | db014e394e4fe256d2413d8316c85119828dc2f2 (patch) | |
tree | 60bc247d35b5fd81777b3047b5d303364090ef5e | |
parent | af08de2b2d8bee54bd2664e3da3c8470a046e352 (diff) |
tests: childhurd: Add missing module imports.
Fixes a regression introduced in
a09c7da8f8d8e732f969cf0a09aaa78f87032ab1.
* gnu/tests/virtualization.scm (run-childhurd-test)[test]: Import (ice-9
textual-ports) and (ice-9 match) in the marionette when needed.
-rw-r--r-- | gnu/tests/virtualization.scm | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/gnu/tests/virtualization.scm b/gnu/tests/virtualization.scm index effdeb4cfa..73c8099b79 100644 --- a/gnu/tests/virtualization.scm +++ b/gnu/tests/virtualization.scm @@ -1,6 +1,6 @@ ;;; GNU Guix --- Functional package management for GNU ;;; Copyright © 2017 Christopher Baines <mail@cbaines.net> -;;; Copyright © 2020-2022 Ludovic Courtès <ludo@gnu.org> +;;; Copyright © 2020-2023 Ludovic Courtès <ludo@gnu.org> ;;; Copyright © 2020 Jan (janneke) Nieuwenhuizen <janneke@gnu.org> ;;; Copyright © 2021 Pierre Langlois <pierre.langlois@gmx.com> ;;; Copyright © 2022 Marius Bakke <marius@gnu.org> @@ -301,7 +301,9 @@ (test-assert "service running" (marionette-eval '(begin - (use-modules (gnu services herd)) + (use-modules (gnu services herd) + (ice-9 match)) + (match (start-service 'childhurd) (#f #f) (('service response-parts ...) @@ -316,7 +318,8 @@ ;; to the host won't work because QEMU listens on 127.0.0.1. (marionette-eval '(begin - (use-modules (ice-9 match)) + (use-modules (ice-9 match) + (ice-9 textual-ports)) (let loop ((n 60)) (if (zero? n) |