06/08: tests: telephony: Add extra packages to %jami-os for debugging.

[guix-commits]

apteryx pushed a commit to branch master
in repository guix.

commit 829c19142e62efa7ba9715fc682b4be959830b2e
Author: Maxim Cournoyer <maxim.cournoyer@gmail.com>
AuthorDate: Sun Sep 18 21:28:00 2022 -0400

    tests: telephony: Add extra packages to %jami-os for debugging.
    
    * gnu/tests/telephony.scm (make-jami-os): Add libjami:debug, gdb, guile,
    guile-ac-d-bus, guile-readline, guile-fibers, screen and strace.
    (run-jami-test)<jami service actions, ban/unban contacts>: Add (ice-9 
match),
    for lambda-match (worked without it but needed when manually testing).
---
 gnu/tests/telephony.scm | 15 ++++++++++++---
 1 file changed, 12 insertions(+), 3 deletions(-)

diff --git a/gnu/tests/telephony.scm b/gnu/tests/telephony.scm
index 83fa7228c8..2b26a41a69 100644
--- a/gnu/tests/telephony.scm
+++ b/gnu/tests/telephony.scm
@@ -114,9 +114,17 @@
                                (permit-root-login #t)
                                (allow-empty-passwords? #t)))
                      %base-services))
-    (packages (cons* (specification->package "recutils")
-                     (specification->package "strace")
-                     %base-packages))))
+    ;; Extra packages for debugging purposes.
+    (packages (cons (specification->package+output "libjami:debug")
+                    (append (map specification->package
+                                 '("gdb"
+                                   "guile"
+                                   "guile-ac-d-bus"
+                                   "guile-readline"
+                                   "guile-fibers"
+                                   "screen"
+                                   "strace"))
+                            %base-packages)))))
 
 (define %jami-os
   (make-jami-os))
@@ -273,6 +281,7 @@ jami account used as part of the jami configuration are 
left *unspecified*."
               (marionette-eval
                '(begin
                   (use-modules (gnu services herd)
+                               (ice-9 match)
                                (rnrs base)
                                (srfi srfi-1))