summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorStuart Halloway <stu@thinkrelevance.com>2010-04-14 09:01:08 -0400
committerStuart Halloway <stu@thinkrelevance.com>2010-04-16 10:35:40 -0400
commit8cc50bb5200a21c7256889b8f6da0391d18d2c37 (patch)
treeea907bcf97541f6302604411f7891fc11ee5ac3e
parentc9927b560ec32efc837727eff4b64bb0bb1f58d4 (diff)
test for assembla #275
Signed-off-by: Stuart Halloway <stu@thinkrelevance.com>
-rw-r--r--test/clojure/test_clojure/numbers.clj6
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)))