diff options
| author | Stefan Kangas <stefankangas@gmail.com> | 2020-09-26 11:27:48 +0200 |
|---|---|---|
| committer | Stefan Kangas <stefankangas@gmail.com> | 2020-09-26 11:48:09 +0200 |
| commit | 2dff3ea073c4118d79308178dcb3bd7bb1bb8237 (patch) | |
| tree | d3b46b7ddbb9d0f03f0a882471779fcf2a8de301 /test/src | |
| parent | a3a845b0e00bbdd1bcf05882560bca15e57488cc (diff) | |
| download | emacs-2dff3ea073c4118d79308178dcb3bd7bb1bb8237.tar.gz | |
Repurpose libxml test for obsolete argument
* test/src/xml-tests.el (libxml-tests): Move half this test for the
recently obsoleted fourth argument to libxml-parse-xml-region...
* test/lisp/xml-tests.el (xml-tests--remove-comments): ...to a new
test here for xml-remove-comments.
* test/src/xml-tests.el (libxml-tests--data-comments-discarded):
Move test data from here...
* test/lisp/xml-tests.el (xml-tests--data-with-comments): ...to here.
Diffstat (limited to 'test/src')
| -rw-r--r-- | test/src/xml-tests.el | 21 |
1 files changed, 1 insertions, 20 deletions
diff --git a/test/src/xml-tests.el b/test/src/xml-tests.el index d758c8868cf..800f400b3ca 100644 --- a/test/src/xml-tests.el +++ b/test/src/xml-tests.el @@ -42,20 +42,6 @@ (comment nil "comment-b") (comment nil "comment-c")))) "Alist of XML strings and their expected parse trees for preserved comments.") -(defvar libxml-tests--data-comments-discarded - `(;; simple case - ("<?xml version=\"1.0\"?><foo baz=\"true\">bar</foo>" - . (foo ((baz . "true")) "bar")) - ;; toplevel comments -- first document child must not get lost - (,(concat "<?xml version=\"1.0\"?><foo>bar</foo><!--comment-1-->" - "<!--comment-2-->") - . (foo nil "bar")) - (,(concat "<?xml version=\"1.0\"?><!--comment-a--><foo a=\"b\">" - "<bar>blub</bar></foo><!--comment-b--><!--comment-c-->") - . (foo ((a . "b")) (bar nil "blub")))) - "Alist of XML strings and their expected parse trees for discarded comments.") - - (ert-deftest libxml-tests () "Test libxml." (when (fboundp 'libxml-parse-xml-region) @@ -64,11 +50,6 @@ (erase-buffer) (insert (car test)) (should (equal (cdr test) - (libxml-parse-xml-region (point-min) (point-max))))) - (dolist (test libxml-tests--data-comments-discarded) - (erase-buffer) - (insert (car test)) - (should (equal (cdr test) - (libxml-parse-xml-region (point-min) (point-max) nil t))))))) + (libxml-parse-xml-region (point-min) (point-max)))))))) ;;; libxml-tests.el ends here |