ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-12-25 05:48:07 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

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

Browse source 
* 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).
This commit is contained in:
Maxim Cournoyer 2022-09-18 21:28:00 -04:00
parent 21afbf54cd
commit 829c19142e
No known key found for this signature in database
GPG key ID: 1260E46482E63562
1 changed files with 12 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

15
gnu/tests/telephony.scm
View file

@ -114,9 +114,17 @@ (define* (make-jami-os #:key provisioning? partial?)
(permit-root-login #t) (permit-root-login #t)
(allow-empty-passwords? #t))) (allow-empty-passwords? #t)))
%base-services)) %base-services))
(packages (cons* (specification->package "recutils") ;; Extra packages for debugging purposes.
(specification->package "strace") (packages (cons (specification->package+output "libjami:debug")
%base-packages)))) (append (map specification->package
'("gdb"
"guile"
"guile-ac-d-bus"
"guile-readline"
"guile-fibers"
"screen"
"strace"))
%base-packages)))))
(define %jami-os (define %jami-os
(make-jami-os)) (make-jami-os))
@ -273,6 +281,7 @@ (define marionette
(marionette-eval (marionette-eval
'(begin '(begin
(use-modules (gnu services herd) (use-modules (gnu services herd)
(ice-9 match)
(rnrs base) (rnrs base)
(srfi srfi-1)) (srfi srfi-1))