mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 04:10:54 -08:00
Code Issues Projects Releases Wiki Activity

Add tests for url-{hexify,unhex}-string

Browse source 
* test/lisp/url/url-util-tests.el (url-unhex-string-tests)
(url-hexify-string-tests): New tests.
This commit is contained in:
Stefan Kangas 2022-08-02 01:12:19 +02:00
parent c480789536
commit 6c3bafbc2c
1 changed files with 20 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

20
test/lisp/url/url-util-tests.el
View file

@ -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"))