diff options
| author | Martin Edström <meedstrom91@gmail.com> | 2025-11-04 15:25:07 +0100 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2025-11-04 15:25:07 +0100 |
| commit | 393c6b02fe1f5bcd02d7f419ff4b08a6087c032a (patch) | |
| tree | 66d9fd6036aa459d9a2b9abe57d6907931064ffa /compat-tests.el | |
| parent | cccd41f549fa88031a32deb26253b462021d7e12 (diff) | |
compat-29: Add string-glyph-compose and string-glyph-decompose (#76)
Diffstat (limited to 'compat-tests.el')
| -rw-r--r-- | compat-tests.el | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/compat-tests.el b/compat-tests.el index cff3ff2..5a0a093 100644 --- a/compat-tests.el +++ b/compat-tests.el @@ -1946,6 +1946,12 @@ (should-equal '("a" "b" "c") (split-string "a b c")) (should-equal '("a" "b" "c") (string-split "a b c"))) +(ert-deftest compat-string-glyph-decompose () + (should-equal 10 (length (string-to-list (string-glyph-decompose "àèìòù"))))) + +(ert-deftest compat-string-glyph-compose () + (should-equal "àèìòù" (string-glyph-compose (string-glyph-decompose "àèìòù")))) + (ert-deftest compat-string-equal-ignore-case () (should (string-equal-ignore-case "abc" "abc")) (should (string-equal-ignore-case "abc" "ABC")) |