Hey Folks, I’m trying to do something that I think is possible but I can’t figure out the correct syntax or find any examples in the docs. Here’s my code. I’m trying to mock out bits of the S3 API in order to write a test. This is just an example to demonstrate my problem. I thought that I can use the client-opts to make the amazon client hit localhost instead of aws. But when I try to put-object as below, it is trying to coerce the keyword :input-stream into an object of instance InputStream. This happens whether or not I wrap the key/input-stream parameters in a map.

(defn s3-app [store]
  {"/" {:put (fn [req]
              (swap! store assoc (req/path-info req)
                     (req/body-string req)))

       :get (fn [req]
              (get @store (req/path-info req)))}})

(let [store (atom {})]
  (with-http [(:s3 ports) (s3-app store)]
    (let [client-opts {:cred (DefaultAWSCredentialsProviderChain/getInstance)
                       :endpoint "localhost"
                       :region "eu-west-2"
                       :client-config
                       {:path-style-access-enabled true
                        :chunked-encoding-disabled false
                        :accelerate-mode-enabled false
                        :payload-signing-enabled true
                        :dualstack-enabled true
                        :force-global-bucket-access-enabled true}}]
      (s3/put-object
       client-opts
       {:key "foo"
        :input-stream (ByteArrayInputStream. (.getBytes "foo"))}))))