diff options
| author | Phil Hagelberg <technomancy@gmail.com> | 2009-10-18 20:53:20 -0700 |
|---|---|---|
| committer | Chouser <chouser@n01se.net> | 2009-10-28 22:37:16 -0400 |
| commit | 9bde10da7b13dd24b5666260d231d79792a34305 (patch) | |
| tree | 6447acac05194001d8ce999288ae72211948ba5e | |
| parent | 7779c99699f29118ee9fc66201c7afdd1a5dd300 (diff) | |
Add test for metadata-carrying deftest. Refs #201
Signed-off-by: Chouser <chouser@n01se.net>
| -rw-r--r-- | test/clojure/test_clojure/test.clj | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/test/clojure/test_clojure/test.clj b/test/clojure/test_clojure/test.clj index aa1fea2d..b96cb60f 100644 --- a/test/clojure/test_clojure/test.clj +++ b/test/clojure/test_clojure/test.clj @@ -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")) |