suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

tests file.ss use random port

Browse Source 
svn: r18151
This commit is contained in:
Kevin Tew 2010-02-18 18:54:53 +00:00
parent 25dbc6a418
commit 202c056c53
1 changed files with 5 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
collects/tests/mzscheme/file.ss
View File

@ -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* (