From facfbecd912d043d464237185c726882f429398f Mon Sep 17 00:00:00 2001
From: Stuart Sierra <mail@stuartsierra.com>
Date: Mon, 17 Nov 2008 01:26:53 +0000
Subject: test_is.clj: *test-out* defaults to *out*; added each= and all-true

---
 src/clojure/contrib/test_clojure/numbers.clj | 68 ++++++++++++++++------------
 1 file changed, 38 insertions(+), 30 deletions(-)

(limited to 'src/clojure/contrib/test_clojure')

diff --git a/src/clojure/contrib/test_clojure/numbers.clj b/src/clojure/contrib/test_clojure/numbers.clj
index 0e5432ad..54431a9f 100644
--- a/src/clojure/contrib/test_clojure/numbers.clj
+++ b/src/clojure/contrib/test_clojure/numbers.clj
@@ -16,54 +16,62 @@
 
 (deftest Coerced-Byte
   (let [v (byte 3)]
-    (is (instance? Byte v))
-    (is (number? v))
-    (is (integer? v))
-    (is (rational? v))))
+    (all-true
+     (instance? Byte v)
+     (number? v)
+     (integer? v)
+     (rational? v))))
 
 (deftest Coerced-Short
   (let [v (short 3)]
-    (is (instance? Short v))
-    (is (number? v))
-    (is (integer? v))
-    (is (rational? v))))
+    (all-true
+     (instance? Short v)
+     (number? v)
+     (integer? v)
+     (rational? v))))
 
 (deftest Coerced-Integer
   (let [v (int 3)]
-    (is (instance? Integer v))
-    (is (number? v))
-    (is (integer? v))
-    (is (rational? v))))
+    (all-true
+     (instance? Integer v)
+     (number? v)
+     (integer? v)
+     (rational? v))))
 
 (deftest Coerced-Long
   (let [v (long 3)]
-    (is (instance? Long v))
-    (is (number? v))
-    (is (integer? v))
-    (is (rational? v))))
+    (all-true
+     (instance? Long v)
+     (number? v)
+     (integer? v)
+     (rational? v))))
 
 (deftest Coerced-BigInteger
   (let [v (bigint 3)]
-    (is (instance? BigInteger v))
-    (is (number? v))
-    (is (integer? v))
-    (is (rational? v))))
+    (all-true
+     (instance? BigInteger v)
+     (number? v)
+     (integer? v)
+     (rational? v))))
 
 (deftest Coerced-Float
   (let [v (float 3)]
-    (is (instance? Float v))
-    (is (number? v))
-    (is (float? v))))
+    (all-true
+     (instance? Float v)
+     (number? v)
+     (float? v))))
 
 (deftest Coerced-Double
   (let [v (double 3)]
-    (is (instance? Double v))
-    (is (number? v))
-    (is (float? v))))
+    (all-true
+     (instance? Double v)
+     (number? v)
+     (float? v))))
 
 (deftest Coerced-BigDecimal
   (let [v (bigdec 3)]
-    (is (instance? BigDecimal v))
-    (is (number? v))
-    (is (decimal? v))
-    (is (not (float? v)))))
+    (all-true
+     (instance? BigDecimal v)
+     (number? v)
+     (decimal? v)
+     (not (float? v)))))
-- 
cgit v1.2.3-18-g5258