@@ -72,9 +72,11 @@ (is (re-find #"ab" "abbabba") "Should pass") (is (re-find #"cd" "abbabba") "Should fail")) +(deftest #^{:has-meta true} can-add-metadata-to-tests + (is (:has-meta ^#'can-add-metadata-to-tests) "Should pass")) ;; still have to declare the symbol before testing unbound symbols -(declare does-not-exist) +(declare does-not-exist) (deftest can-test-unbound-symbol (is (= nil does-not-exist) "Should error")) test/clojure/test_clojure/test.clj 7779c99699f29118ee9fc66201c7afdd1a5dd300 Phil Hagelberg technomancy@gmail.com http://github.com/richhickey/clojure/commit/9bde10da7b13dd24b5666260d231d79792a34305 9bde10da7b13dd24b5666260d231d79792a34305 2009-10-28T19:37:16-07:00 2009-10-18T20:53:20-07:00 Add test for metadata-carrying deftest. Refs #201 Signed-off-by: Chouser <chouser@n01se.net> 6447acac05194001d8ce999288ae72211948ba5e Chouser chouser@n01se.net