gistfile1.clj

(defn mock-suggestions-response
  [name]  
  (go (<! (a/timeout (max (rand-int 300) 100)))
      {:status 200
       :body (->> (gen/elements [name])
                  (gen/tuple (gen/not-empty gen/string-alpha-numeric))
                  (gen/fmap
                   (fn [[noise name]]
                     (-> (str "www." (str/lower-case name) noise ".com")
                         (str/replace #" " ""))))
                  (gen/sample)
                  (take 5)
                  (into []))}))