url: handle literal urls with =s in their query param values

Author: Bogdanp

http-easy-lib/http-easy/private/url.rkt

@@ -56,7 +56,10 @@
                         [(list name value)
                          (cons (string->symbol name) value)]
                         [(list name)
-                         (cons (string->symbol name) #f)]))
+                         (cons (string->symbol name) #f)]
+                        [(list name value ...) ;; noqa
+                         (cons (string->symbol name)
+                               (string-join value "="))]))
                     null)])
     (url/literal scheme user host port abs? path query fragment)))
 
@@ -129,7 +132,7 @@
   (or (and (> num-%-matches 0)
            (= num-%-matches (length (regexp-match* #px"%[a-fA-F0-9]{2}" s))))
       (and (eq? encode form-urlencoded-encode)
-           (regexp-match? #rx"[+]" s))))
+           (regexp-match? #rx"[+=]" s))))
 
 (define (ipv6-host? s)
   (regexp-match? #rx"^[0-9a-fA-F:]*:[0-9a-fA-F:]*$" s))

http-easy-lib/info.rkt

@@ -1,7 +1,7 @@
 #lang info
 
 (define license 'BSD-3-Clause)
-(define version "0.8.4")
+(define version "0.8.5")
 (define collection "net")
 (define deps
   '(["base" #:version "8.1.0.4"]

http-easy-test/net/http-easy/private/url.rkt

@@ -67,6 +67,8 @@
           ("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+e")
           ("http://example.com/a%2Bb.mp3?c=d+e&f&g=h" . "http://example.com/a%2Bb.mp3?c=d+e&f&g=h")
+          ("https://yleawsaudioipv4.akamaized.net/download/world/78-e0812afa331548619c40a31f60a2d6c3/audio-1742305456621.mp3/filename/Nyhetspodden-Alla-vill-ha-Gronland--men-vad-vill-gronlanningarna-sjalva-2025-03-19.mp3?hdnts=exp=1742456407~acl=/download/world/78-e0812afa331548619c40a31f60a2d6c3/audio-1742305456621.mp3/filename/Nyhetspodden-Alla-vill-ha-Gronland--men-vad-vill-gronlanningarna-sjalva-2025-03-19.mp3~hmac=4cf1fae52a5f2aea1a12f2d677c364668a893b311a4ed761d9d7c259b229841a"
+           . "https://yleawsaudioipv4.akamaized.net/download/world/78-e0812afa331548619c40a31f60a2d6c3/audio-1742305456621.mp3/filename/Nyhetspodden-Alla-vill-ha-Gronland--men-vad-vill-gronlanningarna-sjalva-2025-03-19.mp3?hdnts=exp=1742456407~acl=/download/world/78-e0812afa331548619c40a31f60a2d6c3/audio-1742305456621.mp3/filename/Nyhetspodden-Alla-vill-ha-Gronland--men-vad-vill-gronlanningarna-sjalva-2025-03-19.mp3~hmac=4cf1fae52a5f2aea1a12f2d677c364668a893b311a4ed761d9d7c259b229841a")
           ("a/b/c" . "a/b/c")
           ("/a/b/c" . "/a/b/c")
           ("/a;b;c" . "/a;b;c")))