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 ;;; Code:
  14 (unless (featurep 'org-html)
  15   (signal 'missing-test-dependency "Support for Org-html"))
  16
  17 (defmacro org-test-html/export-link (name link expected &optional desc opt-plist)
  18   `(ert-deftest ,(intern (concat "test-org-html/export-link/" name)) ()
  19      ,(or desc name)
  20      (should
  21       (string=
  22        (org-test-strip-text-props
  23         (org-html-handle-links ,link ,opt-plist))
  24        ,expected))))
  25
  26 (org-test-html/export-link "mailto" "[[mailto:john@example.tld]]"
  27                            "<a href=\"mailto:john@example.tld\">mailto:john@example.tld</a>"
  28                            "mailto: link without description")
  29
  30 (provide 'test-org-html)
  31
  32 ;;; test-org-html.el ends here