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 | 13 |
1 files changed, 6 insertions, 7 deletions
diff --git a/src/test/clojure/clojure/contrib/test_repl_utils.clj b/src/test/clojure/clojure/contrib/test_repl_utils.clj index ac8376e8..77ae2aae 100644 --- a/src/test/clojure/clojure/contrib/test_repl_utils.clj +++ b/src/test/clojure/clojure/contrib/test_repl_utils.clj @@ -1,21 +1,20 @@ (ns clojure.contrib.test-repl-utils (:use clojure.test - clojure.contrib.repl-utils - [clojure.contrib.seq :only (includes?)])) + clojure.contrib.repl-utils)) (deftest test-apropos (testing "with a regular expression" (is (= '[defmacro] (apropos #"^defmacro$"))) - (is (includes? (apropos #"def.acr.") 'defmacro)) + (is (seq-contains? (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 (seq-contains? (apropos "defmacro") 'defmacro)) + (is (seq-contains? (apropos "efmac") 'defmacro)) (is (= [] (apropos "nothing-has-this-name")))) (testing "with a symbol" - (is (includes? (apropos 'defmacro) 'defmacro)) - (is (includes? (apropos 'efmac) 'defmacro)) + (is (seq-contains? (apropos 'defmacro) 'defmacro)) + (is (seq-contains? (apropos 'efmac) 'defmacro)) (is (= [] (apropos 'nothing-has-this-name))))) |