   (f)
   (revoke-publisher pid))
 
+#_
 (deftest api
   (testing "API"
     (testing "publisher registration"

(def note2 "Another test note")
(def pid "somePlugin")
(def pid2 "somePlugin2")
(def ver api-version)

(defmacro isnt [arg] `(is (not ~arg)))


        (isnt (valid-publisher? "any_PID"))
        (isnt (valid-publisher? pid2))))
    (testing "note publishing & retrieval"
      (let [post-response (post-note note pid (get-signature pid psk note))
            get-response (get-note (: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 pid psk note)))))
      (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)))))
      (let [psk2 (register-publisher "randomPID")]
        (is (:success (:status (post-note note "randomPID" (get-signature pid psk2 note)))))
        (is (revoke-publisher pid2))
        (isnt (:success (:status (post-note note "randomPID" (get-signature pid psk2 note)))))))
    (testing "note update"
      (let [post-response (post-note note pid (get-signature pid psk note) "passwd")
            note-id (:noteID post-response)
            get-response (get-note note-id)
            new-note "a new note!"
            update-response (update-note note-id new-note pid (get-signature pid psk new-note) "passwd")
            get-response-new (get-note note-id)
            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 get-response)))
