From fac96f782a5d4fa138e3017ba5b1d1aa0ea6be3b Mon Sep 17 00:00:00 2001 From: Jay McCarthy Date: Thu, 7 Jun 2007 21:58:48 +0000 Subject: [PATCH] New test svn: r6529 --- .../web-server/tests/private/session-test.ss | 35 +++++++++++++++++-- 1 file changed, 32 insertions(+), 3 deletions(-) diff --git a/collects/web-server/tests/private/session-test.ss b/collects/web-server/tests/private/session-test.ss index 59eb9c19dc..e0c9d87316 100644 --- a/collects/web-server/tests/private/session-test.ss +++ b/collects/web-server/tests/private/session-test.ss @@ -1,8 +1,37 @@ (module session-test mzscheme - (require (planet "test.ss" ("schematics" "schemeunit.plt" 2))) + (require (planet "test.ss" ("schematics" "schemeunit.plt" 2)) + (lib "url.ss" "net") + (lib "session.ss" "web-server" "private")) (provide session-tests) - ; XXX + (define url0 (string->url "http://test.com/foo")) + (define session-tests (test-suite - "Sessions"))) \ No newline at end of file + "Sessions" + + (test-case + "new-session" + (check-true (session? (new-session (make-custodian) (make-namespace) url0)))) + + (test-case + "lookup-session" + (let ([ses (new-session (make-custodian) (make-namespace) url0)]) + (check-eq? (lookup-session (session-id ses)) + ses))) + + (test-case + "lookup-session (fail)" + (let ([ses (new-session (make-custodian) (make-namespace) url0)]) + (check-false (lookup-session (* 100 (session-id ses))) + ses))) + + (test-case + "extract-session" + (let ([ses (new-session (make-custodian) (make-namespace) url0)]) + (check-equal? (extract-session (session-url ses)) + (session-id ses)))) + + (test-case + "extract-session (fail)" + (check-false (extract-session url0)))))) \ No newline at end of file