test-clojure: add BigDecimal reader tests, fix comments in numbers

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))
 )