18 lines
767 B
Scheme
18 lines
767 B
Scheme
(test-begin "url-encoding")
|
|
|
|
(test-assert "url-encode-1"
|
|
(string=? (encode-url "https://retropikzel.neocities.org/blog/2025-12-24 - Making a Scheme script on windows.html")
|
|
"https://retropikzel.neocities.org/blog/2025-12-24%20-%20Making%20a%20Scheme%20script%20on%20windows.html"))
|
|
|
|
(write (encode-url "https://retropikzel.neocities.org/blog/2025-12-24 - Making a Scheme script on windows.html"))
|
|
(newline)
|
|
|
|
(define long-text (slurp "retropikzel/url-encoding/long-test-string.txt"))
|
|
|
|
(test-assert "url-encode long-text" (string? (encode-url long-text)))
|
|
|
|
(define long-text1 (slurp "retropikzel/url-encoding/long-test-string1.txt"))
|
|
(test-assert "url-encode long-text1" (string? (encode-url long-text1)))
|
|
|
|
(test-end "url-encoding")
|