mirror of
https://github.com/vale981/lack
synced 2025-03-05 17:31:39 -05:00
58 lines
1.8 KiB
Common Lisp
58 lines
1.8 KiB
Common Lisp
(in-package :cl-user)
|
|
(defpackage t.lack.session.store.dbi
|
|
(:use :cl
|
|
:lack
|
|
:lack.test
|
|
:lack.session.store.dbi
|
|
:dbi
|
|
:prove))
|
|
(in-package :t.lack.session.store.dbi)
|
|
|
|
(plan 2)
|
|
|
|
(defvar *test-db* (asdf:system-relative-pathname :lack "data/test.db"))
|
|
(when (probe-file *test-db*)
|
|
(delete-file *test-db*))
|
|
|
|
(defparameter *conn*
|
|
(dbi:connect :sqlite3 :database-name *test-db*))
|
|
|
|
(dbi:do-sql *conn*
|
|
"CREATE TABLE sessions (id CHAR(72) PRIMARY KEY, session_data TEXT)")
|
|
|
|
(subtest "session middleware"
|
|
(let ((app
|
|
(builder
|
|
(:session
|
|
:store (make-dbi-store
|
|
:connector (lambda () *conn*)))
|
|
(lambda (env)
|
|
(unless (gethash :counter (getf env :lack.session))
|
|
(setf (gethash :counter (getf env :lack.session)) 0))
|
|
`(200
|
|
(:content-type "text/plain")
|
|
(,(format nil "Hello, you've been here for ~Ath times!"
|
|
(incf (gethash :counter (getf env :lack.session)))))))))
|
|
session)
|
|
(diag "1st request")
|
|
(destructuring-bind (status headers body)
|
|
(funcall app (generate-env "/"))
|
|
(is status 200)
|
|
(setf session (parse-lack-session headers))
|
|
(ok session)
|
|
(is body '("Hello, you've been here for 1th times!")))
|
|
|
|
(diag "2nd request")
|
|
(destructuring-bind (status headers body)
|
|
(funcall app (generate-env "/" :cookies `(("lack.session" . ,session))))
|
|
(declare (ignore headers))
|
|
(is status 200)
|
|
(is body '("Hello, you've been here for 2th times!")))))
|
|
|
|
(let ((session (dbi:fetch (dbi:execute (dbi:prepare *conn* "SELECT COUNT(*) AS count FROM sessions")))))
|
|
(is (getf session :|count|) 1
|
|
"'sessions' has a single record"))
|
|
|
|
(dbi:disconnect *conn*)
|
|
|
|
(finalize)
|