added apropos (per Michel Salim, plus re support)

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)))))