diff options
| -rw-r--r-- | gnu/tests/telephony.scm | 12 |
1 files 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?)) |