From 202c056c5371bf0450938f39df1b43a4c0f53bc0 Mon Sep 17 00:00:00 2001
From: Kevin Tew <tewk@racket-lang.org>
Date: Thu, 18 Feb 2010 18:54:53 +0000
Subject: [PATCH] tests file.ss use random port

svn: r18151
---
 collects/tests/mzscheme/file.ss | 12 +++++-------
 1 file changed, 5 insertions(+), 7 deletions(-)

diff --git a/collects/tests/mzscheme/file.ss b/collects/tests/mzscheme/file.ss
index 57565cbb16..4cb402bee1 100644
--- a/collects/tests/mzscheme/file.ss
+++ b/collects/tests/mzscheme/file.ss
@@ -1211,7 +1211,9 @@
 					  void)])
 	   (read-eval-print-loop)))
 
-
+(define (listen-port x)
+  (let-values ([(la lp pa pp) (tcp-addresses x #t)])
+    lp))
 
 (define (cust-test open)
   (let ([try
@@ -1244,8 +1246,8 @@
 			    "file.ss")))))
 
 ;; Too time-consuming, does bad things to the network:
-'(let* ([pn 40001]
-       [l (tcp-listen pn)])
+'(let* ( [l (tcp-listen 0)]
+         [pn (listen-port l)])
   (cust-test (lambda ()
 	       (let-values ([(r1 w1) (tcp-connect "localhost" pn)]
 			    [(r2 w2) (tcp-accept l)])
@@ -1258,10 +1260,6 @@
 ;;----------------------------------------------------------------------
 ;; TCP
 
-(define (listen-port x)
-  (let-values ([(la lp pa pp) (tcp-addresses x #t)])
-    lp))
-
 (let ([do-once
        (lambda (evt?)
 	 (let* (