diff options
| author | scgilardi <scgilardi@gmail.com> | 2008-10-30 16:47:14 +0000 |
|---|---|---|
| committer | scgilardi <scgilardi@gmail.com> | 2008-10-30 16:47:14 +0000 |
| commit | 898cedd75b5bf44446e49aaeb614a091cf20e84b (patch) | |
| tree | 8dfcdfa1b0d50e8876b5c544c47305f723f29b87 /src/clojure/contrib/test_clojure/reader | |
| parent | 89c615f39c4b48d5193cefa531bdba062944f6a1 (diff) | |
test-clojure: add BigDecimal reader tests, fix comments in numbers
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)) ) |