From a5c309a12b64bd2dddb1e6022a9487e78fc302a8 Mon Sep 17 00:00:00 2001 From: Jay McCarthy Date: Tue, 29 Jun 2010 13:23:23 -0600 Subject: [PATCH 1/2] Nail down port and dont conflict original commit: 2e5c04f083c53a9aac18409720e3e1ba905f3be0 --- collects/tests/net/url-port.rkt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/collects/tests/net/url-port.rkt b/collects/tests/net/url-port.rkt index 6e4f5ddea8..5c12e5bc81 100644 --- 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]) From a616f14181e72f546800f0a48d837498b7c27764 Mon Sep 17 00:00:00 2001 From: Jay McCarthy Date: Tue, 29 Jun 2010 13:49:01 -0600 Subject: [PATCH 2/2] Close connection sooner original commit: fc91321f21cbbecd19297f739203d8fb6123b7af --- collects/tests/net/ftp.rkt | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/collects/tests/net/ftp.rkt b/collects/tests/net/ftp.rkt index 511586b168..11554516dc 100644 --- a/collects/tests/net/ftp.rkt +++ b/collects/tests/net/ftp.rkt @@ -21,7 +21,8 @@ (ftp-make-file-seconds ftp-date))) (ftp-download-file conn tmp-dir pth) - (delete-file (build-path tmp-dir pth)) - (delete-directory/files tmp-dir) - (ftp-close-connection conn))) \ No newline at end of file + (ftp-close-connection conn) + + (delete-file (build-path tmp-dir pth)) + (delete-directory/files tmp-dir))) \ No newline at end of file