test,url: add some url/literal tests

Bogdanp · Oct 30, 2024 · f3f9da6 · f3f9da6
1 parent ef7c302
commit f3f9da6
Showing 1 changed file with 16 additions and 0 deletions.
diff --git a/http-easy-test/net/http-easy/private/url.rkt b/http-easy-test/net/http-easy/private/url.rkt
@@ -56,6 +56,22 @@
              [e (in-value (cdr pair))])
         (check-equal? (url->string (string->url* s)) e s))))
 
+   (test-suite
+    "url/literal"
+
+    (test-case "roundtrips"
+      (define tests
+        '(("http://example.com" . "http://example.com")
+          ("http://[email protected]:5100" . "http://[email protected]:5100")
+          ("http://example.com/a/b/c" . "http://example.com/a/b/c")
+          ("http://example.com/a%2Bb.mp3" . "http://example.com/a%2Bb.mp3")
+          ("http://example.com/a%2Bb.mp3?c=d+e" . "http://example.com/a%2Bb.mp3?c=d%2Be")))
+
+      (for* ([pair (in-list tests)]
+             [s (in-value (car pair))]
+             [e (in-value (cdr pair))])
+        (check-equal? (url/literal->string (string->url/literal s)) e s))))
+
    (test-suite
     "is-percent-encoded?"