aboutsummaryrefslogtreecommitdiff
path: root/src/clojure/contrib/test_clojure/numbers/numbers.clj
diff options
context:
space:
mode:
Diffstat (limited to 'src/clojure/contrib/test_clojure/numbers/numbers.clj')
-rw-r--r--src/clojure/contrib/test_clojure/numbers/numbers.clj69
1 files changed, 0 insertions, 69 deletions
diff --git a/src/clojure/contrib/test_clojure/numbers/numbers.clj b/src/clojure/contrib/test_clojure/numbers/numbers.clj
deleted file mode 100644
index 0e5432ad..00000000
--- a/src/clojure/contrib/test_clojure/numbers/numbers.clj
+++ /dev/null
@@ -1,69 +0,0 @@
-;; Copyright (c) Stephen C. Gilardi. All rights reserved. The use and
-;; distribution terms for this software are covered by the Common Public
-;; License 1.0 (http://opensource.org/licenses/cpl.php) which can be found
-;; in the file CPL.TXT at the root of this distribution. By using this
-;; software in any fashion, you are agreeing to be bound by the terms of
-;; this license. You must not remove this notice, or any other, from this
-;; software.
-;;
-;; clojure.contrib.test-clojure.numbers
-;;
-;; scgilardi (gmail)
-;; Created 30 October 2008
-
-(ns clojure.contrib.test-clojure.numbers
- (:use clojure.contrib.test-is))
-
-(deftest Coerced-Byte
- (let [v (byte 3)]
- (is (instance? Byte v))
- (is (number? v))
- (is (integer? v))
- (is (rational? v))))
-
-(deftest Coerced-Short
- (let [v (short 3)]
- (is (instance? Short v))
- (is (number? v))
- (is (integer? v))
- (is (rational? v))))
-
-(deftest Coerced-Integer
- (let [v (int 3)]
- (is (instance? Integer v))
- (is (number? v))
- (is (integer? v))
- (is (rational? v))))
-
-(deftest Coerced-Long
- (let [v (long 3)]
- (is (instance? Long v))
- (is (number? v))
- (is (integer? v))
- (is (rational? v))))
-
-(deftest Coerced-BigInteger
- (let [v (bigint 3)]
- (is (instance? BigInteger v))
- (is (number? v))
- (is (integer? v))
- (is (rational? v))))
-
-(deftest Coerced-Float
- (let [v (float 3)]
- (is (instance? Float v))
- (is (number? v))
- (is (float? v))))
-
-(deftest Coerced-Double
- (let [v (double 3)]
- (is (instance? Double v))
- (is (number? v))
- (is (float? v))))
-
-(deftest Coerced-BigDecimal
- (let [v (bigdec 3)]
- (is (instance? BigDecimal v))
- (is (number? v))
- (is (decimal? v))
- (is (not (float? v)))))