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

View File

@ -94,3 +94,23 @@
"/images%21/dad%20alive.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"))))