From 55362c707573a791ea80d65cc1812912815e45b2 Mon Sep 17 00:00:00 2001
From: Jaidyn Ann <10477760+JadedCtrl@users.noreply.github.com>
Date: Wed, 29 May 2024 21:27:03 -0500
Subject: [PATCH] Update URL-parsing tests
Also modifies a test URL to have a question-mark.
---
t/mirror-img.lisp | 7 ++++++-
t/testing-website/index.html | 2 +-
2 files changed, 7 insertions(+), 2 deletions(-)
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 @@
+ 