branch master updated: tests: Fix the Jami service system tests.

[guix-commits]

This is an automated email from the git hooks/post-receive script.

apteryx pushed a commit to branch master
in repository guix.

The following commit(s) were added to refs/heads/master by this push:
     new 99fc7e5dd3 tests: Fix the Jami service system tests.
99fc7e5dd3 is described below

commit 99fc7e5dd3c9c92f9b6c2e51db9dc5b0481a56b2
Author: Maxim Cournoyer <maxim.cournoyer@gmail.com>
AuthorDate: Thu May 25 09:46:23 2023 -0400

    tests: Fix the Jami service system tests.
    
    This fixes a regression introduced with commit a09c7da ("tests: Fork and 
exec
    a new Guile for the marionette REPL.") and only partially fixed with the
    follow-up commit f518882 (" tests: Add missing module imports for
    marionette-evaluated code.").
    
    * gnu/tests/telephony.scm (run-jami-test): Remove extraneous module imports.
    Move the setting of the DBUS_SESSION_BUS_ADDRESS environment variable inside
    the first marionette-eval'd setup test.
    ["service can be stopped"]: Add missing (gnu build dbus-service) module.
---
 gnu/tests/telephony.scm | 12 +++++-------
 1 file changed, 5 insertions(+), 7 deletions(-)

diff --git a/gnu/tests/telephony.scm b/gnu/tests/telephony.scm
index 5828784d27..442258dbc3 100644
--- a/gnu/tests/telephony.scm
+++ b/gnu/tests/telephony.scm
@@ -1,5 +1,5 @@
 ;;; GNU Guix --- Functional package management for GNU
-;;; Copyright © 2021, 2022 Maxim Cournoyer <maxim.cournoyer@gmail.com>.
+;;; Copyright © 2021, 2022, 2023 Maxim Cournoyer <maxim.cournoyer@gmail.com>.
 ;;;
 ;;; This file is part of GNU Guix.
 ;;;
@@ -152,13 +152,9 @@ jami account used as part of the jami configuration are 
left *unspecified*."
     (with-imported-modules (source-module-closure
                             '((gnu build marionette)))
       #~(begin
-          (use-modules (rnrs base)
-                       (srfi srfi-11)
-                       (srfi srfi-64)
+          (use-modules (srfi srfi-64)
                        (gnu build marionette))
 
-          (setenv "DBUS_SESSION_BUS_ADDRESS" "unix:path=/var/run/jami/bus")
-
           (define marionette
             (make-marionette (list #$vm)))
 
@@ -171,6 +167,7 @@ jami account used as part of the jami configuration are 
left *unspecified*."
             (marionette-eval
              '(let ((libraries '(#$guile-ac-d-bus
                                  #$guile-packrat))) ;used by ac-d-bus
+                (setenv "DBUS_SESSION_BUS_ADDRESS" 
"unix:path=/var/run/jami/bus")
                 (set! %load-path
                       (append %load-path
                               (map (lambda (directory)
@@ -200,7 +197,8 @@ jami account used as part of the jami configuration are 
left *unspecified*."
           (test-assert "service can be stopped"
             (marionette-eval
              '(begin
-                (use-modules (gnu build jami-service)
+                (use-modules (gnu build dbus-service)
+                             (gnu build jami-service)
                              (gnu services herd)
                              (rnrs base))
                 (assert (jami-service-available?))