Add div-by-zero tests

rm-hull · May 11, 2016 · 017bd04 · 017bd04
1 parent f0fecba
commit 017bd04
Show file tree

Hide file tree

Showing 3 changed files with 4 additions and 2 deletions.
diff --git a/src/infix/grammar.clj b/src/infix/grammar.clj
@@ -170,7 +170,7 @@
             (throw (IllegalStateException.
                      (str (name kw) " is not bound in environment")))))))))
 
-(def mulop (binary-op "*" "/" "**" "%" ">>" ">>>" "<<"))
+(def mulop (binary-op "*" "/" "÷" "**" "%" ">>" ">>>" "<<"))
 (def addop (binary-op "+" "-" "|" "&"))
 
 (defn- binary-reducer [op-parser arg-parser]

diff --git a/src/infix/macros.clj b/src/infix/macros.clj
@@ -49,7 +49,7 @@
   ([bindings env expr]
     (cond
       (not (vector? bindings))
-      (throw (IllegalArgumentException. (str "Binding variables is not a vector")))
+      (throw (IllegalArgumentException. "Binding variables is not a vector"))
 
       :else
       (let [b# (binding-vars bindings)]

diff --git a/test/infix/macros_tests.clj b/test/infix/macros_tests.clj
@@ -73,6 +73,8 @@
   (is (= 380175 ((from-string [t] "(t*(t>>5|t>>8))>>(t>>16)") 3425)))
   (is (= 0 ((from-string "(3-2)-1"))))
   (is (= 0 ((from-string "3 - 2 - 1"))))
+  (is (= Double/POSITIVE_INFINITY ((from-string "divide(3, 0)"))))
+  (is (= Double/NEGATIVE_INFINITY ((from-string "-3 ÷ 0"))))
   (is (= 5 ((from-string [t] "t - 2") 7)))
   (is (= 5 ((from-string [t] "t-2") 7)))
   (is (= 5 ((from-string [t] "t- 2") 7)))