Regression in divide operator precedence - fixes #19

Also add red/green test to reproduce error
rm-hull · Jun 18, 2016 · de4fd7a · de4fd7a
1 parent a994274
commit de4fd7a
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 1 deletion.
diff --git a/src/infix/core.clj b/src/infix/core.clj
@@ -86,7 +86,7 @@
    ;; binary operators
    'or 'and 'bit-or 'bit-xor 'bit-and 'not= '= '>= '> '<= '<
    'unsigned-bit-shift-right 'bit-shift-right 'bit-shift-left
-   '- '+ '/ 'infix.math/divide '* 'Math/pow 'mod
+   '- '+ '/ 'infix.math.core/divide '* 'Math/pow 'mod
 
    ;; unary operators
    'not

diff --git a/test/infix/macros_tests.clj b/test/infix/macros_tests.clj
@@ -113,3 +113,7 @@
     (doseq [t (repeatedly 50 #(rand-int 1000000))]
       (is (= (f t) (infix (t >> 5 | t >> 8)))
           (str "Incorrect evaluation for t=" t)))))
+
+(deftest check-division-precedence
+  (let [x 0 y 1]
+    (is (= 0.0 (infix sin(x ÷ y ** 2))))))