Test now verifies that rationals work correctly.

aphyr · Jul 16, 2013 · 8930dcb · 8930dcb
1 parent b4e0a96
commit 8930dcb
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/test/clj_librato/metrics_test.clj b/test/clj_librato/metrics_test.clj
@@ -39,7 +39,7 @@
          (testing "gauge"
                   (let [gauge {:name "test.gauge"
                                :source "clj-librato"
-                               :value (rand)
+                               :value (/ (rand-int 1000) (rand-int 1000))
                                :measure-time (now)}]
                     ; Submit gauge
                     (collate user apikey [gauge] [])
@@ -57,7 +57,7 @@
                       (is (= (:type metric) "gauge"))
                       (is m)
                       (is (= (:measure-time m) (:measure-time gauge)))
-                      (is (= (:value m) (:value gauge)))
+                      (is (= (:value m) (double (:value gauge))))
                       (is (= (:count m) 1)))
                   )))