diff options
| author | Mark Engelberg <mark.engelberg@gmail.com> | 2009-03-29 18:25:26 +0000 |
|---|---|---|
| committer | Mark Engelberg <mark.engelberg@gmail.com> | 2009-03-29 18:25:26 +0000 |
| commit | 525aca5249a492296d22496f4f71625f143f3291 (patch) | |
| tree | 96b2ac6fd5294470d9af7edf6f389fe1dba3b6f2 | |
| parent | e1eab3a8509976c1c83851803348e29ca239abcf (diff) | |
Added test to exact-integer-sqrt for Longs.
| -rw-r--r-- | src/clojure/contrib/math/tests.clj | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/clojure/contrib/math/tests.clj b/src/clojure/contrib/math/tests.clj index 64a77cfb..fd66acd3 100644 --- a/src/clojure/contrib/math/tests.clj +++ b/src/clojure/contrib/math/tests.clj @@ -114,4 +114,5 @@ (deftest test-exact-integer-sqrt
(are (= _1 _2)
(exact-integer-sqrt 15) [3 6]
- (exact-integer-sqrt (inc (expt 2 64))) [(expt 2 32) 1]))
+ (exact-integer-sqrt (inc (expt 2 64))) [(expt 2 32) 1])
+ (exact-integer-sqrt 1000000000000) [1000000 0])
|