original commit: 79909a1a86679609176fca500c160c28fb65e5be
This commit is contained in:
Robby Findler 2004-08-21 05:50:40 +00:00
parent 800aed2f82
commit 8ebd6ff0da

View File

@ -45,38 +45,44 @@
(url-query url)
(url-fragment url)))
(test-s->u (vector #f #f #f #f '("") #f #f)
(test-s->u (vector #f #f #f #f '("") '() #f)
"/")
(test-s->u (vector #f #f #f #f '() #f #f)
(test-s->u (vector #f #f #f #f '() '() #f)
"")
(test-s->u (vector "http" #f "www.drscheme.org" #f '("") #f #f)
(test-s->u (vector "http" #f "www.drscheme.org" #f '("") '() #f)
"http://www.drscheme.org/")
(test-s->u (vector "http" #f "www.drscheme.org" #f (list "a" "b" "c") #f #f)
(test-s->u (vector "http" #f "www.drscheme.org" #f (list "a" "b" "c") '() #f)
"http://www.drscheme.org/a/b/c")
(test-s->u (vector "http" "robby" "www.drscheme.org" #f (list "a" "b" "c") #f #f)
(test-s->u (vector "http" "robby" "www.drscheme.org" #f (list "a" "b" "c") '() #f)
"http://robby@www.drscheme.org/a/b/c")
(test-s->u (vector "http" #f "www.drscheme.org" 8080 (list "a" "b" "c") #f #f)
(test-s->u (vector "http" #f "www.drscheme.org" 8080 (list "a" "b" "c") '() #f)
"http://www.drscheme.org:8080/a/b/c")
(test-s->u (vector "http" #f "www.drscheme.org" #f (list "a" "b" "c") #f "joe")
(test-s->u (vector "http" #f "www.drscheme.org" #f (list "a" "b" "c") '() "joe")
"http://www.drscheme.org/a/b/c#joe")
(test-s->u (vector "http" #f "www.drscheme.org" #f (list "a" "b" "c") "tim" #f)
"http://www.drscheme.org/a/b/c?tim")
(test-s->u (vector "http" #f "www.drscheme.org" #f (list "a" "b" "c") "tim" "joe")
"http://www.drscheme.org/a/b/c?tim#joe")
(test-s->u (vector "http" #f "www.drscheme.org" #f (list "a" "b" #("c" "b")) #f #f)
(test-s->u (vector "http" #f "www.drscheme.org" #f (list "a" "b" "c") '((tim . "")) #f)
"http://www.drscheme.org/a/b/c?tim=")
(test-s->u (vector "http" #f "www.drscheme.org" #f (list "a" "b" "c") '((tim . "")) "joe")
"http://www.drscheme.org/a/b/c?tim=#joe")
(test-s->u (vector "http" #f "www.drscheme.org" #f (list "a" "b" "c") '((tim . "tim")) "joe")
"http://www.drscheme.org/a/b/c?tim=tim#joe")
(test-s->u (vector "http" #f "www.drscheme.org" #f (list "a" "b" "c") '((tam . "tom")) "joe")
"http://www.drscheme.org/a/b/c?tam=tom#joe")
(test-s->u (vector "http" #f "www.drscheme.org" #f (list "a" "b" "c") '((tam . "tom") (pam . "pom")) "joe")
"http://www.drscheme.org/a/b/c?tam=tom&pam=pom#joe")
(test-s->u (vector "http" #f "www.drscheme.org" #f (list "a" "b" #("c" "b")) '() #f)
"http://www.drscheme.org/a/b/c;b")
(test-s->u (vector "http" #f "www.drscheme.org" #f (list #("a" "x") "b" #("c" "b")) #f #f)
(test-s->u (vector "http" #f "www.drscheme.org" #f (list #("a" "x") "b" #("c" "b")) '() #f)
"http://www.drscheme.org/a;x/b/c;b")
;; test unquoting for %
(test-s->u (vector "http" #f "www.drscheme.org" #f (list "a" "b" "c") "ti#m" "jo e")
"http://www.drscheme.org/a/b/c?ti%23m#jo%20e")
(test-s->u (vector "http" #f "www.drscheme.org" #f (list #("a " " a") " b " " c ") #f #f)
(test-s->u (vector "http" #f "www.drscheme.org" #f (list "a" "b" "c") '((ti#m . "")) "jo e")
"http://www.drscheme.org/a/b/c?ti%23m=#jo%20e")
(test-s->u (vector "http" #f "www.drscheme.org" #f (list #("a " " a") " b " " c ") '() #f)
"http://www.drscheme.org/a ; a/ b / c ")
(test-s->u (vector "http" "robb y" "www.drscheme.org" #f '("") #f #f)
(test-s->u (vector "http" "robb y" "www.drscheme.org" #f '("") '() #f)
"http://robb%20y@www.drscheme.org/")
(let ([empty-url (make-url #f #f #f #f '() #f #f)])
(let ([empty-url (make-url #f #f #f #f '() '() #f)])
(test-c-u/r (string->url "http://www.drscheme.org")
empty-url
"http://www.drscheme.org")