   (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,

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;; (comment
;;   (session->map (create-session {:uri "xdbc://localhost:8383/"
;;                                     :user "rest-admin" :password "x"
;;                                     :content-base "TutorialDB"}
;;                                    {} (uri-content-source "xdbc://localhost:8383/"
