-
Notifications
You must be signed in to change notification settings - Fork 33
/
server.lisp
33 lines (27 loc) · 1.11 KB
/
server.lisp
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
(in-package :weblocks-test)
(deftestsuite server-suite (weblocks-suite)
())
;;; test session-name-string-pair
(deftest session-name-string-pair-1
(let ((*rewrite-for-session-urls* nil))
(declare (special *rewrite-for-session-urls*))
(weblocks::session-name-string-pair))
"")
(deftest session-name-string-pair-2
(with-request :post nil
(let ((*rewrite-for-session-urls* t))
(declare (special *rewrite-for-session-urls*))
(setf (slot-value *request* 'hunchentoot::cookies-in)
(cons `(,(session-cookie-name *acceptor*) . "foo") (slot-value *request* 'hunchentoot::cookies-in)))
(weblocks::session-name-string-pair)))
"")
(deftest session-name-string-pair-3
(with-request :post nil
(let ((*rewrite-for-session-urls* t))
(declare (special *rewrite-for-session-urls*))
(weblocks::session-name-string-pair)))
"weblocks-session=1%3ATEST")
(addtest compute-public-files-path-suffix-convert
(ensure-same (last (pathname-directory
(compute-public-files-path :weblocks "tmp/what")) 2)
'("tmp" "what")))