;; per worked example at https://www.developershome.com/sms/cmgsCommand4.asp
(assert (= (message->pdu "85291234567" "It is easy to send text messages.") "01000B915892214365F7000021493A283D0795C3F33C88FE06CDCB6E32885EC6D341EDF27C1E3E97E72E"))
(test= (message->pdu "85291234567" "It is easy to send text messages.") "01000B915892214365F7000021493A283D0795C3F33C88FE06CDCB6E32885EC6D341EDF27C1E3E97E72E")
(fn command [fd s]
@ -160,6 +169,4 @@
(tx "\026\r\n")
(expect "OK")))))
;(send-sms "447000123456" "It is never {easy} to [send] text messages.")