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

.

Browse Source 
original commit: b8cd7098bf7f453ca03cf2e65d0eb140eecd5711
This commit is contained in:
Robby Findler 2004-03-20 17:18:24 +00:00
parent 9107f0c35d
commit b80094cf12
1 changed files with 33 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1,6 +1,39 @@
(load-relative "loadtest.ss")
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;
;; url parsing tests
;;
(require (lib "url.ss" "net"))
(let ()
(define (test-s->u vec str)
(define (string->url/vec str)
(let ([res (string->url str)])
(vector (url-scheme res)
(url-host res)
(url-port res)
(url-path res)
(url-params res)
(url-query res)
(url-fragment res)
(url/user-user res))))
(test vec string->url/vec str))
(test-s->u (vector "http" "www.google.com" #f '() #f #f #f #f)
"http://www.google.com/")
(test-s->u (vector "http" "www.google.com" #f (list "a" "b" "c") #f #f #f #f)
"http://www.google.com/a/b/c"))
(report-errs)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;
;; other net tests
;;
(require (lib "base64.ss" "net")
(lib "qp.ss" "net")
(lib "thread.ss"))