Commits

Michael Klishin committed 9004e81

Cherry pick metrics.meters/count, fixes #9

Contributed by Ian Eure.

Comments (0)

Files changed (2)

metrics-clojure-core/src/metrics/meters.clj

 (defn rate-mean [^Meter m]
   (.meanRate m))
 
+(defn count
+  [^Meter m]
+  (.count m))
 
 ; Write -----------------------------------------------------------------------
 (defn mark!

metrics-clojure-core/test/metrics/test/meters.clj

     (meters/mark! m 20000)
     (Thread/sleep 8000)
     (is (every? #(> % 0.0) (vals (meters/rates m))))))
+
+(deftest test-count
+  (let [m (meters/meter ["test" "meters" "test-count"] "test-events")]
+    (is (zero? (meters/count m)))
+    (meters/mark! m)
+    (is (= 1 (meters/count m)))))