diff --git a/t/mirror-img.lisp b/t/mirror-img.lisp index f4cb658..0fa5e41 100644 --- a/t/mirror-img.lisp +++ b/t/mirror-img.lisp @@ -74,7 +74,7 @@ (assert-equal '("http://localhost:4242/res/img/b/fireplace.jpg" "http://localhost:4242/res/img/b/I’m trying hard to randomly name these directories/more_calming.jpg" - "http://localhost:4242/res/img/b/I’m trying hard to randomly name these directories/ĉu ĉi tio sufiĉe hazardas%3F!/classy_fireplace.jpg" + "http://localhost:4242/res/img/b/I’m trying hard to randomly name these directories/ĉu ĉi tio sufiĉe hazardas?!/classy_fireplace.jpg" "http://localhost:4242/res/img/level-2/café.jpg" "http://localhost:4242/res/img/merry christmas!!! ^_^.jpg" "http://localhost:4242/res/style.css" @@ -94,6 +94,11 @@ "/images%21/dad%20alive.jpg" (mirror-img::url-encode-path "/images!/dad alive.jpg"))) +(define-test url-encode-path.question (:tags '(util)) + (assert-equal + "/images%21/%3F%C4%89u_ne%20tio%20sufi%C4%89e%3F%21.jpg" + (mirror-img::url-encode-path "/images!/?ĉu_ne tio sufiĉe?!.jpg"))) + (define-test uri-explicit-port.http80 (:tags '(util)) (assert-eq nil diff --git a/t/testing-website/index.html b/t/testing-website/index.html index 972d573..3c88d4a 100644 --- a/t/testing-website/index.html +++ b/t/testing-website/index.html @@ -62,7 +62,7 @@

Three…

- +
You’re surrounded by your superiors. 🔗