Add test sources to their respective modules

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