     (partial with-jboss #{:isolated :offset :domain})
     (with-deployment "ROOT.war" "." :profiles [:cluster :dev :test])))
 
-(deftest bouncing-basic-web
+(defmacro marktest [t & body]
+  `(deftest ~t
+     (let [v# (-> ~t var meta :name)]
+       (mark "START" v#)
+       ~@body
+       (mark "FINISH" v#))))
+
+(marktest bouncing-basic-web
   (is (= :pong (get-as-data "/ping" "server-one")))
   (is (= :pong (get-as-data "/ping" "server-two")))
   (stop "server-one")

  (start "server-one")
  (is (= 4 (get-as-data "/counter" "server-one"))))

(deftest failover
  (let [responses (atom [])
        response (fn [s]
                   (with-open [c (msg/context (assoc opts :port (http-port s)))]

  (start "server-one")
  (is (= :pong (get-as-data "/ping" "server-one"))))

(marktest session-replication
  (is (= 0 (get-as-data "/counter" "server-one")))
  (is (= 1 (get-as-data "/counter" "server-two")))
  (is (= 2 (get-as-data "/counter" "server-one")))
