diff options
Diffstat (limited to 'test/clojure/test_clojure')
| -rw-r--r-- | test/clojure/test_clojure/numbers.clj | 2 | ||||
| -rw-r--r-- | test/clojure/test_clojure/reader.clj | 11 |
2 files changed, 7 insertions, 6 deletions
diff --git a/test/clojure/test_clojure/numbers.clj b/test/clojure/test_clojure/numbers.clj index 52eb224c..9c6be05f 100644 --- a/test/clojure/test_clojure/numbers.clj +++ b/test/clojure/test_clojure/numbers.clj @@ -343,7 +343,7 @@ (defn- expt "clojure.contrib.math/expt is a better and much faster impl, but this works. Math/pow overflows to Infinity." - [x n] (apply * (replicate n x))) + [x n] (apply *' (replicate n x))) (deftest test-bit-shift-left (are [x y] (= x y) diff --git a/test/clojure/test_clojure/reader.clj b/test/clojure/test_clojure/reader.clj index e3bee190..e1ef9253 100644 --- a/test/clojure/test_clojure/reader.clj +++ b/test/clojure/test_clojure/reader.clj @@ -17,7 +17,8 @@ ;; Created 22 October 2008 (ns clojure.test-clojure.reader - (:use clojure.test)) + (:use clojure.test) + (:import clojure.lang.BigInt)) ;; Symbols @@ -81,10 +82,10 @@ sequence)))) ; Read BigInteger - (is (instance? BigInteger 9223372036854775808)) - (is (instance? BigInteger -9223372036854775809)) - (is (instance? BigInteger 10000000000000000000000000000000000000000000000000)) - (is (instance? BigInteger -10000000000000000000000000000000000000000000000000)) + (is (instance? BigInt 9223372036854775808)) + (is (instance? BigInt -9223372036854775809)) + (is (instance? BigInt 10000000000000000000000000000000000000000000000000)) + (is (instance? BigInt -10000000000000000000000000000000000000000000000000)) ; Read Double (is (instance? Double +1.0e+1)) |