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))
39 (while (re-search-forward "%\\([0-9A-F][0-9A-F]\\)" nil t)
40 (replace-match (string (string-to-number (match-string 1) 16))
44 (ert-deftest rendering ()
45 (skip-unless (fboundp 'libxml-parse-html-region))
46 (dolist (file (directory-files "data/shr" nil "\\.html\\'"))
47 (let* ((name (replace-regexp-in-string "\\.html\\'" "" file))
48 (result (shr-test name)))
49 (unless (equal (car result) (cdr result))
50 (should (not (list name (car result) (cdr result))))))))
54 ;;; shr-stream-tests.el ends here