diff options
Diffstat (limited to 'test/lisp/xml-tests.el')
| -rw-r--r-- | test/lisp/xml-tests.el | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/test/lisp/xml-tests.el b/test/lisp/xml-tests.el index d0da2094db7..16945b0f92d 100644 --- a/test/lisp/xml-tests.el +++ b/test/lisp/xml-tests.el @@ -149,6 +149,21 @@ Parser is called with and without 'symbol-qnames argument.") (should (equal (cdr xml-parse-test--default-namespace-qnames) (xml-parse-region nil nil nil nil 'symbol-qnames))))) +;; Test bug #26533 (proper expansion in prefixed attributes with 'symbol-qnames) +(defvar xml-parse-test--namespace-attribute-qnames + (cons "<something xmlns:a=\"myns:\"><whatever a:b='c'></whatever></something>" + '((something + ((("http://www.w3.org/2000/xmlns/" . "a") + . "myns:")) + (whatever + ((myns:b . "c"))))))) + +(ert-deftest xml-parse-namespace-attribute-qnames () + (with-temp-buffer + (insert (car xml-parse-test--namespace-attribute-qnames)) + (should (equal (cdr xml-parse-test--namespace-attribute-qnames) + (xml-parse-region nil nil nil nil 'symbol-qnames))))) + ;; Local Variables: ;; no-byte-compile: t ;; End: |