diff options
author | Stuart Sierra <mail@stuartsierra.com> | 2008-12-17 22:06:15 +0000 |
---|---|---|
committer | Stuart Sierra <mail@stuartsierra.com> | 2008-12-17 22:06:15 +0000 |
commit | cc85eef5f2453aa4b7e2e63c88b623c507eaebe7 (patch) | |
tree | d1786bb7acf6788d2393105f4682b5a0cb0c3932 /src/clojure/contrib/test_clojure/numbers.clj | |
parent | ee71be1a1191d487cce22302d5f35f4a8649da7b (diff) |
numbers.clj: replace use of (all-true ...) with (are _ ...)
Diffstat (limited to 'src/clojure/contrib/test_clojure/numbers.clj')
-rw-r--r-- | src/clojure/contrib/test_clojure/numbers.clj | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/src/clojure/contrib/test_clojure/numbers.clj b/src/clojure/contrib/test_clojure/numbers.clj index f4374eb7..542f1e45 100644 --- a/src/clojure/contrib/test_clojure/numbers.clj +++ b/src/clojure/contrib/test_clojure/numbers.clj @@ -16,7 +16,7 @@ (deftest Coerced-Byte (let [v (byte 3)] - (all-true + (are _ (instance? Byte v) (number? v) (integer? v) @@ -24,7 +24,7 @@ (deftest Coerced-Short (let [v (short 3)] - (all-true + (are _ (instance? Short v) (number? v) (integer? v) @@ -32,7 +32,7 @@ (deftest Coerced-Integer (let [v (int 3)] - (all-true + (are _ (instance? Integer v) (number? v) (integer? v) @@ -40,7 +40,7 @@ (deftest Coerced-Long (let [v (long 3)] - (all-true + (are _ (instance? Long v) (number? v) (integer? v) @@ -48,7 +48,7 @@ (deftest Coerced-BigInteger (let [v (bigint 3)] - (all-true + (are _ (instance? BigInteger v) (number? v) (integer? v) @@ -56,21 +56,21 @@ (deftest Coerced-Float (let [v (float 3)] - (all-true + (are _ (instance? Float v) (number? v) (float? v)))) (deftest Coerced-Double (let [v (double 3)] - (all-true + (are _ (instance? Double v) (number? v) (float? v)))) (deftest Coerced-BigDecimal (let [v (bigdec 3)] - (all-true + (are _ (instance? BigDecimal v) (number? v) (decimal? v) |