Add repository methods: descriptor descriptors

src/cljcr.clj

@@ -58,6 +58,22 @@
      {(var *repo*) (get-repository ~repo-params)}
      ~@body))
 
+(defn descriptor
+  #^{ :doc "Returns the string value(s) of a repository descriptor." }
+  ([key]
+    (descriptor (repository) key))
+  ([repository key]
+    (if (. repository isSingleValueDescriptor key)
+      (. (. repository getDescriptorValue key) getString)
+      (map #(. %1 getString) (. repository getDescriptorValues key)))))
+
+(defn descriptors
+  #^{ :doc "Returns a map of the repository descriptors." }
+  ([] (descriptors (repository)))
+  ([repository]
+    (let [keys (. repository getDescriptorKeys)]
+      (reduce #(assoc %1 %2 (descriptor repository %2)) {} keys))))
+
 (defmacro with-session
   [session-params & body]
   `(with-bindings 

test/test_cljcr.clj

@@ -39,6 +39,10 @@
   :once
   (fn [test] (with-repository jackrabbit-repo (with-guest-session (test)))))
 
+(deftest test-descriptors
+  (testing "descriptors"
+    (is (= (get (descriptors) "jcr.repository.name") "Jackrabbit"))))
+
 (deftest test-has-changes?
   (is (not (has-changes?)) "there should be no unsaved changes"))
 
@@ -56,10 +60,10 @@
   (testing "node-at"
     (let [path "/jcr:system"]
       (is (= (. (node-at path) getPath) path)
-          "the path of (node-at \"/jcr:system\") /jcr:system?")))
+          "the path of (node-at \"/jcr:system\") /jcr:system?"))))
 
 (deftest test-property-at
   (testing "property-at"
     (let [path "/jcr:primaryType"]
       (is (= (. (property-at path) getPath) path)
-          "the path of (property-at \"/jcr:primaryType\") /jcr:primaryType?")))
+          "the path of (property-at \"/jcr:primaryType\") /jcr:primaryType?"))))