     (refresh-search-managers)
     (dotimes [n (* 2 (count (flatten hosts)))]
       (let [should-be (+ 1 n)
-            r (:body (http-client/put host {:accept :json
-                                            :as :json
-                                            :body (json/write-str (put-request true should-be))}))
+            r (:body (send-put-request true should-be))
             cnt (* 2 (count (flatten hosts)))]
         (is (= cnt (:total r)))
         (is (= should-be (count (:hits r)))))))


  (testing "put"
    (refresh-search-managers)
    (let [r (:body (http-client/put host {:accept :json
                                          :as :json
                                          :body (json/write-str (put-request false 1000))}))
          cnt (* 2 (count (flatten hosts)))]
      (is (= cnt (:total r)))
      (is (= cnt (count (:hits r))))))


   :enforce-limits enforce-limit
   :facets {:name {:size 7}}})

(defn send-put-request [enforce-limit size]
  (http-client/put host {:accept :json
                         :as :json
                         :body (json/write-str (put-request enforce-limit size))}))

(defn send-delete-request []
  (http-client/delete host {:accept :json
                            :as :json
