diff options
author | Stuart Halloway <stu@thinkrelevance.com> | 2010-04-14 09:01:08 -0400 |
---|---|---|
committer | Stuart Halloway <stu@thinkrelevance.com> | 2010-04-16 10:35:40 -0400 |
commit | 8cc50bb5200a21c7256889b8f6da0391d18d2c37 (patch) | |
tree | ea907bcf97541f6302604411f7891fc11ee5ac3e | |
parent | c9927b560ec32efc837727eff4b64bb0bb1f58d4 (diff) |
test for assembla #275
Signed-off-by: Stuart Halloway <stu@thinkrelevance.com>
-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))) |