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

* testing/lisp/test-ol.el (test-org-link/store-link): Do not expect duplicating raw link in the file link description.
emacs-straight · Sep 13, 2022 · 86c4635 · 86c4635
1 parent f8d740f
commit 86c4635
Showing 1 changed file with 4 additions and 4 deletions.
diff --git 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