diff options
| -rw-r--r-- | test/clojure/test_clojure/numbers.clj | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/test/clojure/test_clojure/numbers.clj b/test/clojure/test_clojure/numbers.clj index 2283ccf4..78e0bdd7 100644 --- a/test/clojure/test_clojure/numbers.clj +++ b/test/clojure/test_clojure/numbers.clj @@ -164,6 +164,10 @@ (is (> (* 3 (int (/ Integer/MAX_VALUE 2.0))) Integer/MAX_VALUE)) ) ; no overflow +(deftest test-ratios-simplify-to-ints-where-appropriate + (testing "negative denominator (assembla #275)" + (is (integer? (/ 1 -1/2))) + (is (integer? (/ 0 -1/2))))) (deftest test-divide (are [x y] (= x y) @@ -435,4 +439,4 @@ Math/pow overflows to Infinity." (deftest test-ratios (is (= (denominator 1/2) 2)) - (is (= (numerator 1/2) 1)))
\ No newline at end of file + (is (= (numerator 1/2) 1))) |