diff options
| -rw-r--r-- | test/lisp/dom-tests.el | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/test/lisp/dom-tests.el b/test/lisp/dom-tests.el index eecc4f39808..0681d3b337e 100644 --- a/test/lisp/dom-tests.el +++ b/test/lisp/dom-tests.el | |||
| @@ -101,13 +101,15 @@ | |||
| 101 | 101 | ||
| 102 | (ert-deftest dom-tests-text () | 102 | (ert-deftest dom-tests-text () |
| 103 | (let ((dom (dom-tests--tree))) | 103 | (let ((dom (dom-tests--tree))) |
| 104 | (should (string-empty-p (dom-text dom))) | 104 | (with-suppressed-warnings ((obsolete dom-text)) |
| 105 | (should (equal (dom-text (dom-by-tag dom "title")) "Test")))) | 105 | (should (string-empty-p (dom-text dom))) |
| 106 | (should (equal (dom-text (dom-by-tag dom "title")) "Test"))))) | ||
| 106 | 107 | ||
| 107 | (ert-deftest dom-tests-texts () | 108 | (ert-deftest dom-tests-texts () |
| 108 | (let ((dom (dom-tests--tree))) | 109 | (let ((dom (dom-tests--tree))) |
| 109 | (should (equal (dom-texts dom) "Test foo bar")) | 110 | (with-suppressed-warnings ((obsolete dom-texts)) |
| 110 | (should (equal (dom-texts dom ", ") "Test, foo, bar")))) | 111 | (should (equal (dom-texts dom) "Test foo bar")) |
| 112 | (should (equal (dom-texts dom ", ") "Test, foo, bar"))))) | ||
| 111 | 113 | ||
| 112 | (ert-deftest dom-tests-child-by-tag () | 114 | (ert-deftest dom-tests-child-by-tag () |
| 113 | (let ((dom (dom-tests--tree))) | 115 | (let ((dom (dom-tests--tree))) |