isReadable is called in MBeanAttributeInfo, not MBeanInfo

Author: nickmbailey

src/main/clojure/clojure/java/jmx.clj

@@ -239,13 +239,14 @@
 (defn ^{:skip-wiki true} attribute-info
   "Get the MBeanAttributeInfo for an attribute."
   [object-name attr-name]
-  (filter #(= (name attr-name) (.getName %))
-          (.getAttributes (mbean-info object-name))))
+  (first
+    (filter #(= (name attr-name) (.getName %))
+            (.getAttributes (mbean-info object-name)))))
 
 (defn readable?
   "Is attribute readable?"
   [n attr]
-  (.isReadable (mbean-info n)))
+  (.isReadable (attribute-info n attr)))
 
 (defn ^{:skip-wiki true} operations
   "All operations available on an MBean."

src/test/clojure/clojure/java/test_jmx.clj

@@ -69,12 +69,15 @@
 
 (deftest reading-attributes
   (testing "simple scalar attributes"
+           (is (jmx/readable? "java.lang:type=Memory" :ObjectPendingFinalizationCount))
            (are [type attr] (instance? type attr)
                 Number (jmx/read "java.lang:type=Memory" :ObjectPendingFinalizationCount)))
   (testing "composite attributes"
+           (is (jmx/readable? "java.lang:type=Memory" :HeapMemoryUsage))
            (are [ks attr] (=set ks (keys attr))
                 [:used :max :init :committed] (jmx/read "java.lang:type=Memory" :HeapMemoryUsage)))
   (testing "tabular attributes"
+           (is (jmx/readable? "java.lang:type=Runtime" :SystemProperties))
            (is (map? (jmx/read "java.lang:type=Runtime" :SystemProperties)))))
 
 (deftest reading-multiple-attributes