src/test/clojure/clojure/contrib/test_contrib/test_java.clj


1
2
3
4
5
6
7
8
9
10

(ns clojure.contrib.test-contrib.java
  (:use clojure.test clojure.contrib.java))

(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}))))