crappyrules/notehub
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

API tests updated

Browse Source
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
Download Patch File Download Diff File Expand all files Collapse all files
src/NoteHub/storage.clj
+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"
test/NoteHub/test/api.clj
+9 -13
View File
@@ -16,10 +16,6 @@
(deftest api
(testing "API"
(testing "signature implementation"
(is (= 3577853521 (get-signature "Lorem ipsum dolor sit amet" "abcdef")))
(is (= -180217198 (get-signature "Notehub is a free pastebin for markdown" "12345678")))
(is (= 6887137804 (get-signature "abcd !§$%& параграф" "A VERY LONG KEY"))))
(testing "publisher registration"
(let [psk2 (register-publisher pid2)]
(is (valid-publisher? pid))
@@ -29,28 +25,28 @@
(isnt (valid-publisher? "any_PID"))
(isnt (valid-publisher? pid2))))
(testing "note publishing & retrieval"
(let [post-response (post-note note pid (get-signature note psk) ver)
(let [post-response (post-note note pid (get-signature pid psk note) ver)
get-response (get-note ver (:noteID post-response))]
(is (:success (:status post-response)))
(is (:success (:status get-response)))
(is (= note (:note get-response)))
(is (= (:longURL post-response) (:longURL get-response)))
(is (= (:shortURL post-response) (:shortURL get-response))))
(isnt (:success (:status (post-note note pid (get-signature note2 psk) ver))))
(isnt (:success (:status (post-note note pid (get-signature note "random_psk") ver))))
(is (:success (:status (post-note note pid (get-signature note psk) ver))))
(isnt (:success (:status (post-note note pid (get-signature pid psk note) ver))))
(isnt (:success (:status (post-note note pid (get-signature pid "random_psk" note) ver))))
(is (:success (:status (post-note note pid (get-signature pid psk note) ver))))
(let [psk2 (register-publisher "randomPID")]
(is (:success (:status (post-note note "randomPID" (get-signature note psk2) ver))))
(is (:success (:status (post-note note "randomPID" (get-signature pid psk2 note) ver))))
(is (revoke-publisher pid2))
(isnt (:success (:status (post-note note "randomPID" (get-signature note psk2) ver))))))
(isnt (:success (:status (post-note note "randomPID" (get-signature pid psk2 note) ver))))))
(testing "note update"
(let [post-response (post-note note pid (get-signature note psk) ver "passwd")
(let [post-response (post-note note pid (get-signature pid psk note) ver "passwd")
note-id (:noteID post-response)
get-response (get-note ver note-id)
new-note "a new note!"
update-response (update-note note-id new-note pid (get-signature new-note psk) ver "passwd")
update-response (update-note note-id new-note pid (get-signature pid psk new-note) ver "passwd")
get-response-new (get-note ver note-id)
update-response-false (update-note note-id new-note pid (get-signature new-note psk) ver "pass")
update-response-false (update-note note-id new-note pid (get-signature pid psk new-note) ver "pass")
]
(is (:success (:status post-response)))
(is (:success (:status get-response)))