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

.

Browse Source 
original commit: a9a35577fecee30137f90f515bb40f640cf35a88
This commit is contained in:
Matthew Flatt 2004-09-07 13:06:35 +00:00
parent 147b3ed23e
commit 41a8e116c7
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -9,16 +9,17 @@
(require (lib "url.ss" "net") (require (lib "url.ss" "net")
(lib "uri-codec.ss" "net")) (lib "uri-codec.ss" "net"))
(test "a=hel%2blo" alist->form-urlencoded '((a . "hel+lo"))) (test "a=hel%2blo+%e7%88%b8" alist->form-urlencoded '((a . "hel+lo \u7238")))
(test '((a . "hel+lo")) form-urlencoded->alist (alist->form-urlencoded '((a . "hel+lo")))) (test '((a . "hel+lo \u7238")) form-urlencoded->alist (alist->form-urlencoded '((a . "hel+lo \u7238"))))
(test "a=hel%2blo;b=good-bye" alist->form-urlencoded '((a . "hel+lo") (b . "good-bye"))) (test "a=hel%2blo;b=good-bye" alist->form-urlencoded '((a . "hel+lo") (b . "good-bye")))
(test '((a . "hel+lo") (b . "good-bye")) form-urlencoded->alist (alist->form-urlencoded '((a . "hel+lo") (b . "good-bye")))) (test '((a . "hel+lo") (b . "good-bye")) form-urlencoded->alist (alist->form-urlencoded '((a . "hel+lo") (b . "good-bye"))))
(let ([with-censor (load-relative "censor.ss")]) (let ([with-censor (load-relative "censor.ss")])
(with-censor (with-censor
(lambda () (lambda ()
;; Test all chars up to 300
(let ([p (let loop ([n 0]) (let ([p (let loop ([n 0])
(if (= n 256) (if (= n 300)
null null
(let ([s (string (char-downcase (integer->char n)))]) (let ([s (string (char-downcase (integer->char n)))])
(cons (cons (string->symbol s) s) (cons (cons (string->symbol s) s)