diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2023-05-06 15:07:09 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2023-05-06 17:12:45 +0200 |
| commit | f51888272558d98cf5c196b93fb6c499056fbf6c (patch) | |
| tree | 244d8f69bffd21757be7604af1ebb3f2bc8318dd /gnu/tests/monitoring.scm | |
| parent | 1cb0dee3a31c6d235389d4d9787fa583c2babc30 (diff) | |
| download | guix-f51888272558d98cf5c196b93fb6c499056fbf6c.tar guix-f51888272558d98cf5c196b93fb6c499056fbf6c.tar.gz | |
tests: Add missing module imports for marionette-evaluated code.
This missing imports became apparent with commit
a09c7da8f8d8e732f969cf0a09aaa78f87032ab1, which runs the marionette
service in a fresh Guile process with fewer imports.
* gnu/tests/databases.scm (run-postgresql-test, run-timescaledb-test)
(run-mysql-test): Add missing module imports for code passed to
'marionette-eval'.
* gnu/tests/docker.scm (run-docker-test, run-docker-system-test): Likewise.
* gnu/tests/mail.scm (run-dovecot-test, run-getmail-test): Likewise.
* gnu/tests/monitoring.scm (run-zabbix-server-test): Likewise.
* gnu/tests/pam.scm (run-test-pam-limits): Likewise.
* gnu/tests/reconfigure.scm (run-switch-to-system-test)
(run-install-bootloader-test): Likewise.
* gnu/tests/security-token.scm (run-pcscd-test): Likewise.
* gnu/tests/install.scm (gui-test-program): Likewise.
* gnu/tests/telephony.scm (run-jami-test): Add modules to
the #:imported-modules argument of 'marionette-operating-system'.
[test]: Remove them from 'with-imported-modules'; remove
'with-extensions'. Add "d-bus tooling loaded" test to set up %load-path
and %load-compiled-path so the marionette process can find
guile-ac-d-bus and guile-packrat.
Diffstat (limited to 'gnu/tests/monitoring.scm')
| -rw-r--r-- | gnu/tests/monitoring.scm | 14 |
1 files changed, 9 insertions, 5 deletions
diff --git a/gnu/tests/monitoring.scm b/gnu/tests/monitoring.scm index ae0a8e0845..bbab1d8acf 100644 --- a/gnu/tests/monitoring.scm +++ b/gnu/tests/monitoring.scm @@ -208,11 +208,15 @@ postgres|Superuser, Create role, Create DB, Replication, Bypass RLS|{} zabbix||{} " (marionette-eval - '(begin (let* ((port (open-pipe #$%psql-db-zabbix-create-script - OPEN_READ)) - (output (read-string port)) - (status (close-pipe port))) - output)) + '(begin + (use-modules (ice-9 popen) + (ice-9 rdelim)) + + (let* ((port (open-pipe #$%psql-db-zabbix-create-script + OPEN_READ)) + (output (read-string port)) + (status (close-pipe port))) + output)) marionette)) (test-eq "postgres create zabbix db" |