summaryrefslogtreecommitdiff
path: root/test
diff options
context:
space:
mode:
authorChong Yidong <cyd@gnu.org>2012-07-01 19:05:17 +0800
committerChong Yidong <cyd@gnu.org>2012-07-01 19:05:17 +0800
commit6fe566a75256cd943ad89243021e4e9c041807e2 (patch)
tree62fc8a3b28e134328c0034e797f335ae4e036d27 /test
parent7c603e3ed3f137d906506d2f8abeb39d39adb285 (diff)
downloademacs-6fe566a75256cd943ad89243021e4e9c041807e2.tar.gz
* xml.el (xml-parse-dtd): Use proper regexps for ELEMENT declarations.
* test/automated/xml-parse-tests.el: Update testcase. Fixes: debbugs:7172
Diffstat (limited to 'test')
-rw-r--r--test/automated/xml-parse-tests.el5
1 files changed, 4 insertions, 1 deletions
diff --git a/test/automated/xml-parse-tests.el b/test/automated/xml-parse-tests.el
index 8e8ef291bdc..8322a8c6ff9 100644
--- a/test/automated/xml-parse-tests.el
+++ b/test/automated/xml-parse-tests.el
@@ -38,7 +38,10 @@
((foo ((a . "b")) (bar nil "AbC;"))))
;; Tricky parameter entity substitution (like XML spec Appendix D)
("<?xml version='1.0'?><!DOCTYPE foo [ <!ENTITY % xx '&#37;zz;'><!ENTITY % zz '&#60;!ENTITY ent \"b\" >' > %xx; ]><foo>A&ent;C</foo>" .
- ((foo nil "AbC"))))
+ ((foo nil "AbC")))
+ ;; Bug#7172
+ ("<?xml version=\"1.0\"?><!DOCTYPE foo [ <!ELEMENT EXAM_PLE EMPTY> ]><foo></foo>" .
+ ((foo nil))))
"Alist of XML strings and their expected parse trees.")
(ert-deftest xml-parse-tests ()