luciano/reitit
1
0
Fork 0
mirror of https://github.com/metosin/reitit.git synced 2026-02-09 13:03:12 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

Add tests for session middleware

Browse source
This commit is contained in:
Daw-Ran Liou 2019-09-30 16:30:52 -07:00
parent 83b2e90ca7
commit 888856b5cc
1 changed files with 60 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

60
test/clj/reitit/ring/middleware/session_test.clj Normal file
View file

@ -0,0 +1,60 @@
(ns reitit.ring.middleware.session-test
(:require [clojure.test :refer [deftest testing is]]
[reitit.ring.middleware.session :as session]
[ring.middleware.session.memory :as memory]
[reitit.ring :as ring]))
(defn get-session-id
"Parse the session-id out of response headers."
[request]
(let [pattern #"ring-session=([-\w]+);Path=/;HttpOnly"
parse-fn (partial re-find pattern)]
(-> request
(get-in [:headers "Set-Cookie"])
first
parse-fn
second)))
(defn handler
"The handler that increments the counter."
[{session :session}]
(let [counter (inc (:counter session 0))]
{:status 200
:body {:counter counter}
:session {:counter counter}}))
(deftest session-test
(let [store (atom {})
app (ring/ring-handler
(ring/router
["/api"
{:session {:store (memory/memory-store store)}
:middleware [session/session-middleware]}
["/ping" handler]
["/pong" handler]]))
first-response (app {:request-method :get
:uri "/api/ping"})
session-id (get-session-id first-response)
second-response (app {:request-method :get
:uri "/api/pong"
:cookies {"ring-session" {:value session-id}}})]
(is (= (count @store)
1))
(is (-> @store first second)
{:counter 2})))
(deftest default-session-test
(let [app (ring/ring-handler
(ring/router
["/api"
{:middleware [session/session-middleware]}
["/ping" handler]
["/pong" handler]]))
first-response (app {:request-method :get
:uri "/api/ping"})
session-id (get-session-id first-response)
second-response (app {:request-method :get
:uri "/api/pong"
:cookies {"ring-session" {:value session-id}}})]
(is (= (inc (get-in first-response [:body :counter]))
(get-in second-response [:body :counter])))))