aboutsummaryrefslogtreecommitdiff
path: root/src/clojure/contrib/test_contrib
diff options
context:
space:
mode:
Diffstat (limited to 'src/clojure/contrib/test_contrib')
-rw-r--r--src/clojure/contrib/test_contrib/test_jmx.clj11
1 files changed, 6 insertions, 5 deletions
diff --git a/src/clojure/contrib/test_contrib/test_jmx.clj b/src/clojure/contrib/test_contrib/test_jmx.clj
index a4013d22..f75c76bf 100644
--- a/src/clojure/contrib/test_contrib/test_jmx.clj
+++ b/src/clojure/contrib/test_contrib/test_jmx.clj
@@ -136,11 +136,12 @@
)))
(deftest test-getAttribute
- (let [state (ref {:a 1 :b 2})
- bean (Bean. state)]
- (testing "accessing values"
- (are [result expr] (= result expr)
- 1 (.getAttribute bean "a")))))
+ (doseq [reftype [ref atom agent]]
+ (let [state (reftype {:a 1 :b 2})
+ bean (Bean. state)]
+ (testing (str "accessing values from a " (class state))
+ (are [result expr] (= result expr)
+ 1 (.getAttribute bean "a"))))))
(deftest test-bean-info
(let [state (ref {:a 1 :b 2})