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