Commit 3178e08c authored by Johannes Knödtel's avatar Johannes Knödtel 🎶
Browse files

test create-session<!

parent 81a85758
......@@ -310,3 +310,17 @@
payments-2
expected-results-2))
(deftest test-session-management []
(migrate-test-db)
(let [connection test-connection
session-1 (db/create-session<! {:name "Test Session 1"} {:connection connection})]
(is (= (db/get-sessions {} {:connection connection})
'({:id session-1
:name "Test Session 1"})))
(let [session-2 (db/create-session<! {:name "Test Session 2"} {:connection connection})]
(is (= (db/get-sessions {} {:connection connection})
'({:id session-1
:name "Test Session 1"}
{:id session-2
:name "Test Session 2"}))))))
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment