diff options
| author | David Engster <deng@randomsample.de> | 2017-01-24 22:47:53 +0100 |
|---|---|---|
| committer | David Engster <deng@randomsample.de> | 2017-01-24 22:56:05 +0100 |
| commit | aea6701839357eb139e29056274996c70f42b860 (patch) | |
| tree | a8c19dae97567fce72d8712b58892a7376016769 /test/lisp/xml-tests.el | |
| parent | 267c98ae4849e87bcee49ebbb7adcf211c60cd47 (diff) | |
| download | emacs-aea6701839357eb139e29056274996c70f42b860.tar.gz emacs-aea6701839357eb139e29056274996c70f42b860.tar.bz2 emacs-aea6701839357eb139e29056274996c70f42b860.zip | |
xml: Fix parsing of default namespace with quoted names
* lisp/xml.el (xml-parse-attlist): Properly extract namespace when
parsing is done with quoted symbol names (bug#23440).
* test/lisp/xml-tests.el (xml-parse-test--default-namespace-qnames)
(xml-parse-test-default-namespace-qnames): Test for the above.
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 0f2182a6a75..d0da2094db7 100644 --- a/test/lisp/xml-tests.el +++ b/test/lisp/xml-tests.el @@ -134,6 +134,21 @@ Parser is called with and without 'symbol-qnames argument.") (append xml-default-ns '(("F" . "FOOBAR:")))))))))) +;; Test bug #23440 (proper expansion of default namespace) +; Test data for default namespace +(defvar xml-parse-test--default-namespace-qnames + (cons "<something xmlns=\"myns:\"><whatever></whatever></something>" + '((myns:something + ((("http://www.w3.org/2000/xmlns/" . "") + . "myns:")) + (myns:whatever nil))))) + +(ert-deftest xml-parse-test-default-namespace-qnames () + (with-temp-buffer + (insert (car xml-parse-test--default-namespace-qnames)) + (should (equal (cdr xml-parse-test--default-namespace-qnames) + (xml-parse-region nil nil nil nil 'symbol-qnames))))) + ;; Local Variables: ;; no-byte-compile: t ;; End: |