     (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)
-        map-request {}
-        record-request (map->RequestOrContext map-request)]
+        app (middleware/chain mw identity)]
 
     ;; 1000ns
     (title "middleware - map")

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

;;
;; Reduce

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