 (comment
   (interceptor-test)
   (middleware-test)
+  (sieppari-test)
   (pedestal-chain-text)
   (pedestal-tuned-chain-text)
   (interceptor-chain-test))

    (expected! ((middleware/chain mw identity) record-request))
    (cc/quick-bench
      ((middleware/chain mw identity) record-request))))

;;
;; Reduce

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

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

(defn middleware-test []
  (let [mw (map (fn [value] [middleware value]) (range +items+))
        app (middleware/chain mw identity)]

    ;; 1000ns
    (title "middleware - map")
