           (let [response (client/get (str base-url "/test.txt"))]
             (is (= (:body response) "hello world from test.txt\n"))
             (is (= (:status response) 200))
-            (is (= 2 @state))))))))
-
-
-(deftest context-data-forwarding
+            (is (= 2 @state)))))))
+  )
+
+(deftest context-data-forwarding-test
   (letfn [(handler1 [context]
             (ct/delegate {:foo 1}))
           (handler2 [context]

;; Tests
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(deftest public-address
  (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-test
  (letfn [(handler1 [context]
            (md/future
              (ct/delegate)))
