   (testing "Non-string variables passed to request object are not converted to strings"
     (is (instance? com.marklogic.xcc.types.impl.DocumentImpl
                    (-> (with-open [session (create-session db)]
-                         (.getVariables (#'uruk.core/request-obj (.newAdhocQuery session "hello world")
-                                                                 nil {:derp {:value "<foo/>"
-                                                                             :type :document}})))
+                         (.getVariables (#'uruk.core/make-request-obj
+                                         (.newAdhocQuery session "hello world")
+                                         nil {:derp {:value "<foo/>"
+                                                     :type :document}})))
                        first
                        .getValue)))))
 


(deftest default-request-options
  (testing "Creating a request with no explicitly-set options must reflect default options"
    (is (= (let [req-opts (request-options {})]
             (describe-request-options req-opts))
           {:timezone nil,
            :cache-result true,
            :locale nil,

(deftest sample-request-options
  (testing "Set sample option on request"
    (is (= 6000
           (.getTimeoutMillis (make-request-options {:timeout-millis 6000}))))))

(deftest roundtrip-request-options
  (testing "All request options must be set as indicated"
    (is (= (let [req-opts (make-request-options {:timezone (TimeZone/getTimeZone "Pacific/Chuuk")
                                                 :cache-result false,
                                                 :locale (Locale. "ru"),
                                                 :request-time-limit 156,
                                                 :default-xquery-version "xquery version \"0.9-ml\";",
                                                 :timeout-millis 763,
                                                 :query-language "Elvish"
                                                 :result-buffer-size 23,
                                                 :effective-point-in-time 14701453805890320
                                                 :request-name "JigoroKano",
                                                 :auto-retry-delay-millis 991,
                                                 :max-auto-retry 3})]
             (request-options->map req-opts))
           {:timezone (TimeZone/getTimeZone "Pacific/Chuuk")
            :cache-result false,
            :locale (Locale. "ru"),
