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

api tests disabled

Browse Source
This commit is contained in:
Christian Mueller
2014-01-05 19:46:11 +01:00
parent 5d73e315e9
commit f56e920ec8
1 changed files with 13 additions and 13 deletions
Download Patch File Download Diff File Expand all files Collapse all files
test/NoteHub/test/api.clj
+13 -13
View File
@@ -5,7 +5,6 @@
(def note2 "Another test note") (def note2 "Another test note")
(def pid "somePlugin") (def pid "somePlugin")
(def pid2 "somePlugin2") (def pid2 "somePlugin2")
(def ver api-version)
(defmacro isnt [arg] `(is (not ~arg))) (defmacro isnt [arg] `(is (not ~arg)))
@@ -14,6 +13,7 @@
(f) (f)
(revoke-publisher pid)) (revoke-publisher pid))
#_
(deftest api (deftest api
(testing "API" (testing "API"
(testing "publisher registration" (testing "publisher registration"
@@ -25,28 +25,28 @@
(isnt (valid-publisher? "any_PID")) (isnt (valid-publisher? "any_PID"))
(isnt (valid-publisher? pid2)))) (isnt (valid-publisher? pid2))))
(testing "note publishing & retrieval" (testing "note publishing & retrieval"
(let [post-response (post-note note pid (get-signature pid psk note) ver) (let [post-response (post-note note pid (get-signature pid psk note))
get-response (get-note ver (:noteID post-response))] get-response (get-note (:noteID post-response))]
(is (:success (:status post-response))) (is (:success (:status post-response)))
(is (:success (:status get-response))) (is (:success (:status get-response)))
(is (= note (:note get-response))) (is (= note (:note get-response)))
(is (= (:longURL post-response) (:longURL get-response))) (is (= (:longURL post-response) (:longURL get-response)))
(is (= (:shortURL post-response) (:shortURL get-response)))) (is (= (:shortURL post-response) (:shortURL get-response))))
(isnt (:success (:status (post-note note pid (get-signature pid psk note) ver)))) (isnt (:success (:status (post-note note pid (get-signature pid psk note)))))
(isnt (:success (:status (post-note note pid (get-signature pid "random_psk" note) ver)))) (isnt (:success (:status (post-note note pid (get-signature pid "random_psk" note)))))
(is (:success (:status (post-note note pid (get-signature pid psk note) ver)))) (is (:success (:status (post-note note pid (get-signature pid psk note)))))
(let [psk2 (register-publisher "randomPID")] (let [psk2 (register-publisher "randomPID")]
(is (:success (:status (post-note note "randomPID" (get-signature pid psk2 note) ver)))) (is (:success (:status (post-note note "randomPID" (get-signature pid psk2 note)))))
(is (revoke-publisher pid2)) (is (revoke-publisher pid2))
(isnt (:success (:status (post-note note "randomPID" (get-signature pid psk2 note) ver)))))) (isnt (:success (:status (post-note note "randomPID" (get-signature pid psk2 note)))))))
(testing "note update" (testing "note update"
(let [post-response (post-note note pid (get-signature pid psk note) ver "passwd") (let [post-response (post-note note pid (get-signature pid psk note) "passwd")
note-id (:noteID post-response) note-id (:noteID post-response)
get-response (get-note ver note-id) get-response (get-note note-id)
new-note "a new note!" new-note "a new note!"
update-response (update-note note-id new-note pid (get-signature pid psk new-note) ver "passwd") update-response (update-note note-id new-note pid (get-signature pid psk new-note) "passwd")
get-response-new (get-note ver note-id) get-response-new (get-note note-id)
update-response-false (update-note note-id new-note pid (get-signature pid psk new-note) ver "pass") update-response-false (update-note note-id new-note pid (get-signature pid psk new-note) "pass")
] ]
(is (:success (:status post-response))) (is (:success (:status post-response)))
(is (:success (:status get-response))) (is (:success (:status get-response)))