   (middleware-test)
   (sieppari-test)
   (pedestal-chain-text)
-  (pedestal-tuned-chain-text)
   (interceptor-chain-test))
 
 ; Middleware (static chain) => 5µs

(def +items+ 10)

(defn expected! [x]
  (assert (= (range +items+) (:values x))))

(defn middleware [handler value]
  (fn [request]
    (let [values (or (:values request) [])]
      (handler (assoc request :values (conj values value))))))

(def map-request {})
(def record-request (map->RequestOrContext map-request))

        app (middleware/chain mw identity)]

    ;; 1000ns
    ;;   18ns (identity)
    (title "middleware - map")
    (expected! (app map-request))
    (cc/quick-bench
      (app map-request))

    ;;  365ns
    ;;   21ns (identity)
    (title "middleware - record")
    (expected! (app record-request))
    (cc/quick-bench
      (app record-request))

    ;;  6900ns
    ;; 10000ns (identity)
    (title "middleware - dynamic")
    (expected! ((middleware/chain mw identity) record-request))
    (cc/quick-bench
