1234567891011121314151617181920212223242526272829303132 |
- (unless (featurep 'org-html)
- (signal 'missing-test-dependency "Support for Org-html"))
- (defmacro org-test-html/export-link (name link expected &optional desc opt-plist)
- `(ert-deftest ,(intern (concat "test-org-html/export-link/" name)) ()
- ,(or desc name)
- (should
- (string=
- (org-test-strip-text-props
- (org-html-handle-links ,link ,opt-plist))
- ,expected))))
- (org-test-html/export-link "mailto" "[[mailto:john@example.tld]]"
- "<a href=\"mailto:john@example.tld\">mailto:john@example.tld</a>"
- "mailto: link without description")
- (provide 'test-org-html)
|