gered/aging-session
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

somewhat silly convenience function for reading all session entries

Browse source 
most apps won't need to do this, but i seem to be unlucky and work on
apps that do care about this kind of thing ...
This commit is contained in:
Gered 2022-01-02 19:42:55 -05:00
parent 65870439bd
commit c95a02270a
2 changed files with 14 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
src/aging_session/memory.clj
View file

@ -129,3 +129,8 @@
(if store (if store
(.interrupt ^Thread (.thread store)))) (.interrupt ^Thread (.thread store))))
(defn get-all-sessions
"Convenience function that returns all the session entries currently in the aging-memory-store provided."
[^MemoryAgingStore store]
(if store
@(.session_atom store)))

9
test/aging_session/memory_test.clj
View file

@ -225,4 +225,13 @@
(is (not (.isAlive ^Thread (:thread as))) (is (not (.isAlive ^Thread (:thread as)))
"sweeper thread is no longer alive"))) "sweeper thread is no longer alive")))
(deftest can-get-all-sessions
(let [as (->basic-aging-memory-store)]
(write-session as "a" {:foo 1})
(write-session as "b" {:bar 2})
(let [sessions (get-all-sessions as)]
(is (= 2 (count sessions)))
(is (= (get-in sessions ["a" :value]) {:foo 1}))
(is (= (get-in sessions ["b" :value]) {:bar 2})))))
#_(run-tests) #_(run-tests)