[elpa] externals/org 86c4635dba 3/3: test-org-link/store-link: Update tests for 4fc2c8dd8

[ELPA Syncer]

branch: externals/org
commit 86c4635dba556da01c18f6896aa09bf05d67802b
Author: Ihor Radchenko <yantar92@gmail.com>
Commit: Ihor Radchenko <yantar92@gmail.com>

    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.
---
 testing/lisp/test-ol.el | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/testing/lisp/test-ol.el b/testing/lisp/test-ol.el
index 6802f03338..e1cdc8e405 100644
--- a/testing/lisp/test-ol.el
+++ b/testing/lisp/test-ol.el
@@ -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