diff options
| author | Stuart Sierra <mail@stuartsierra.com> | 2008-12-23 17:53:38 +0000 |
|---|---|---|
| committer | Stuart Sierra <mail@stuartsierra.com> | 2008-12-23 17:53:38 +0000 |
| commit | 5734c1973183de31683d5bd603ef07fde9522405 (patch) | |
| tree | 2ce4748291fde1411e868ca298b9273352f265d0 /src/clojure/contrib/test_clojure | |
| parent | 81dfc98f8b39fbfe44379e26ff541301523a3342 (diff) | |
test_clojure/evaluation.clj: fix for ArrayMap literals & (eval '(1 2 3))
Diffstat (limited to 'src/clojure/contrib/test_clojure')
| -rw-r--r-- | src/clojure/contrib/test_clojure/evaluation.clj | 7 |
1 files changed, 2 insertions, 5 deletions
diff --git a/src/clojure/contrib/test_clojure/evaluation.clj b/src/clojure/contrib/test_clojure/evaluation.clj index 74da1ed2..b2154fde 100644 --- a/src/clojure/contrib/test_clojure/evaluation.clj +++ b/src/clojure/contrib/test_clojure/evaluation.clj @@ -198,8 +198,7 @@ evaluated values of the objects they contain." (is (= (eval '[x y 3]) [1 2 3])) (is (= (eval '{:x x :y y :z 3}) {:x 1 :y 2 :z 3})) - (is (= (class (eval '{:x x :y y})) - clojure.lang.PersistentHashMap)))) + (is (instance? clojure.lang.IPersistentMap (eval '{:x x :y y}))))) (in-test-ns (test-that @@ -216,9 +215,7 @@ (test-that "Non-empty lists are considered calls" - (throws-with-msg #".*Integer cannot be cast .* clojure\.lang\.IFn.*" - (eval '(1 2 3)) - ClassCastException))) + (is (thrown? Exception (eval '(1 2 3)))))) (deftest Macros) |