summaryrefslogtreecommitdiff
path: root/gnu
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2023-09-16 23:02:37 +0200
committerLudovic Courtès <ludo@gnu.org>2023-09-17 15:31:03 +0200
commitdb014e394e4fe256d2413d8316c85119828dc2f2 (patch)
tree60bc247d35b5fd81777b3047b5d303364090ef5e /gnu
parentaf08de2b2d8bee54bd2664e3da3c8470a046e352 (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.
Diffstat (limited to 'gnu')
-rw-r--r--gnu/tests/virtualization.scm9
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)