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

Wrap a parameter/c contract around current-proxy-servers, so it may be used in calls to parameterize. Add test for same.

Browse Source 
svn: r7030

original commit: 39d78f3fbf
This commit is contained in:
Noel Welsh 2007-08-06 13:58:22 +00:00
parent ab755d6138
commit f14fa1aaab
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/tests/mzscheme/net.ss
View File

@ -44,6 +44,10 @@
(test 'amp-or-semi current-alist-separator-mode) (test 'amp-or-semi current-alist-separator-mode)
(err/rt-test (current-alist-separator-mode 'bad)) (err/rt-test (current-alist-separator-mode 'bad))
;; Test the current-proxy-servers parameter can be set
(parameterize ([current-proxy-servers '(("http" "proxy.com" 3128))])
(test '(("http" "proxy.com" 3128)) current-proxy-servers))
(let ([with-censor (load-relative "censor.ss")]) (let ([with-censor (load-relative "censor.ss")])
(with-censor (with-censor
(lambda () (lambda ()