mirrors
/
org-mode
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git
0
0
Fork 1
Code Releases Activity

test-org-link/store-link: Update tests for 4fc2c8dd8 

* testing/lisp/test-ol.el (test-org-link/store-link): Do not expect
duplicating raw link in the file link description.
This commit is contained in:
Ihor Radchenko 2022-09-13 22:11:05 +08:00
parent f8d740f707
commit 86c4635dba
No known key found for this signature in database
GPG Key ID: 6470762A7DA11D8B
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
testing/lisp/test-ol.el
View File

@ -231,7 +231,7 @@ See https://github.com/yantar92/org/issues/4."
(org-context-in-file-links nil))
(org-test-with-temp-text-in-file "* h1"
(let ((file (buffer-file-name)))
(equal (format "[[file:%s][file:%s]]" file file)
(equal (format "[[file:%s]]" file file)
(org-store-link nil))))))
;; C-u prefix reverses `org-context-in-file-links' in Org buffer.
(should
@ -250,7 +250,7 @@ See https://github.com/yantar92/org/issues/4."
(org-context-in-file-links nil))
(org-test-with-temp-text-in-file "* h1"
(let ((file (buffer-file-name)))
(equal (format "[[file:%s][file:%s]]" file file)
(equal (format "[[file:%s]]" file file)
(org-store-link '(16)))))))
;; Store file link to non-Org buffer, with context.
(should
@ -268,7 +268,7 @@ See https://github.com/yantar92/org/issues/4."
(org-test-with-temp-text-in-file "one\n<point>two"
(fundamental-mode)
(let ((file (buffer-file-name)))
(equal (format "[[file:%s][file:%s]]" file file)
(equal (format "[[file:%s]]" file file)
(org-store-link nil))))))
;; C-u prefix reverses `org-context-in-file-links' in non-Org
;; buffer.
@ -288,7 +288,7 @@ See https://github.com/yantar92/org/issues/4."
(org-test-with-temp-text-in-file "one\n<point>two"
(fundamental-mode)
(let ((file (buffer-file-name)))
(equal (format "[[file:%s][file:%s]]" file file)
(equal (format "[[file:%s]]" file file)
(org-store-link '(16)))))))
;; Context does not include special search syntax.
(should