diff options
Diffstat (limited to 'tests/skip-tag-forward.el')
| -rw-r--r-- | tests/skip-tag-forward.el | 23 |
1 files changed, 23 insertions, 0 deletions
diff --git a/tests/skip-tag-forward.el b/tests/skip-tag-forward.el new file mode 100644 index 0000000..2e7bf44 --- /dev/null +++ b/tests/skip-tag-forward.el @@ -0,0 +1,23 @@ +;; Tests for jabber-xml-skip-tag-forward + +(require 'jabber-xml) +(require 'cl) + +(flet ((parses-p + (text) + (with-temp-buffer + (insert text) + (goto-char (point-min)) + (catch 'unfinished + (jabber-xml-skip-tag-forward) + (= (point) (point-max)))))) + + ;; 1. Just plain XML + (unless (parses-p "<stream:features><starttls xmlns='urn:ietf:params:xml:ns:xmpp-tls'/><mechanisms xmlns='urn:ietf:params:xml:ns:xmpp-sasl'><mechanism>ANONYMOUS</mechanism><mechanism>DIGEST-MD5</mechanism><mechanism>PLAIN</mechanism></mechanisms><register xmlns='http://jabber.org/features/iq-register'/></stream:features>") + (error "Testcase 1 failed")) + + ;; 2. XML with CDATA + (unless (parses-p "<message><body><![CDATA[<foo & bar>]]></body></message>") + (error "Testcase 2 failed"))) + +;; arch-tag: a99d8666-0e6b-11dd-bd33-000a95c2fcd0 |