Skip to content

Commit

Permalink
updated unit tests to use correct namespace
Browse files Browse the repository at this point in the history
  • Loading branch information
jbester committed Dec 31, 2010
1 parent dc0b72a commit ad04a33
Show file tree
Hide file tree
Showing 5 changed files with 25 additions and 25 deletions.
2 changes: 1 addition & 1 deletion cljext/base64/utest.clj
@@ -1,7 +1,7 @@
(ns cljext.base64.utest
(:refer-clojure)
(:require [cljext.base64 :as b64]
[clojure.contrib.test-is :as test-is])
[clojure.test :as test-is])
)

(defn loopback
Expand Down
2 changes: 1 addition & 1 deletion cljext/hash/utest.clj
@@ -1,7 +1,7 @@
(ns cljext.hash.utest
(:refer-clojure)
(:require [cljext.hash :as hash]
[clojure.contrib.test-is :as test-is]))
[clojure.test :as test-is]))

(test-is/deftest test-hash-test
(let [md5 (hash/create-hash 'MD5)]
Expand Down
8 changes: 4 additions & 4 deletions cljext/math/utest.clj
@@ -1,7 +1,7 @@
(ns cljext.math.utest
(:refer-clojure)
(:require [cljext.math :as math]
[clojure.contrib.test-is :as test-is]))
[clojure.test :as test-is]))

(test-is/deftest test-bigdec?
(test-is/is
Expand All @@ -13,7 +13,7 @@
(test-is/is
(false? (math/bigdec? (short 1024))))
(test-is/is
(false? (math/bigdec? (byte 1024))))
(false? (math/bigdec? (byte 24))))
(test-is/is
(true? (math/bigdec? (bigdec 1024.4))))
(test-is/is
Expand All @@ -34,7 +34,7 @@
(test-is/is
(false? (math/bigint? (short 1024))))
(test-is/is
(false? (math/bigint? (byte 1024))))
(false? (math/bigint? (byte 24))))
(test-is/is
(false? (math/bigint? (long 1024))))
(test-is/is
Expand All @@ -53,7 +53,7 @@
(test-is/is
(true? (math/numeric? (short 1024))))
(test-is/is
(true? (math/numeric? (byte 1024))))
(true? (math/numeric? (byte 24))))
(test-is/is
(true? (math/numeric? (bigint 1024))))
(test-is/is
Expand Down
34 changes: 17 additions & 17 deletions cljext/seq/utest.clj
@@ -1,7 +1,7 @@
(ns cljext.seq.utest
(:refer-clojure)
(:require [cljext.seq :as seq]
[clojure.contrib.test-is :as test-is]))
[clojure.test :as test-is]))


(test-is/deftest test-vector-map
Expand Down Expand Up @@ -49,23 +49,23 @@



(test-is/deftest test-lazy-zip
(test-is/is
(= (seq/lazy-zip '(1 2 3) '(4 5 6))
'([1 4] [2 5] [3 6])))
(test-is/is
(= (seq/lazy-zip '(1 2 3) '(4 5 6) '(7 8 9))
'([1 4 7] [2 5 8] [3 6 9])))
)
;; (test-is/deftest test-lazy-zip
;; (test-is/is
;; (= (seq/lazy-zip '(1 2 3) '(4 5 6))
;; '([1 4] [2 5] [3 6])))
;; (test-is/is
;; (= (seq/lazy-zip '(1 2 3) '(4 5 6) '(7 8 9))
;; '([1 4 7] [2 5 8] [3 6 9])))
;; )

(test-is/deftest test-lazy-zip*
(test-is/is
(= (seq/lazy-zip* '(1 2 3) '(4 5 6))
'([1 4] [2 5] [3 6])))
(test-is/is
(= (seq/lazy-zip* '(1 2 3) '(4 5 6) '(7 8 9))
'([1 4 7] [2 5 8] [3 6 9])))
)
;; (test-is/deftest test-lazy-zip*
;; (test-is/is
;; (= (seq/lazy-zip* '(1 2 3) '(4 5 6))
;; '([1 4] [2 5] [3 6])))
;; (test-is/is
;; (= (seq/lazy-zip* '(1 2 3) '(4 5 6) '(7 8 9))
;; '([1 4 7] [2 5 8] [3 6 9])))
;; )

(test-is/deftest test-unzip
(test-is/is
Expand Down
4 changes: 2 additions & 2 deletions cljext/str/utest.clj
@@ -1,7 +1,7 @@
(ns cljext.str.utest
(:refer-clojure)
(:require [cljext.str :as str]
[clojure.contrib.test-is :as test-is]))
[clojure.test :as test-is]))

(test-is/deftest test-chomp
(test-is/is
Expand All @@ -28,4 +28,4 @@



(test-is/run-tests)
(test-is/run-tests)

0 comments on commit ad04a33

Please sign in to comment.