diff options
| author | Stefan Kangas <stefan@marxist.se> | 2022-08-02 01:12:19 +0200 |
|---|---|---|
| committer | Stefan Kangas <stefan@marxist.se> | 2022-08-02 10:21:22 +0200 |
| commit | 6c3bafbc2cf9853f3082fb643ee20c78a80bb69e (patch) | |
| tree | 430ce78908e150b141bdd14d54689e936c1da0a8 /test/lisp/url | |
| parent | c4807895363108cd6f4425f650a341cb5cefb90c (diff) | |
| download | emacs-6c3bafbc2cf9853f3082fb643ee20c78a80bb69e.tar.gz emacs-6c3bafbc2cf9853f3082fb643ee20c78a80bb69e.tar.bz2 emacs-6c3bafbc2cf9853f3082fb643ee20c78a80bb69e.zip | |
Add tests for url-{hexify,unhex}-string
* test/lisp/url/url-util-tests.el (url-unhex-string-tests)
(url-hexify-string-tests): New tests.
Diffstat (limited to 'test/lisp/url')
| -rw-r--r-- | test/lisp/url/url-util-tests.el | 20 |
1 files changed, 20 insertions, 0 deletions
diff --git a/test/lisp/url/url-util-tests.el b/test/lisp/url/url-util-tests.el index 8c042c01353..cfc2d93c890 100644 --- a/test/lisp/url/url-util-tests.el +++ b/test/lisp/url/url-util-tests.el @@ -46,6 +46,26 @@ ("key2" "val2") ("key1" "val1"))))) +(ert-deftest url-unhex-string-tests () + (should (equal (url-unhex-string "foo%20bar") + "foo bar")) + (should (equal (decode-coding-string (url-unhex-string "Fran%C3%A7ois") 'utf-8) + "François")) + (should (equal (url-unhex-string "%20%21%23%24%25%26%27%28%29%2A") + " !#$%&'()*")) + (should (equal (url-unhex-string "%2B%2C%2F%3A%3B%3D%3F%40%5B%5D") + "+,/:;=?@[]"))) + +(ert-deftest url-hexify-string-tests () + (should (equal (url-hexify-string "foo bar") + "foo%20bar")) + (should (equal (url-hexify-string "François") + "Fran%C3%A7ois")) + (should (equal (url-hexify-string " !#$%&'()*") + "%20%21%23%24%25%26%27%28%29%2A")) + (should (equal (url-hexify-string "+,/:;=?@[]") + "%2B%2C%2F%3A%3B%3D%3F%40%5B%5D"))) + (ert-deftest url-domain-tests () (should (equal (url-domain (url-generic-parse-url "http://www.fsf.co.uk")) "fsf.co.uk")) |