 ;; Tests
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
-(deftest public-address
+(deftest public-address-test
   (let [p (promise)
         handler (fn [context]
                   (deliver p (ct/public-address context))

          (is (= (:body response) "hello world"))
          (is (= (:status response) 200)))))))

(deftest async-context-delegation
  (letfn [(handler1 [context]
            (md/future
              (ct/delegate)))

               {:foo 1 :bar 2 :baz 3})))))))


(deftest basic-request-handler-test
  (testing "Simple cors request"
    (let [p (promise)
          handler (fn [ctx] (deliver p ctx) "hello world")
