From 5dfd27a126bba464e12183b8a96102742e93a9e7 Mon Sep 17 00:00:00 2001 From: scgilardi Date: Thu, 29 Jan 2009 06:18:17 +0000 Subject: test-clojure.reader: fix some number tests for current clojure and added some. all pass currently --- src/clojure/contrib/test_clojure/reader.clj | 16 ++++++++++++++-- 1 file changed, 14 insertions(+), 2 deletions(-) (limited to 'src/clojure/contrib/test_clojure') diff --git a/src/clojure/contrib/test_clojure/reader.clj b/src/clojure/contrib/test_clojure/reader.clj index 38aa5dad..7351dfb2 100644 --- a/src/clojure/contrib/test_clojure/reader.clj +++ b/src/clojure/contrib/test_clojure/reader.clj @@ -53,19 +53,31 @@ (is (instance? Integer -1)) (is (instance? Integer -2147483648)) + ; Read Long + (is (instance? Long 2147483648)) + (is (instance? Long -2147483649)) + (is (instance? Long 9223372036854775807)) + (is (instance? Long -9223372036854775808)) + ; Read BigInteger - (is (instance? BigInteger 2147483648)) - (is (instance? BigInteger -2147483649)) + (is (instance? BigInteger 9223372036854775808)) + (is (instance? BigInteger -9223372036854775809)) + (is (instance? BigInteger 10000000000000000000000000000000000000000000000000)) + (is (instance? BigInteger -10000000000000000000000000000000000000000000000000)) ; Read Double + (is (instance? Double +1.0e1)) (is (instance? Double +1.0)) (is (instance? Double 1.0)) (is (instance? Double +0.0)) (is (instance? Double 0.0)) (is (instance? Double -0.0)) (is (instance? Double -1.0)) + (is (instance? Double -1.0e1)) ; Read BigDecimal + (is (instance? BigDecimal 9223372036854775808M)) + (is (instance? BigDecimal -9223372036854775809M)) (is (instance? BigDecimal 2147483647M)) (is (instance? BigDecimal +1M)) (is (instance? BigDecimal 1M)) -- cgit v1.2.3-18-g5258