From aaa2f33f451953de58ade056bda5c8e40d5b6459 Mon Sep 17 00:00:00 2001 From: Rich Hickey Date: Tue, 15 Jun 2010 10:52:23 -0400 Subject: move tests into range of long --- src/test/clojure/clojure/contrib/test_math.clj | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/test/clojure/clojure/contrib/test_math.clj b/src/test/clojure/clojure/contrib/test_math.clj index d7c6eaea..3b2f4e8a 100644 --- a/src/test/clojure/clojure/contrib/test_math.clj +++ b/src/test/clojure/clojure/contrib/test_math.clj @@ -5,7 +5,7 @@ (deftest test-expt (are [x y] (= x y) (expt 2 3) 8 - (expt (expt 2 32) 2) (expt 2 64) + (expt (expt 2 16) 2) (expt 2 32) (expt 4/3 2) 16/9 (expt 2 -10) 1/1024 (expt 0.5M 2) 0.25M @@ -114,5 +114,5 @@ (deftest test-exact-integer-sqrt (are [x y] (= x y) (exact-integer-sqrt 15) [3 6] - (exact-integer-sqrt (inc (expt 2 64))) [(expt 2 32) 1] + (exact-integer-sqrt (inc (expt 2 32))) [(expt 2 16) 1] (exact-integer-sqrt 1000000000000) [1000000 0])) -- cgit v1.2.3-18-g5258