From f14fa1aaab87bf54aa69f1f08b6454e09619839a Mon Sep 17 00:00:00 2001
From: Noel Welsh <noel@racket-lang.org>
Date: Mon, 6 Aug 2007 13:58:22 +0000
Subject: [PATCH] Wrap a parameter/c contract around current-proxy-servers, so
 it may be used in calls to parameterize.  Add test for same.

svn: r7030

original commit: 39d78f3fbf7637fa3e72b5c1ee6c2b0a532072f5
---
 collects/tests/mzscheme/net.ss | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/collects/tests/mzscheme/net.ss b/collects/tests/mzscheme/net.ss
index f8f9cc66b2..2f68bf579b 100644
--- a/collects/tests/mzscheme/net.ss
+++ b/collects/tests/mzscheme/net.ss
@@ -44,6 +44,10 @@
 (test 'amp-or-semi current-alist-separator-mode)
 (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")])
   (with-censor
    (lambda ()