 ;; :object-node
 
 ;; XXX shouldn't be sent:
- ;; :text
+;; :text
 
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

                                             {:types :raw}))))
        (is (false? (execute-xquery session "fn:doc-available(\"derp\")" {:shape :single!}))) 
        (is (= "xs:boolean"
               (result->type (execute-xquery session "xdmp:exists(collection())"
                                             {:types :raw}))))
        (is (true? (execute-xquery session "xdmp:exists(collection())" {:shape :single!})))))

    (testing "......XSDate"
      (with-open [session (create-session db)]

        (is (= "binary()"
               (result->type (with-open [session (create-session db)]
                               (execute-xquery session (str "xquery version \"1.0-ml\";
                                                             xdmp:external-binary(\""
                                                            path-to-img "\");")
                                               {:types :raw})))))
        (is (= (Class/forName "[B")
