01/08: tests: childhurd: Add missing module imports.

[guix-commits]

civodul pushed a commit to branch master
in repository guix.

commit db014e394e4fe256d2413d8316c85119828dc2f2
Author: Ludovic Courtès <ludo@gnu.org>
AuthorDate: Sat Sep 16 23:02:37 2023 +0200

    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.
---
 gnu/tests/virtualization.scm | 9 ++++++---
 1 file 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)