me
/
guix
Archived
1
0
Fork 0
Code

tests: childhurd: Add missing module imports. 

Fixes a regression introduced in
a09c7da8f8.

* gnu/tests/virtualization.scm (run-childhurd-test)[test]: Import (ice-9
textual-ports) and (ice-9 match) in the marionette when needed.
Ludovic Courtès 2023-09-16 23:02:37 +02:00
parent af08de2b2d
commit db014e394e
No known key found for this signature in database
GPG Key ID: 090B11993D9AEBB5
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
gnu/tests/virtualization.scm
View File

@ -1,6 +1,6 @@
;;; GNU Guix --- Functional package management for GNU ;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2017 Christopher Baines <mail@cbaines.net> ;;; 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 © 2020 Jan (janneke) Nieuwenhuizen <janneke@gnu.org>
;;; Copyright © 2021 Pierre Langlois <pierre.langlois@gmx.com> ;;; Copyright © 2021 Pierre Langlois <pierre.langlois@gmx.com>
;;; Copyright © 2022 Marius Bakke <marius@gnu.org> ;;; Copyright © 2022 Marius Bakke <marius@gnu.org>
@ -301,7 +301,9 @@
(test-assert "service running" (test-assert "service running"
(marionette-eval (marionette-eval
'(begin '(begin
(use-modules (gnu services herd)) (use-modules (gnu services herd)
(ice-9 match))
(match (start-service 'childhurd) (match (start-service 'childhurd)
(#f #f) (#f #f)
(('service response-parts ...) (('service response-parts ...)
@ -316,7 +318,8 @@
;; to the host won't work because QEMU listens on 127.0.0.1. ;; to the host won't work because QEMU listens on 127.0.0.1.
(marionette-eval (marionette-eval
'(begin '(begin
(use-modules (ice-9 match)) (use-modules (ice-9 match)
(ice-9 textual-ports))
(let loop ((n 60)) (let loop ((n 60))
(if (zero? n) (if (zero? n)