tests: telephony: Remove obsolete parsing tests.
Fixes <https://issues.guix.gnu.org/56343>. * tests/services/telephony.scm (parse-dbus-reply, parse-account-ids) (parse-account-details, parse-contacts, getAccountList-reply): Delete procedures. ("parse-account-ids"): Delete test. (getAccountDetails-reply): Delete procedure. ("parse-account-details; username, alias and display name"): Delete test. (getContacts-reply): Delete procedure. ("parse-account-contacts"): Delete test. (getContacts-empty-reply): Delete procedure. ("parse-account-contacts, empty array"): Delete test. Reported-by: Ludovic Courtès <ludo@gnu.org>
This commit is contained in:
Maxim Cournoyer
parent
ba86c7604d
commit
258bc4c4e6
1 changed files with 0 additions and 391 deletions
|
|
@ -25,400 +25,9 @@
|
||||||
|
|
||||||
(test-begin "jami-service")
|
(test-begin "jami-service")
|
||||||
|
|
||||||
(define parse-dbus-reply
|
|
||||||
(@@ (gnu build jami-service) parse-dbus-reply))
|
|
||||||
|
|
||||||
(define parse-account-ids
|
|
||||||
(@@ (gnu build jami-service) parse-account-ids))
|
|
||||||
|
|
||||||
(define parse-account-details
|
|
||||||
(@@ (gnu build jami-service) parse-account-details))
|
|
||||||
|
|
||||||
(define parse-contacts
|
|
||||||
(@@ (gnu build jami-service) parse-contacts))
|
|
||||||
|
|
||||||
(define jami-account->alist
|
(define jami-account->alist
|
||||||
(@@ (gnu services telephony) jami-account->alist))
|
(@@ (gnu services telephony) jami-account->alist))
|
||||||
|
|
||||||
;; $ dbus-send --print-reply --dest="cx.ring.Ring" \
|
|
||||||
;; "/cx/ring/Ring/ConfigurationManager" \
|
|
||||||
;; "cx.ring.Ring.ConfigurationManager.getAccountList"
|
|
||||||
(define getAccountList-reply "\
|
|
||||||
method return time=1622217253.386711 sender=:1.7 -> destination=:1.14 serial=140 reply_serial=2
|
|
||||||
array [
|
|
||||||
string \"addf37fbb558d6a0\"
|
|
||||||
string \"d5cbeb7d08c98a65\"
|
|
||||||
string \"398af0c6b74ce101\"
|
|
||||||
]
|
|
||||||
")
|
|
||||||
|
|
||||||
(test-equal "parse-account-ids"
|
|
||||||
'("addf37fbb558d6a0" "d5cbeb7d08c98a65" "398af0c6b74ce101")
|
|
||||||
(parse-account-ids getAccountList-reply))
|
|
||||||
|
|
||||||
;; $ dbus-send --print-reply --dest="cx.ring.Ring" \
|
|
||||||
;; "/cx/ring/Ring/ConfigurationManager" \
|
|
||||||
;; "cx.ring.Ring.ConfigurationManager.getAccountDetails" \
|
|
||||||
;; 'string:398af0c6b74ce101'
|
|
||||||
(define getAccountDetails-reply "\
|
|
||||||
method return time=1622254991.789588 sender=:1.7 -> destination=:1.19 serial=145 reply_serial=2
|
|
||||||
array [
|
|
||||||
dict entry(
|
|
||||||
string \"Account.accountDiscovery\"
|
|
||||||
string \"false\"
|
|
||||||
)
|
|
||||||
dict entry(
|
|
||||||
string \"Account.accountPublish\"
|
|
||||||
string \"false\"
|
|
||||||
)
|
|
||||||
dict entry(
|
|
||||||
string \"Account.activeCallLimit\"
|
|
||||||
string \"-1\"
|
|
||||||
)
|
|
||||||
dict entry(
|
|
||||||
string \"Account.alias\"
|
|
||||||
string \"some-rendezvous-point-name\"
|
|
||||||
)
|
|
||||||
dict entry(
|
|
||||||
string \"Account.allModeratorEnabled\"
|
|
||||||
string \"true\"
|
|
||||||
)
|
|
||||||
dict entry(
|
|
||||||
string \"Account.allowCertFromContact\"
|
|
||||||
string \"true\"
|
|
||||||
)
|
|
||||||
dict entry(
|
|
||||||
string \"Account.allowCertFromHistory\"
|
|
||||||
string \"true\"
|
|
||||||
)
|
|
||||||
dict entry(
|
|
||||||
string \"Account.allowCertFromTrusted\"
|
|
||||||
string \"true\"
|
|
||||||
)
|
|
||||||
dict entry(
|
|
||||||
string \"Account.archiveHasPassword\"
|
|
||||||
string \"false\"
|
|
||||||
)
|
|
||||||
dict entry(
|
|
||||||
string \"Account.audioPortMax\"
|
|
||||||
string \"32766\"
|
|
||||||
)
|
|
||||||
dict entry(
|
|
||||||
string \"Account.audioPortMin\"
|
|
||||||
string \"16384\"
|
|
||||||
)
|
|
||||||
dict entry(
|
|
||||||
string \"Account.autoAnswer\"
|
|
||||||
string \"false\"
|
|
||||||
)
|
|
||||||
dict entry(
|
|
||||||
string \"Account.defaultModerators\"
|
|
||||||
string \"\"
|
|
||||||
)
|
|
||||||
dict entry(
|
|
||||||
string \"Account.deviceID\"
|
|
||||||
string \"94b4070fc7a8afa8482c777a9822c52e6af2e1bd\"
|
|
||||||
)
|
|
||||||
dict entry(
|
|
||||||
string \"Account.deviceName\"
|
|
||||||
string \"some-device\"
|
|
||||||
)
|
|
||||||
dict entry(
|
|
||||||
string \"Account.dhtProxyListUrl\"
|
|
||||||
string \"https://config.jami.net/proxyList\"
|
|
||||||
)
|
|
||||||
dict entry(
|
|
||||||
string \"Account.displayName\"
|
|
||||||
string \"some-rendezvous-point-name\"
|
|
||||||
)
|
|
||||||
dict entry(
|
|
||||||
string \"Account.dtmfType\"
|
|
||||||
string \"overrtp\"
|
|
||||||
)
|
|
||||||
dict entry(
|
|
||||||
string \"Account.enable\"
|
|
||||||
string \"true\"
|
|
||||||
)
|
|
||||||
dict entry(
|
|
||||||
string \"Account.hasCustomUserAgent\"
|
|
||||||
string \"false\"
|
|
||||||
)
|
|
||||||
dict entry(
|
|
||||||
string \"Account.hostname\"
|
|
||||||
string \"bootstrap.jami.net\"
|
|
||||||
)
|
|
||||||
dict entry(
|
|
||||||
string \"Account.localInterface\"
|
|
||||||
string \"default\"
|
|
||||||
)
|
|
||||||
dict entry(
|
|
||||||
string \"Account.localModeratorsEnabled\"
|
|
||||||
string \"true\"
|
|
||||||
)
|
|
||||||
dict entry(
|
|
||||||
string \"Account.mailbox\"
|
|
||||||
string \"\"
|
|
||||||
)
|
|
||||||
dict entry(
|
|
||||||
string \"Account.managerUri\"
|
|
||||||
string \"\"
|
|
||||||
)
|
|
||||||
dict entry(
|
|
||||||
string \"Account.managerUsername\"
|
|
||||||
string \"\"
|
|
||||||
)
|
|
||||||
dict entry(
|
|
||||||
string \"Account.peerDiscovery\"
|
|
||||||
string \"false\"
|
|
||||||
)
|
|
||||||
dict entry(
|
|
||||||
string \"Account.presenceSubscribeSupported\"
|
|
||||||
string \"true\"
|
|
||||||
)
|
|
||||||
dict entry(
|
|
||||||
string \"Account.proxyEnabled\"
|
|
||||||
string \"false\"
|
|
||||||
)
|
|
||||||
dict entry(
|
|
||||||
string \"Account.proxyPushToken\"
|
|
||||||
string \"\"
|
|
||||||
)
|
|
||||||
dict entry(
|
|
||||||
string \"Account.proxyServer\"
|
|
||||||
string \"dhtproxy.jami.net:[80-95]\"
|
|
||||||
)
|
|
||||||
dict entry(
|
|
||||||
string \"Account.publishedAddress\"
|
|
||||||
string \"\"
|
|
||||||
)
|
|
||||||
dict entry(
|
|
||||||
string \"Account.publishedPort\"
|
|
||||||
string \"5060\"
|
|
||||||
)
|
|
||||||
dict entry(
|
|
||||||
string \"Account.publishedSameAsLocal\"
|
|
||||||
string \"true\"
|
|
||||||
)
|
|
||||||
dict entry(
|
|
||||||
string \"Account.rendezVous\"
|
|
||||||
string \"true\"
|
|
||||||
)
|
|
||||||
dict entry(
|
|
||||||
string \"Account.ringtoneEnabled\"
|
|
||||||
string \"true\"
|
|
||||||
)
|
|
||||||
dict entry(
|
|
||||||
string \"Account.ringtonePath\"
|
|
||||||
string \"/usr/share/ring/ringtones/default.opus\"
|
|
||||||
)
|
|
||||||
dict entry(
|
|
||||||
string \"Account.type\"
|
|
||||||
string \"RING\"
|
|
||||||
)
|
|
||||||
dict entry(
|
|
||||||
string \"Account.upnpEnabled\"
|
|
||||||
string \"true\"
|
|
||||||
)
|
|
||||||
dict entry(
|
|
||||||
string \"Account.useragent\"
|
|
||||||
string \"\"
|
|
||||||
)
|
|
||||||
dict entry(
|
|
||||||
string \"Account.username\"
|
|
||||||
string \"ccb8bbe2382343f7feb140710ab48aaf1b55634e\"
|
|
||||||
)
|
|
||||||
dict entry(
|
|
||||||
string \"Account.videoEnabled\"
|
|
||||||
string \"true\"
|
|
||||||
)
|
|
||||||
dict entry(
|
|
||||||
string \"Account.videoPortMax\"
|
|
||||||
string \"65534\"
|
|
||||||
)
|
|
||||||
dict entry(
|
|
||||||
string \"Account.videoPortMin\"
|
|
||||||
string \"49152\"
|
|
||||||
)
|
|
||||||
dict entry(
|
|
||||||
string \"DHT.PublicInCalls\"
|
|
||||||
string \"true\"
|
|
||||||
)
|
|
||||||
dict entry(
|
|
||||||
string \"DHT.port\"
|
|
||||||
string \"7766\"
|
|
||||||
)
|
|
||||||
dict entry(
|
|
||||||
string \"RingNS.account\"
|
|
||||||
string \"3989b55313a911b6f0c004748b49b254f35c9ef6\"
|
|
||||||
)
|
|
||||||
dict entry(
|
|
||||||
string \"RingNS.uri\"
|
|
||||||
string \"\"
|
|
||||||
)
|
|
||||||
dict entry(
|
|
||||||
string \"SRTP.enable\"
|
|
||||||
string \"true\"
|
|
||||||
)
|
|
||||||
dict entry(
|
|
||||||
string \"SRTP.keyExchange\"
|
|
||||||
string \"sdes\"
|
|
||||||
)
|
|
||||||
dict entry(
|
|
||||||
string \"SRTP.rtpFallback\"
|
|
||||||
string \"false\"
|
|
||||||
)
|
|
||||||
dict entry(
|
|
||||||
string \"STUN.enable\"
|
|
||||||
string \"false\"
|
|
||||||
)
|
|
||||||
dict entry(
|
|
||||||
string \"STUN.server\"
|
|
||||||
string \"\"
|
|
||||||
)
|
|
||||||
dict entry(
|
|
||||||
string \"TLS.certificateFile\"
|
|
||||||
string \"/var/lib/jami/.local/share/jami/398af0c6b74ce101/ring_device.crt\"
|
|
||||||
)
|
|
||||||
dict entry(
|
|
||||||
string \"TLS.certificateListFile\"
|
|
||||||
string \"\"
|
|
||||||
)
|
|
||||||
dict entry(
|
|
||||||
string \"TLS.ciphers\"
|
|
||||||
string \"\"
|
|
||||||
)
|
|
||||||
dict entry(
|
|
||||||
string \"TLS.method\"
|
|
||||||
string \"Automatic\"
|
|
||||||
)
|
|
||||||
dict entry(
|
|
||||||
string \"TLS.negotiationTimeoutSec\"
|
|
||||||
string \"-1\"
|
|
||||||
)
|
|
||||||
dict entry(
|
|
||||||
string \"TLS.password\"
|
|
||||||
string \"\"
|
|
||||||
)
|
|
||||||
dict entry(
|
|
||||||
string \"TLS.privateKeyFile\"
|
|
||||||
string \"/var/lib/jami/.local/share/jami/398af0c6b74ce101/ring_device.key\"
|
|
||||||
)
|
|
||||||
dict entry(
|
|
||||||
string \"TLS.requireClientCertificate\"
|
|
||||||
string \"true\"
|
|
||||||
)
|
|
||||||
dict entry(
|
|
||||||
string \"TLS.serverName\"
|
|
||||||
string \"\"
|
|
||||||
)
|
|
||||||
dict entry(
|
|
||||||
string \"TLS.verifyClient\"
|
|
||||||
string \"true\"
|
|
||||||
)
|
|
||||||
dict entry(
|
|
||||||
string \"TLS.verifyServer\"
|
|
||||||
string \"true\"
|
|
||||||
)
|
|
||||||
dict entry(
|
|
||||||
string \"TURN.enable\"
|
|
||||||
string \"true\"
|
|
||||||
)
|
|
||||||
dict entry(
|
|
||||||
string \"TURN.password\"
|
|
||||||
string \"ring\"
|
|
||||||
)
|
|
||||||
dict entry(
|
|
||||||
string \"TURN.realm\"
|
|
||||||
string \"ring\"
|
|
||||||
)
|
|
||||||
dict entry(
|
|
||||||
string \"TURN.server\"
|
|
||||||
string \"turn.jami.net\"
|
|
||||||
)
|
|
||||||
dict entry(
|
|
||||||
string \"TURN.username\"
|
|
||||||
string \"ring\"
|
|
||||||
)
|
|
||||||
]
|
|
||||||
")
|
|
||||||
|
|
||||||
(test-equal "parse-account-details; username, alias and display name"
|
|
||||||
'("ccb8bbe2382343f7feb140710ab48aaf1b55634e" ;username
|
|
||||||
"some-rendezvous-point-name" ;alias
|
|
||||||
"some-rendezvous-point-name") ;displayName
|
|
||||||
(let ((account-details (parse-account-details getAccountDetails-reply)))
|
|
||||||
(list (assoc-ref account-details "Account.username")
|
|
||||||
(assoc-ref account-details "Account.alias")
|
|
||||||
(assoc-ref account-details "Account.displayName"))))
|
|
||||||
|
|
||||||
(define getContacts-reply "\
|
|
||||||
method return time=1627014042.752673 sender=:1.113 -> destination=:1.186 serial=220 reply_serial=2
|
|
||||||
array [
|
|
||||||
array [
|
|
||||||
dict entry(
|
|
||||||
string \"added\"
|
|
||||||
string \"1578883327\"
|
|
||||||
)
|
|
||||||
dict entry(
|
|
||||||
string \"confirmed\"
|
|
||||||
string \"true\"
|
|
||||||
)
|
|
||||||
dict entry(
|
|
||||||
string \"id\"
|
|
||||||
string \"1c7d5a09464223442549fef172a3cf6f4de9b01c\"
|
|
||||||
)
|
|
||||||
]
|
|
||||||
array [
|
|
||||||
dict entry(
|
|
||||||
string \"added\"
|
|
||||||
string \"1623107941\"
|
|
||||||
)
|
|
||||||
dict entry(
|
|
||||||
string \"confirmed\"
|
|
||||||
string \"true\"
|
|
||||||
)
|
|
||||||
dict entry(
|
|
||||||
string \"id\"
|
|
||||||
string \"5903c6c9ac5cb863c64e559add3d5d1c8c563449\"
|
|
||||||
)
|
|
||||||
]
|
|
||||||
array [
|
|
||||||
dict entry(
|
|
||||||
string \"added\"
|
|
||||||
string \"1595996256\"
|
|
||||||
)
|
|
||||||
dict entry(
|
|
||||||
string \"confirmed\"
|
|
||||||
string \"true\"
|
|
||||||
)
|
|
||||||
dict entry(
|
|
||||||
string \"id\"
|
|
||||||
string \"ff2d72a548693214fb3a0f0f7a943b5e2bb9be03\"
|
|
||||||
)
|
|
||||||
]
|
|
||||||
]")
|
|
||||||
|
|
||||||
(test-equal "parse-account-contacts"
|
|
||||||
'((("added" . "1578883327")
|
|
||||||
("confirmed" . "true")
|
|
||||||
("id" . "1c7d5a09464223442549fef172a3cf6f4de9b01c"))
|
|
||||||
(("added" . "1623107941")
|
|
||||||
("confirmed" . "true")
|
|
||||||
("id" . "5903c6c9ac5cb863c64e559add3d5d1c8c563449"))
|
|
||||||
(("added" . "1595996256")
|
|
||||||
("confirmed" . "true")
|
|
||||||
("id" . "ff2d72a548693214fb3a0f0f7a943b5e2bb9be03")))
|
|
||||||
(parse-contacts getContacts-reply))
|
|
||||||
|
|
||||||
(define getContacts-empty-reply "\
|
|
||||||
method return time=1627400787.873988 sender=:1.1197 -> destination=:1.1463 serial=2127 reply_serial=2
|
|
||||||
array [
|
|
||||||
]")
|
|
||||||
|
|
||||||
(test-equal "parse-account-contacts, empty array"
|
|
||||||
'()
|
|
||||||
(parse-contacts getContacts-empty-reply))
|
|
||||||
|
|
||||||
(define %dummy-jami-account (jami-account
|
(define %dummy-jami-account (jami-account
|
||||||
(archive "/tmp/dummy.gz")))
|
(archive "/tmp/dummy.gz")))
|
||||||
|
|
||||||
|
|
|
||||||
Reference in a new issue