diff options
Diffstat (limited to 'test/src/xml-tests.el')
| -rw-r--r-- | test/src/xml-tests.el | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/test/src/xml-tests.el b/test/src/xml-tests.el index 632cf965fa2..a35b4d2ccc8 100644 --- a/test/src/xml-tests.el +++ b/test/src/xml-tests.el | |||
| @@ -44,12 +44,12 @@ | |||
| 44 | 44 | ||
| 45 | (ert-deftest libxml-tests () | 45 | (ert-deftest libxml-tests () |
| 46 | "Test libxml." | 46 | "Test libxml." |
| 47 | (when (fboundp 'libxml-parse-xml-region) | 47 | (skip-unless (fboundp 'libxml-parse-xml-region)) |
| 48 | (with-temp-buffer | 48 | (with-temp-buffer |
| 49 | (dolist (test libxml-tests--data-comments-preserved) | 49 | (dolist (test libxml-tests--data-comments-preserved) |
| 50 | (erase-buffer) | 50 | (erase-buffer) |
| 51 | (insert (car test)) | 51 | (insert (car test)) |
| 52 | (should (equal (cdr test) | 52 | (should (equal (cdr test) |
| 53 | (libxml-parse-xml-region (point-min) (point-max)))))))) | 53 | (libxml-parse-xml-region (point-min) (point-max))))))) |
| 54 | 54 | ||
| 55 | ;;; libxml-tests.el ends here | 55 | ;;; libxml-tests.el ends here |