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>

1 files changed, 0 insertions, 391 deletions

diff --git a/tests/services/telephony.scm b/tests/services/telephony.scm
index b4a0f120d4..52c2a63cd6 100644
--- a/tests/services/telephony.scm
+++ b/tests/services/telephony.scm
@@ -25,400 +25,9 @@
 
 (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
   (@@ (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
                              (archive "/tmp/dummy.gz")))