diff options
author | David Maus <dmaus@ictsoc.de> | 2010-11-29 21:04:41 +0100 |
---|---|---|
committer | David Maus <dmaus@ictsoc.de> | 2010-11-29 21:04:41 +0100 |
commit | 1b5ff1e341efbb34c275c48f99ef5b7169c1b494 (patch) | |
tree | 17c0ccd75069037b312d94f8794295a4656d170f | |
parent | c3b7eca19310cd9075a659cb680f360487f7fff3 (diff) | |
download | org-mode-1b5ff1e341efbb34c275c48f99ef5b7169c1b494.tar.gz |
Add test for escaping and unescaping url with already escaped char
* test-org.el (test-org/org-link-escape-url-with-escaped-char): Add
test for escaping and unescaping url with already escaped char.
-rw-r--r-- | testing/lisp/test-org.el | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/testing/lisp/test-org.el b/testing/lisp/test-org.el index f85a8ea..85a3e4a 100644 --- a/testing/lisp/test-org.el +++ b/testing/lisp/test-org.el @@ -84,6 +84,14 @@ "àâçèéêîôùû" (org-link-unescape "%E0%E2%E7%E8%E9%EA%EE%F4%F9%FB")))) +(ert-deftest test-org/org-link-escape-url-with-escaped-char () + "Escape and unscape a URL that includes an escaped char. +http://article.gmane.org/gmane.emacs.orgmode/21459/" + (should + (string= + "http://some.host.com/form?&id=blah%2Bblah25" + (org-link-unescape (org-link-escape "http://some.host.com/form?&id=blah%2Bblah25"))))) + (provide 'test-org) ;;; test-org.el ends here |