31 lines
888 B
Scheme
31 lines
888 B
Scheme
#lang scheme/base
|
|
(require (planet "test.ss" ("schematics" "schemeunit.plt" 2))
|
|
mzlib/list
|
|
net/url
|
|
web-server/private/session)
|
|
(provide session-tests)
|
|
|
|
(define url0 (string->url "http://test.com/foo"))
|
|
(define url0ps (list "foo"))
|
|
|
|
(define session-tests
|
|
(test-suite
|
|
"Sessions"
|
|
|
|
(test-case
|
|
"new-session"
|
|
(check-true (session? (new-session (make-custodian) (make-base-empty-namespace) url0 url0ps))))
|
|
|
|
(test-case
|
|
"lookup-session"
|
|
(let ([ses (new-session (make-custodian) (make-base-empty-namespace) url0 url0ps)])
|
|
(install-session ses url0ps)
|
|
(check-eq? (lookup-session url0ps)
|
|
ses)))
|
|
|
|
(test-case
|
|
"lookup-session (fail)"
|
|
(let ([ses (new-session (make-custodian) (make-base-empty-namespace) url0 url0ps)])
|
|
(install-session ses url0ps)
|
|
(check-false (lookup-session empty))))))
|