diff options
Diffstat (limited to 'src/clojure/contrib/test_clojure/reader')
| -rw-r--r-- | src/clojure/contrib/test_clojure/reader/reader.clj | 16 |
1 files changed, 16 insertions, 0 deletions
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)) ) |