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)]) void)])
(read-eval-print-loop))) (read-eval-print-loop)))
(define (listen-port x)
(let-values ([(la lp pa pp) (tcp-addresses x #t)])
lp))
(define (cust-test open) (define (cust-test open)
(let ([try (let ([try
@ -1244,8 +1246,8 @@
"file.ss"))))) "file.ss")))))
;; Too time-consuming, does bad things to the network: ;; Too time-consuming, does bad things to the network:
'(let* ([pn 40001] '(let* ( [l (tcp-listen 0)]
[l (tcp-listen pn)]) [pn (listen-port l)])
(cust-test (lambda () (cust-test (lambda ()
(let-values ([(r1 w1) (tcp-connect "localhost" pn)] (let-values ([(r1 w1) (tcp-connect "localhost" pn)]
[(r2 w2) (tcp-accept l)]) [(r2 w2) (tcp-accept l)])
@ -1258,10 +1260,6 @@
;;---------------------------------------------------------------------- ;;----------------------------------------------------------------------
;; TCP ;; TCP
(define (listen-port x)
(let-values ([(la lp pa pp) (tcp-addresses x #t)])
lp))
(let ([do-once (let ([do-once
(lambda (evt?) (lambda (evt?)
(let* ( (let* (