Memory sessions can now be stored in a user-defined atom

mmcgrana · 4093a695fdfdf9531115b1b29b7009bf21f561e5 · weavejester committed Sep 20, 2010 · Sep 20, 2010 · 4093a69
1 parent 469382c
commit 4093a695fdfdf9531115b1b29b7009bf21f561e5
Unified Split

Showing with 11 additions and 2 deletions.

+2 −2 ring-core/src/ring/middleware/session/memory.clj

+9 −0 ring-core/test/ring/middleware/session/memory_test.clj
@@ -17,5 +17,5 @@
 
 (defn memory-store
   "Creates an in-memory session storage engine."
-  []
-  (MemoryStore. (atom {})))
+  ([] (memory-store (atom {})))
+  ([session-atom] (MemoryStore. session-atom)))
@@ -28,3 +28,12 @@
     (is (nil? (delete-session store sess-key)))
     (is (= (read-session store sess-key)
            {}))))
+
+(deftest memory-session-custom-atom
+  (let [session  (atom {})
+        store    (memory-store session)
+        sess-key (write-session store nil {:foo "bar"})]
+    (is (= (@session sess-key) {:foo "bar"}))
+    (swap! session assoc sess-key {:foo "baz"})
+    (is (= (read-session store sess-key)
+           {:foo "baz"}))))