diff options
Diffstat (limited to 'src/clojure/contrib/test_contrib/str_utils2.clj')
| -rw-r--r-- | src/clojure/contrib/test_contrib/str_utils2.clj | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/src/clojure/contrib/test_contrib/str_utils2.clj b/src/clojure/contrib/test_contrib/str_utils2.clj index 981b5d31..d7d9b131 100644 --- a/src/clojure/contrib/test_contrib/str_utils2.clj +++ b/src/clojure/contrib/test_contrib/str_utils2.clj @@ -37,3 +37,8 @@ (deftest t-replace-first (is (= "barbarfoo" (s/replace-first "foobarfoo" #"foo" "bar"))) (is (= "FOObarfoo" (s/replace-first "foobarfoo" #"foo" s/upper-case)))) + +(deftest t-codepoints + (is (= (list 102 111 111 65536 98 97 114) + (s/codepoints "foo\uD800\uDC00bar")) + "Handles Unicode supplementary characters"))) |