diff options
author | scgilardi <scgilardi@gmail.com> | 2008-11-16 17:20:48 +0000 |
---|---|---|
committer | scgilardi <scgilardi@gmail.com> | 2008-11-16 17:20:48 +0000 |
commit | 9784ebfab888a43f0d18663d39de744cf997f38a (patch) | |
tree | bbaf3d78c092f8622c5f0d2f9c86d01256345fae /src/clojure/contrib/test_clojure/numbers/numbers.clj | |
parent | b73be8505e49ba987e33ce98a1cba9549512265e (diff) |
delete my contribs at their pre-SVN1088 locations
Diffstat (limited to 'src/clojure/contrib/test_clojure/numbers/numbers.clj')
-rw-r--r-- | src/clojure/contrib/test_clojure/numbers/numbers.clj | 69 |
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))))) |