Cleaning up DrDr properties

svn: r16342

collects/tests/web-server/private/session-test.ss

@@ -1,30 +0,0 @@
-#lang scheme/base
-(require schemeunit
-         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))))
-   
-   (test-case
-    "lookup-session"
-    (let ([ses (new-session (make-custodian) (make-base-empty-namespace) url0)])
-      (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)])
-      (install-session ses url0ps)
-      (check-false (lookup-session empty))))))