30 lines
1.1 KiB
Scheme
30 lines
1.1 KiB
Scheme
#lang scheme/base
|
|
(require (planet "test.ss" ("schematics" "schemeunit.plt" 2))
|
|
mzlib/list
|
|
net/url
|
|
(lib "servlet-url.ss" "web-server" "servlet")
|
|
(lib "request-structs.ss" "web-server" "private"))
|
|
(provide servlet-url-tests)
|
|
|
|
(define servlet-url-tests
|
|
(test-suite
|
|
"Servlet URLs"
|
|
|
|
(test-case
|
|
"Basic"
|
|
(check-equal? (servlet-url->url-string/no-continuation
|
|
(request->servlet-url
|
|
(make-request 'get (string->url "http://localhost/servlets;1*1*65539753/examples/add.ss")
|
|
empty empty #f
|
|
"host" 80 "client")))
|
|
"http://localhost/servlets/examples/add.ss"))
|
|
|
|
(test-case
|
|
"Param"
|
|
(check-equal? (servlet-url->url-string/no-continuation
|
|
(request->servlet-url
|
|
(make-request 'get (string->url "http://localhost/servlets;1*1*65539753/examples/add.ss;foo")
|
|
empty empty #f
|
|
"host" 80 "client")))
|
|
"http://localhost/servlets/examples/add.ss;foo"))))
|