         (test-munged-request request
           (fn [munged-request] ; ring middleware
             (let [actual (get-in munged-request content-type-header)]
-              (is (= "application/octet-stream" actual)))))
-        (test-munged-request request
-          (fn [munged-request] ; ring middleware
-            (let [actual (get-in munged-request content-type-header)]
               (is (= "application/octet-stream" actual)))))))))


  {path {method {example expected}}}"
  {
   "/" {:head {"raw" "raw"}
        :post {"raw" "raw"}
        :get {"raw" "raw"
              "foo,bar" "foo,bar"}}
   "/production/catalog/anode" {:get accept-header-raw-examples
                                :post accept-header-raw-examples}
   "/production/file_content/something" {:get accept-header-raw-examples}

  "Validate a request by threading it through the legacy-routes request handler
  into an assertion-wrapper ring middleware."
  [request assertion]
  (let [mem (atom {:tested false})
        wrapped-assertion #((swap! mem assoc :tested true) (assertion %))
        response ((validating-app wrapped-assertion) request)]
    (is (true? (:tested @mem)) (str "request not tested: " (pr-str request)))
    response))

(deftest test-legacy-routes
  (let [app     (build-ring-handler
