diff options
| author | Stuart Sierra <mail@stuartsierra.com> | 2009-06-05 20:55:45 +0000 |
|---|---|---|
| committer | Stuart Sierra <mail@stuartsierra.com> | 2009-06-05 20:55:45 +0000 |
| commit | bea244b4d5e8512d4d659c0308a7781a606bccfd (patch) | |
| tree | 23fcfaa173cf14a2d1310587fd3751e8d5734810 /src/clojure/contrib/test_contrib | |
| parent | 66d0c223cf49a69deb93591f651f7aaeed0b991b (diff) | |
str_utils2.clj: added codepoints and docodepoints
Diffstat (limited to 'src/clojure/contrib/test_contrib')
| -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"))) |