Nail down port and dont conflict

2010-06-29 13:23:23 -06:00 · 2010-06-29 13:23:23 -06:00 · 2e5c04f083
commit 2e5c04f083
parent 0062a4eb23
1 changed files with 1 additions and 1 deletions
--- a/collects/tests/net/url-port.rkt
+++ b/collects/tests/net/url-port.rkt
@ -4,7 +4,7 @@
         tests/eli-tester)

 (define ((make-tester url->port) response)
-  (define port-no (+ 9000 (random 100)))
+  (define port-no 9001)
  (define server-cust
    (make-custodian))
  (parameterize ([current-custodian server-cust])