dealing with rounding issue when using average

rosejn · Jul 13, 2011 · 41a83bc · 41a83bc
1 parent 8eb8272
commit 41a83bc
Show file tree

Hide file tree

Showing 3 changed files with 4 additions and 4 deletions.
diff --git a/project.clj b/project.clj
@@ -8,8 +8,7 @@
                  [clojure-protobuf "0.3.4"]
                  [org.clojars.overtone/vijual "0.2.1"]
                  [logjam "0.1.0-SNAPSHOT"]]
-  :dev-dependencies [[marginalia "0.6.0"]]
-  :tasks [marginalia.tasks])
+  :dev-dependencies [[marginalia "0.6.0"]])
 
 (import '[java.io File])
 (use '[clojure.java.io :only (delete-file)])

diff --git a/test/plasma/operator_test.clj b/test/plasma/operator_test.clj
@@ -146,7 +146,7 @@
         tree-desc (assoc tree :proj avg-desc)]
     (enqueue-and-close (:in p1) ROOT-ID)
     (Thread/sleep 20)
-    (is (= (average [0.8 0.3 0.4 0.6]) (first (result tree-desc))))))
+    (is (= (Math/round (* 100 (average [0.8 0.3 0.4 0.6]))) (Math/round (* 100 (first (result tree-desc))))))))
 
 ; TODO: Finish me!
 (defn group-by-op-test []

diff --git a/test/plasma/query_test.clj b/test/plasma/query_test.clj
@@ -87,7 +87,8 @@
 (deftest average-test
   (let [q (-> (path [synth [:music :synths :synth]])
             (avg 'synth :score))]
-    (is (= (average [0.8 0.3 0.4 0.6]) (first (query q))))))
+    (is (= (Math/round (* 100 (average [0.8 0.3 0.4 0.6])))
+           (Math/round (* 100 (first (query q))))))))
 
 (deftest limit-test
   (let [q (limit (path [synth [:music :synths :synth]])