fix issue 16: test-clojure/evaluation: from Shawn Hoover

1 files changed, 11 insertions, 3 deletions

diff --git a/src/clojure/contrib/test_clojure/evaluation.clj b/src/clojure/contrib/test_clojure/evaluation.clj
index c8a5f0ba..fdd84bba 100644
--- a/src/clojure/contrib/test_clojure/evaluation.clj
+++ b/src/clojure/contrib/test_clojure/evaluation.clj
@@ -182,10 +182,18 @@
 
 ;;; Metadata tests ;;;
 
-; If a Symbol has metadata, it will not be part of the resulting value
+(defstruct struct-with-symbols (with-meta 'k {:a "A"}))
+
 (deftest Metadata
-  (is (not (nil? (meta (with-meta (symbol "test") {:doc "doc"})))))
-  (is (nil? (meta (eval (with-meta (symbol "test") {:doc "doc"}))))))
+  (test-that 
+    "If a Symbol has metadata, it will not be part of the resulting value"
+    (is (not (nil? (meta (with-meta (symbol "test") {:doc "doc"})))))
+    (is (nil? (meta (eval (with-meta (symbol "test") {:doc "doc"}))))))
+
+  (test-that
+    "find returns key symbols and their metadata"
+    (let [s (struct struct-with-symbols 1)]
+      (is (= {:a "A"} (meta (first (find s 'k))))))))
 
 ;;; Collections tests ;;;
 (def x 1)