Allow unregistering mbeans.

Patch for JMX-17 by Mike Sassak.

Author: nickmbailey

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

@@ -272,6 +272,11 @@
   [mbean mbean-name]
   (.registerMBean *connection* mbean (as-object-name mbean-name)))
 
+(defn unregister-mbean
+  "Unregister mbean named mbean-name with the current *connection*."
+  [mbean-name]
+  (.unregisterMBean *connection* (as-object-name mbean-name)))
+
 (defn mbean-names
   "Finds all MBeans matching a name on the current *connection*."
    [n]

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

@@ -12,7 +12,7 @@
 
 (ns clojure.java.test-jmx
   (:import javax.management.openmbean.CompositeDataSupport
-           [javax.management MBeanAttributeInfo Attribute AttributeList]
+           [javax.management MBeanAttributeInfo Attribute AttributeList InstanceNotFoundException]
            [java.util.logging LogManager Logger])
   (:use clojure.test)
   (:require [clojure.java [jmx :as jmx]]))
@@ -222,3 +222,11 @@
   (if primitive-int?
     (is (= "int" (@#'jmx/guess-attribute-typename 10)))
     (is (= "long" (@#'jmx/guess-attribute-typename 10)))))
+
+(deftest test-unregister-mbean
+  (let [mbean (jmx/create-bean (ref {:a-property 123}))
+        mbean-name "clojure.java.test_jmx:name=UnregisterTest"]
+    (jmx/register-mbean mbean mbean-name)
+    (is (= 123 (jmx/read mbean-name :a-property)))
+    (jmx/unregister-mbean mbean-name)
+    (is (thrown? InstanceNotFoundException (jmx/read mbean-name :a-property)))))