diff options
Diffstat (limited to 'src/test/clojure')
| -rw-r--r-- | src/test/clojure/clojure/contrib/test_contrib/str_utils3.clj | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/src/test/clojure/clojure/contrib/test_contrib/str_utils3.clj b/src/test/clojure/clojure/contrib/test_contrib/str_utils3.clj index 2625c168..9fcb176d 100644 --- a/src/test/clojure/clojure/contrib/test_contrib/str_utils3.clj +++ b/src/test/clojure/clojure/contrib/test_contrib/str_utils3.clj @@ -48,13 +48,13 @@ (is (= "tab" (s/reverse "bat")))) (deftest t-replace - (is (= "faabar" (s/replace \o \a "foobar"))) - (is (= "barbarbar" (s/replace "foo" "bar" "foobarfoo"))) - (is (= "FOObarFOO" (s/replace #"foo" s/upper-case "foobarfoo")))) + (is (= "faabar" (s/replace-char \o \a "foobar"))) + (is (= "barbarbar" (s/replace-str "foo" "bar" "foobarfoo"))) + (is (= "FOObarFOO" (s/replace-by #"foo" s/upper-case "foobarfoo")))) (deftest t-replace-first - (is (= "barbarfoo" (s/replace-first #"foo" "bar" "foobarfoo"))) - (is (= "FOObarfoo" (s/replace-first #"foo" s/upper-case "foobarfoo")))) + (is (= "barbarfoo" (s/replace-first-re #"foo" "bar" "foobarfoo"))) + (is (= "FOObarfoo" (s/replace-first-by #"foo" s/upper-case "foobarfoo")))) (deftest t-partition (is (= (list "" "abc" "123" "def") |