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

test-org-protocol.el: Decode "+" to " " tests 

testing/lisp/test-org-protocol.el
(test-org-protocol/org-protocol-store-link)
(test-org-protocol/org-protocol-capture): Cases to check that "+" is
decoded to space in query parameters (new style of URIs) but preserved
in path components (old style of org-protocol links).
This commit is contained in:
Max Nikulin 2021-09-27 22:02:09 +07:00 committed by Bastien
parent 09dc3fa304
commit 6300e0ebef
1 changed files with 15 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
testing/lisp/test-org-protocol.el
View File

@ -76,7 +76,15 @@
;; New link style
(let ((uri "/some/directory/org-protocol://store-link?url=URL3&title=TITLE3"))
(should (null (org-protocol-check-filename-for-protocol uri (list uri) nil)))
(should (equal (car org-stored-links) '("URL3" "TITLE3")))))
(should (equal (car org-stored-links) '("URL3" "TITLE3"))))
;; Do not decode "+" in old-style link
(let ((uri "/org-protocol:/store-link:/one+one/plus+preserved"))
(should (null (org-protocol-check-filename-for-protocol uri (list uri) nil)))
(should (equal (car org-stored-links) '("one+one" "plus+preserved"))))
;; Decode "+" to space in new-style link
(let ((uri "/org-protocol:/store-link/?url=one+two&title=plus+is+space"))
(should (null (org-protocol-check-filename-for-protocol uri (list uri) nil)))
(should (equal (car org-stored-links) '("one two" "plus is space")))))
(ert-deftest test-org-protocol/org-protocol-store-link-file ()
"store-link: `org-protocol-sanitize-uri' could distort URL."
@ -133,6 +141,12 @@
;; - query parameters, not sure how to include them in template
("/some/directory/org-protocol:/capture?template=x&url=URL&title=TITLE&body=BODY&from=example"
. "** SOMEDAY\n\nBODY\n\n[[URL][TITLE]]\n")
;; - "+" is not decoded to space in old-style URIs
("/org-protocol:/capture:/t/https%3A%2F%2Forgmode.org%2Fsome+thing/org+mode/Body+plus"
. "** TODO\n\nBody+plus\n\n[[https://orgmode.org/some+thing][org+mode]]\n")
;; - decode "+" to space
("/org-protocol:/capture?template=t&url=URL&title=Mailing+list&body=Body+no+plus"
. "** TODO\n\nBody no plus\n\n[[URL][Mailing list]]\n")
)))
;; Old link style
(mapc