From f1bb17549ba9dadd3160b48017df9cdd81e52a11 Mon Sep 17 00:00:00 2001 From: Nicolas Goaziou Date: Tue, 18 Dec 2012 22:16:01 +0100 Subject: [PATCH] org-element: Add tests * testing/lisp/test-org-element.el: Add tests. --- testing/lisp/test-org-element.el | 20 +++++++++++++++++++- 1 file changed, 19 insertions(+), 1 deletion(-) diff --git a/testing/lisp/test-org-element.el b/testing/lisp/test-org-element.el index c1dd34951..2f6988c05 100644 --- a/testing/lisp/test-org-element.el +++ b/testing/lisp/test-org-element.el @@ -1260,7 +1260,25 @@ e^{i\\pi}+1=0 ;; 4. Angular link. (should (org-test-with-temp-text "A link: " - (org-element-map (org-element-parse-buffer) 'link 'identity nil t)))) + (org-element-map (org-element-parse-buffer) 'link 'identity nil t))) + ;; Link abbreviation. + (should + (equal "http" + (org-test-with-temp-text + "#+LINK: orgmode http://www.orgmode.org/\n[[orgmode:#docs]]" + (progn (org-mode-restart) + (goto-char (point-max)) + (org-element-property :type (org-element-context)))))) + ;; Link abbreviation in a secondary string. + (should + (equal "http" + (org-test-with-temp-text + "#+LINK: orgmode http://www.orgmode.org/\n* H [[orgmode:#docs]]" + (progn (org-mode-restart) + (org-element-map + (org-element-parse-buffer) 'link + (lambda (link) (org-element-property :type link)) + nil t nil t)))))) ;;;; Macro