diff --git a/collects/net/cgi.ss b/collects/net/cgi.rkt similarity index 100% rename from collects/net/cgi.ss rename to collects/net/cgi.rkt diff --git a/collects/net/cookie.ss b/collects/net/cookie.rkt similarity index 100% rename from collects/net/cookie.ss rename to collects/net/cookie.rkt diff --git a/collects/net/dns.ss b/collects/net/dns.rkt similarity index 100% rename from collects/net/dns.ss rename to collects/net/dns.rkt diff --git a/collects/net/ftp.ss b/collects/net/ftp.rkt similarity index 100% rename from collects/net/ftp.ss rename to collects/net/ftp.rkt diff --git a/collects/net/imap.ss b/collects/net/imap.rkt similarity index 100% rename from collects/net/imap.ss rename to collects/net/imap.rkt diff --git a/collects/net/mime-util.ss b/collects/net/mime-util.rkt similarity index 100% rename from collects/net/mime-util.ss rename to collects/net/mime-util.rkt diff --git a/collects/net/mime.ss b/collects/net/mime.rkt similarity index 100% rename from collects/net/mime.ss rename to collects/net/mime.rkt diff --git a/collects/net/nntp.ss b/collects/net/nntp.rkt similarity index 100% rename from collects/net/nntp.ss rename to collects/net/nntp.rkt diff --git a/collects/net/pop3.ss b/collects/net/pop3.rkt similarity index 100% rename from collects/net/pop3.ss rename to collects/net/pop3.rkt diff --git a/collects/net/private/rbtree.ss b/collects/net/private/rbtree.rkt similarity index 100% rename from collects/net/private/rbtree.ss rename to collects/net/private/rbtree.rkt diff --git a/collects/net/qp.ss b/collects/net/qp.rkt similarity index 100% rename from collects/net/qp.ss rename to collects/net/qp.rkt diff --git a/collects/net/scribblings/common.ss b/collects/net/scribblings/common.rkt similarity index 100% rename from collects/net/scribblings/common.ss rename to collects/net/scribblings/common.rkt diff --git a/collects/net/scribblings/info.ss b/collects/net/scribblings/info.rkt similarity index 100% rename from collects/net/scribblings/info.ss rename to collects/net/scribblings/info.rkt diff --git a/collects/net/sendmail.ss b/collects/net/sendmail.rkt similarity index 100% rename from collects/net/sendmail.ss rename to collects/net/sendmail.rkt diff --git a/collects/net/sendurl.ss b/collects/net/sendurl.rkt similarity index 100% rename from collects/net/sendurl.ss rename to collects/net/sendurl.rkt diff --git a/collects/net/smtp.ss b/collects/net/smtp.rkt similarity index 100% rename from collects/net/smtp.ss rename to collects/net/smtp.rkt diff --git a/collects/net/ssl-tcp-unit.ss b/collects/net/ssl-tcp-unit.rkt similarity index 100% rename from collects/net/ssl-tcp-unit.ss rename to collects/net/ssl-tcp-unit.rkt diff --git a/collects/net/tcp-redirect.ss b/collects/net/tcp-redirect.rkt similarity index 100% rename from collects/net/tcp-redirect.ss rename to collects/net/tcp-redirect.rkt diff --git a/collects/net/tcp-sig.ss b/collects/net/tcp-sig.rkt similarity index 100% rename from collects/net/tcp-sig.ss rename to collects/net/tcp-sig.rkt diff --git a/collects/net/tcp-unit.ss b/collects/net/tcp-unit.rkt similarity index 100% rename from collects/net/tcp-unit.ss rename to collects/net/tcp-unit.rkt diff --git a/collects/net/unihead.ss b/collects/net/unihead.rkt similarity index 100% rename from collects/net/unihead.ss rename to collects/net/unihead.rkt diff --git a/collects/tests/mzscheme/net.ss b/collects/tests/mzscheme/net.rkt similarity index 100% rename from collects/tests/mzscheme/net.ss rename to collects/tests/mzscheme/net.rkt diff --git a/collects/tests/net/cgi.ss b/collects/tests/net/cgi.rkt similarity index 100% rename from collects/tests/net/cgi.ss rename to collects/tests/net/cgi.rkt diff --git a/collects/tests/net/cookie.ss b/collects/tests/net/cookie.rkt similarity index 92% rename from collects/tests/net/cookie.ss rename to collects/tests/net/cookie.rkt index 601eb3d71f..57200a5927 100644 --- a/collects/tests/net/cookie.ss +++ b/collects/tests/net/cookie.rkt @@ -19,12 +19,12 @@ (syntax-rules () [(o/* x) x] [(o/* x f g ...) (f (o/* x g ...))])) - + (define (tests) - + ;; test the most basic functionality (cookie-test (λ (x) x) "a=b; Version=1") - + ;; test each modifier individually (cookie-test (RC cookie:add-comment "set+a+to+b") "a=b; Comment=set+a+to+b; Version=1") @@ -54,7 +54,7 @@ "a=b; Version=1") (cookie-test (RC cookie:version 12) "a=b; Version=12") - + ;; test combinations (cookie-test (o (RC cookie:add-comment "set+a+to+b") (RC cookie:add-domain ".example.net")) @@ -66,7 +66,7 @@ (RC cookie:version 10) (RC cookie:add-max-age 20)) "a=b; Max-Age=20; Path=\"/whatever/wherever/\"; Version=10") - + ;; test error cases (let () (define-syntax cookie-error-test @@ -78,7 +78,18 @@ (cookie-error-test (RC cookie:add-domain "doesntstartwithadot.example.com")) (cookie-error-test (RC cookie:add-domain "bad domain.com")) (cookie-error-test (RC cookie:add-domain ".bad-domain;com"))) - + + ; cookie value + (test + (cookie-value? "value") + (cookie-value? "(") + (cookie-value? "!") + (cookie-value? ")") + (cookie-value? ")!") + (cookie-value? "(!") + (cookie-value? "(!)") + (cookie-value? "!)")) + ) - + (test do (tests))) diff --git a/collects/tests/net/encoders.ss b/collects/tests/net/encoders.rkt similarity index 100% rename from collects/tests/net/encoders.ss rename to collects/tests/net/encoders.rkt diff --git a/collects/tests/net/head.ss b/collects/tests/net/head.rkt similarity index 100% rename from collects/tests/net/head.ss rename to collects/tests/net/head.rkt diff --git a/collects/tests/net/main.ss b/collects/tests/net/main.rkt similarity index 100% rename from collects/tests/net/main.ss rename to collects/tests/net/main.rkt diff --git a/collects/tests/net/uri-codec.ss b/collects/tests/net/uri-codec.rkt similarity index 100% rename from collects/tests/net/uri-codec.ss rename to collects/tests/net/uri-codec.rkt diff --git a/collects/tests/net/url.ss b/collects/tests/net/url.rkt similarity index 100% rename from collects/tests/net/url.ss rename to collects/tests/net/url.rkt