From 829c19142e62efa7ba9715fc682b4be959830b2e Mon Sep 17 00:00:00 2001 From: Maxim Cournoyer Date: Sun, 18 Sep 2022 21:28:00 -0400 Subject: [PATCH] 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): 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 @@ (define* (make-jami-os #:key provisioning? partial?) (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 @@ (define marionette (marionette-eval '(begin (use-modules (gnu services herd) + (ice-9 match) (rnrs base) (srfi srfi-1))