diff options
| author | Frantisek Sodomka <fsodomka@gmail.com> | 2009-07-06 22:56:19 +0200 |
|---|---|---|
| committer | Chouser <chouser@n01se.net> | 2009-07-25 02:04:05 -0400 |
| commit | 6e29153854c799cb46abc23382059d6ee20e755e (patch) | |
| tree | 7ada9628db811a03083023f78c3f5d51f7ff31e8 | |
| parent | dc5b4e60b88b9183e40a2427ef91b64c45c42ac3 (diff) | |
fixed test-clojure, refs #144
Signed-off-by: Chouser <chouser@n01se.net>
| -rw-r--r-- | test/clojure/test_clojure/numbers.clj | 20 |
1 files changed, 10 insertions, 10 deletions
diff --git a/test/clojure/test_clojure/numbers.clj b/test/clojure/test_clojure/numbers.clj index 9f3cfdb2..597cedff 100644 --- a/test/clojure/test_clojure/numbers.clj +++ b/test/clojure/test_clojure/numbers.clj @@ -24,7 +24,7 @@ (deftest Coerced-Byte (let [v (byte 3)] - (are [x] + (are [x] (true? x) (instance? Byte v) (number? v) (integer? v) @@ -32,7 +32,7 @@ (deftest Coerced-Short (let [v (short 3)] - (are [x] + (are [x] (true? x) (instance? Short v) (number? v) (integer? v) @@ -40,7 +40,7 @@ (deftest Coerced-Integer (let [v (int 3)] - (are [x] + (are [x] (true? x) (instance? Integer v) (number? v) (integer? v) @@ -48,7 +48,7 @@ (deftest Coerced-Long (let [v (long 3)] - (are [x] + (are [x] (true? x) (instance? Long v) (number? v) (integer? v) @@ -56,7 +56,7 @@ (deftest Coerced-BigInteger (let [v (bigint 3)] - (are [x] + (are [x] (true? x) (instance? BigInteger v) (number? v) (integer? v) @@ -64,21 +64,21 @@ (deftest Coerced-Float (let [v (float 3)] - (are [x] + (are [x] (true? x) (instance? Float v) (number? v) (float? v)))) (deftest Coerced-Double (let [v (double 3)] - (are [x] + (are [x] (true? x) (instance? Double v) (number? v) (float? v)))) (deftest Coerced-BigDecimal (let [v (bigdec 3)] - (are [x] + (are [x] (true? x) (instance? BigDecimal v) (number? v) (decimal? v) @@ -370,7 +370,7 @@ ;; even? odd? (deftest test-even? - (are [x] + (are [x] (true? x) (even? -4) (not (even? -3)) (even? 0) @@ -380,7 +380,7 @@ (is (thrown? ArithmeticException (even? (double 10))))) (deftest test-odd? - (are [x] + (are [x] (true? x) (not (odd? -4)) (odd? -3) (not (odd? 0)) |