From 55e46fc2601b442c3342cb32387f60ff93a5feb2 Mon Sep 17 00:00:00 2001 From: Nicolas Goaziou Date: Sat, 19 Apr 2014 21:28:34 +0200 Subject: [PATCH] test-org-element: Add tests for links * testing/lisp/test-org-element.el (test-org-element/link-parser): add tests. --- testing/lisp/test-org-element.el | 19 +++++++++++++++++++ 1 file changed, 19 insertions(+) diff --git a/testing/lisp/test-org-element.el b/testing/lisp/test-org-element.el index 7b7eda3a6..d3a5428f4 100644 --- a/testing/lisp/test-org-element.el +++ b/testing/lisp/test-org-element.el @@ -1428,6 +1428,25 @@ e^{i\\pi}+1=0 (lambda (l) (list (org-element-property :type l) (org-element-property :path l) (org-element-property :application l))))))) + ;; ... `:path' in a file-type link must be compatible with "file" + ;; scheme in URI syntax, even if Org syntax isn't. + (should + (org-test-with-temp-text-in-file "" + (let ((file (expand-file-name (buffer-file-name)))) + (insert (format "[[file://%s]]" file)) + (equal (org-element-property :path (org-element-context)) + (concat "//" file))))) + (should + (org-test-with-temp-text-in-file "" + (let ((file (expand-file-name (buffer-file-name)))) + (insert (format "[[file:%s]]" file)) + (equal (org-element-property :path (org-element-context)) + (concat "//" file))))) + (should + (org-test-with-temp-text-in-file "" + (let ((file (file-relative-name (buffer-file-name)))) + (insert (format "[[file:%s]]" file)) + (list (org-element-property :path (org-element-context)) file)))) ;; Plain link. (should (org-test-with-temp-text "A link: http://orgmode.org"