diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/clojure/contrib/test_clojure/numbers/numbers.clj | 6 | ||||
| -rw-r--r-- | src/clojure/contrib/test_clojure/reader/reader.clj | 16 |
2 files changed, 18 insertions, 4 deletions
diff --git a/src/clojure/contrib/test_clojure/numbers/numbers.clj b/src/clojure/contrib/test_clojure/numbers/numbers.clj index 53bac1b4..0e5432ad 100644 --- a/src/clojure/contrib/test_clojure/numbers/numbers.clj +++ b/src/clojure/contrib/test_clojure/numbers/numbers.clj @@ -6,12 +6,10 @@ ;; this license. You must not remove this notice, or any other, from this ;; software. ;; -;; Tests for the Clojure functions documented at the URL: -;; -;; http://clojure.org/Reader +;; clojure.contrib.test-clojure.numbers ;; ;; scgilardi (gmail) -;; Created 22 October 2008 +;; Created 30 October 2008 (ns clojure.contrib.test-clojure.numbers (:use clojure.contrib.test-is)) diff --git a/src/clojure/contrib/test_clojure/reader/reader.clj b/src/clojure/contrib/test_clojure/reader/reader.clj index e949eff2..3f444e27 100644 --- a/src/clojure/contrib/test_clojure/reader/reader.clj +++ b/src/clojure/contrib/test_clojure/reader/reader.clj @@ -64,6 +64,22 @@ (is (instance? Double 0.0)) (is (instance? Double -0.0)) (is (instance? Double -1.0)) + + ; Read BigDecimal + (is (instance? BigDecimal 2147483647M)) + (is (instance? BigDecimal +1M)) + (is (instance? BigDecimal 1M)) + (is (instance? BigDecimal +0M)) + (is (instance? BigDecimal 0M)) + (is (instance? BigDecimal -0M)) + (is (instance? BigDecimal -1M)) + (is (instance? BigDecimal -2147483648M)) + (is (instance? BigDecimal +1.0M)) + (is (instance? BigDecimal 1.0M)) + (is (instance? BigDecimal +0.0M)) + (is (instance? BigDecimal 0.0M)) + (is (instance? BigDecimal -0.0M)) + (is (instance? BigDecimal -1.0M)) ) |