API tests updated

This commit is contained in:
Christian Mueller
2014-01-05 18:31:06 +01:00
parent 8cdbb01227
commit 932d2dcabc
2 changed files with 13 additions and 15 deletions
+4 -2
View File
@@ -28,7 +28,8 @@
"Creates a random session token"
[]
(let [token (encrypt (str (rand-int Integer/MAX_VALUE)))]
(do (redis/sadd db sessions token) token)))
(do (redis/sadd db sessions token)
token)))
(defn invalidate-session
"Invalidates given session"
@@ -36,7 +37,8 @@
; Jedis is buggy & returns an NPE for token == nil
(when token
(let [was-valid (redis/sismember db sessions token)]
(do (redis/srem db sessions token) was-valid))))
(do (redis/srem db sessions token)
was-valid))))
(defn update-note
"Updates a note with the given store key if the specified password is correct"