1 ;;; network-stream-tests.el --- tests for network processes -*- lexical-binding: t; -*-
3 ;; Copyright (C) 2016 Free Software Foundation, Inc.
5 ;; Author: Lars Ingebrigtsen <larsi@gnus.org>
7 ;; This file is part of GNU Emacs.
9 ;; GNU Emacs is free software: you can redistribute it and/or modify
10 ;; it under the terms of the GNU General Public License as published by
11 ;; the Free Software Foundation, either version 3 of the License, or
12 ;; (at your option) any later version.
14 ;; GNU Emacs is distributed in the hope that it will be useful,
15 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
16 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
17 ;; GNU General Public License for more details.
19 ;; You should have received a copy of the GNU General Public License
20 ;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
28 (defun shr-test (name)
30 (insert-file-contents (format "data/shr/%s.html" name
))
31 (let ((dom (libxml-parse-html-region (point-min) (point-max)))
35 (shr-insert-document dom
)
36 (cons (buffer-substring-no-properties (point-min) (point-max))
38 (insert-file-contents (format "data/shr/%s.txt" name
))
41 (ert-deftest rendering
()
42 (skip-unless (fboundp 'libxml-parse-html-region
))
43 (dolist (file (directory-files "data/shr" nil
"\\.html\\'"))
44 (let* ((name (replace-regexp-in-string "\\.html\\'" "" file
))
45 (result (shr-test name
)))
46 (unless (equal (car result
) (cdr result
))
47 (should (not (list name
(car result
) (cdr result
))))))))
51 ;;; shr-stream-tests.el ends here