diff options
Diffstat (limited to 'src/test/clojure/clojure/contrib/test_repl_utils.clj')
| -rw-r--r-- | src/test/clojure/clojure/contrib/test_repl_utils.clj | 21 |
1 files changed, 21 insertions, 0 deletions
diff --git a/src/test/clojure/clojure/contrib/test_repl_utils.clj b/src/test/clojure/clojure/contrib/test_repl_utils.clj new file mode 100644 index 00000000..ac8376e8 --- /dev/null +++ b/src/test/clojure/clojure/contrib/test_repl_utils.clj @@ -0,0 +1,21 @@ +(ns clojure.contrib.test-repl-utils + (:use clojure.test + clojure.contrib.repl-utils + [clojure.contrib.seq :only (includes?)])) + +(deftest test-apropos + (testing "with a regular expression" + (is (= '[defmacro] (apropos #"^defmacro$"))) + (is (includes? (apropos #"def.acr.") 'defmacro)) + (is (= [] (apropos #"nothing-has-this-name")))) + + + (testing "with a string" + (is (includes? (apropos "defmacro") 'defmacro)) + (is (includes? (apropos "efmac") 'defmacro)) + (is (= [] (apropos "nothing-has-this-name")))) + + (testing "with a symbol" + (is (includes? (apropos 'defmacro) 'defmacro)) + (is (includes? (apropos 'efmac) 'defmacro)) + (is (= [] (apropos 'nothing-has-this-name))))) |