Fixing PR 10970

original commit: 428412036f

collects/tests/net/url-port.rkt

@@ -0,0 +1,55 @@
+#lang racket
+(require net/url
+         mzlib/thread
+         tests/eli-tester)
+
+(define ((make-tester url->port) response)
+  (define port-no (+ 9000 (random 100)))
+  (define server-cust
+    (make-custodian))
+  (parameterize ([current-custodian server-cust])
+    (thread 
+     (λ ()
+       (run-server port-no 
+                   (lambda (ip op)
+                     (thread (λ () (port->string ip)))
+                     (display response op)
+                     (flush-output op))
+                   +inf.0))))
+  (sleep 1)
+  (dynamic-wind
+   void
+   (λ ()
+     (port->string
+      (url->port
+       (url "http" #f "localhost" port-no
+            #t empty empty #f))))
+   (λ ()
+     (custodian-shutdown-all server-cust))))  
+
+(define get-pure
+  (make-tester get-pure-port))
+(define get-impure
+  (make-tester get-impure-port))
+
+(test
+ (get-pure
+  "HTTP/1.1 200 OK\r\nContent-Type: text/plain\r\nTransfer-Encoding: chunked\r\n\r\n24\r\nThis is the data in the first chunk \r\n1A\r\nand this is the second one\r\n0\r\n")
+ =>
+ "This is the data in the first chunk and this is the second one"
+ 
+ (get-pure
+  "HTTP/1.0 200 OK\r\nContent-Type: text/plain\r\n\r\nThis is the data in the first chunk and this is the second one")
+ =>
+ "This is the data in the first chunk and this is the second one"
+ 
+ (get-impure
+  "HTTP/1.1 200 OK\r\nContent-Type: text/plain\r\nTransfer-Encoding: chunked\r\n\r\n23\r\nThis is the data in the first chunk\r\n1A\r\nand this is the second one\r\n0\r\n")
+ =>
+ "HTTP/1.1 200 OK\r\nContent-Type: text/plain\r\nTransfer-Encoding: chunked\r\n\r\n23\r\nThis is the data in the first chunk\r\n1A\r\nand this is the second one\r\n0\r\n"
+ 
+ (get-impure
+  "HTTP/1.0 200 OK\r\nContent-Type: text/plain\r\n\r\nThis is the data in the first chunk and this is the second one\r\n")
+ =>
+ "HTTP/1.0 200 OK\r\nContent-Type: text/plain\r\n\r\nThis is the data in the first chunk and this is the second one\r\n"
+ )