jadedctrl/ mirror-img
1
0
Disbranĉigi 0
Fontkodo Issues Tirpetoj Activity

Add tests for private URI-EXPLICIT-PORT

This commit is contained in:
Jaidyn Ann 2024-05-28 23:21:45 -05:00
parent 73e88853df
commit 28f40c5f6e
1 changed files with 20 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
t/mirror-img.lisp
View File

@ -94,3 +94,23 @@
"/images%21/dad%20alive.jpg" "/images%21/dad%20alive.jpg"
(mirror-img::url-encode-path "/images!/dad alive.jpg"))) (mirror-img::url-encode-path "/images!/dad alive.jpg")))
(define-test uri-explicit-port.http80 (:tags '(util))
(assert-eq
nil
(mirror-img::uri-explicit-port (quri:uri "http://xwx.moe/bird.png"))))
(define-test uri-explicit-port.http443 (:tags '(util))
(assert-eq
443
(mirror-img::uri-explicit-port (quri:uri "http://xwx.moe:443/bird.png"))))
(define-test uri-explicit-port.https27 (:tags '(util))
(assert-eq
27
(mirror-img::uri-explicit-port (quri:uri "http://xwx.moe:27/bird.png"))))
(define-test uri-explicit-port.https443 (:tags '(util))
(assert-eq
nil
(mirror-img::uri-explicit-port (quri:uri "https://xwx.moe:443/bird.png"))))