testing/lisp/test-org-html.el

   1 ;;; test-org-html.el
   2
   3 ;; Copyright (c) ߛ David Maus
   4 ;; Authors: David Maus
   5
   6 ;; Released under the GNU General Public License version 3
   7 ;; see: http://www.gnu.org/licenses/gpl-3.0.html
   8
   9 ;;;; Comments:
  10
  11 ;; Template test file for Org-mode tests
  12
  13 \f
  14 ;;; Code:
  15 (let ((load-path (cons (expand-file-name
  16                         ".." (file-name-directory
  17                               (or load-file-name buffer-file-name)))
  18                        load-path)))
  19   (require 'org-test)
  20   (require 'org-test-ob-consts))
  21
  22 \f
  23 ;;; Tests
  24 (require 'org-html)
  25
  26 (defmacro org-test-html/export-link (name link expected &optional desc opt-plist)
  27   `(ert-deftest ,(intern (concat "test-org-html/export-link/" name)) ()
  28      ,(or desc name)
  29      (should
  30       (string=
  31        (org-test-strip-text-props
  32         (org-html-handle-links ,link ,opt-plist))
  33        ,expected))))
  34
  35 (org-test-html/export-link "mailto" "[[mailto:john@example.tld]]"
  36                            "<a href=\"mailto:john@example.tld\">mailto:john@example.tld</a>"
  37                            "mailto: link without description")
  38
  39 (provide 'test-org-html)
  40
  41 ;;; test-org-html.el ends here