hiro/lack
1
0
Fork 0
mirror of https://github.com/vale981/lack synced 2025-03-05 09:21:39 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

Add tests for Lack.Session.Store.Redis.

Browse source
This commit is contained in:
Eitaro Fukamachi 2016-02-09 22:50:40 +09:00
parent 6a07817137
commit 524f4c3fe1
1 changed files with 13 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
t/session/store/redis.lisp
View file

@ -104,11 +104,23 @@
(let ((body (nth 2 (funcall app (generate-env "/" :cookies `(("lack.session" . ,session)))))))
(is body '("Hello, 深町英太郎! You've been here for 2th times!")))
(sleep 2)
(let ((body (nth 2 (funcall app (generate-env "/" :cookies `(("lack.session" . ,session)))))))
(is body '("Hello, 深町英太郎! You've been here for 3th times!")
"Still the session is alive"))
(sleep 2)
(let ((body (nth 2 (funcall app (generate-env "/" :cookies `(("lack.session" . ,session)))))))
(is body '("Hello, 深町英太郎! You've been here for 4th times!")
"Reset the expiration when accessed"))
(sleep 3)
(let ((body (nth 2 (funcall app (generate-env "/" :cookies `(("lack.session" . ,session)))))))
(is body '("Hello, 深町英太郎! You've been here for 1th times!")
"Session has expired after 3 seconds"))))
"Session has expired after 3 seconds since the last access"))))
(let ((redis::*connection* *connection*))
(is (length (red:keys (format nil "~A:*" *namespace*)))