error from Jon Stenerson

net-test/tests/net/pr/pr1.rkt

@@ -0,0 +1,19 @@
+#lang racket/base
+(require racket/port
+         racket/list
+         net/url)
+(module+ test
+  (require rackunit)
+  (define url-no-slash
+    "http://www.racket-lang.org")
+  (define (test u)
+    (define r
+      (first
+       (port->lines
+        (head-impure-port
+         (string->url u)))))
+    (printf "~v => ~v\n" u r)
+    r)
+  (define no-slash-result (test url-no-slash))
+  (define slash-result (test (format "~a/" url-no-slash)))
+  (check-equal? no-slash-result slash-result))