diff options
| author | Stuart Halloway <stu@thinkrelevance.com> | 2009-08-23 12:22:49 -0400 |
|---|---|---|
| committer | Stuart Halloway <stu@thinkrelevance.com> | 2009-08-23 12:22:49 -0400 |
| commit | 6b763062af9568c1b069d5f86c8d5481a3fdfeea (patch) | |
| tree | f83f33e12cd5eb07244563eb5ccd2d08c4db8eb1 /src/clojure/contrib/test_contrib/java_utils.clj | |
| parent | 07eef46b22f27a61784c11be03ff0159fac50b38 (diff) | |
| parent | 835bfe2a02c70c150f2354f8ef9e866f3e2fd180 (diff) | |
Merge branch 'master' of git@github.com:richhickey/clojure-contrib
Diffstat (limited to 'src/clojure/contrib/test_contrib/java_utils.clj')
| -rw-r--r-- | src/clojure/contrib/test_contrib/java_utils.clj | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/src/clojure/contrib/test_contrib/java_utils.clj b/src/clojure/contrib/test_contrib/java_utils.clj new file mode 100644 index 00000000..44901ad1 --- /dev/null +++ b/src/clojure/contrib/test_contrib/java_utils.clj @@ -0,0 +1,10 @@ +(ns clojure.contrib.test-contrib.java-utils + (:use clojure.test clojure.contrib.java-utils)) + +(deftest t-as-str + (is (= "foo" (as-str "foo"))) + (is (= "foo" (as-str 'foo))) + (is (= "foo" (as-str :foo))) + (is (= "[1 2 3]" (as-str [1 2 3]))) + (is (= "Hello, World!" (as-str "Hello, " :World \!))) + (is (= (str {:foo :bar}) (as-str {:foo :bar})))) |