diff options
| author | Daniel Mendler <mail@daniel-mendler.de> | 2023-08-01 17:45:17 +0200 |
|---|---|---|
| committer | Daniel Mendler <mail@daniel-mendler.de> | 2023-08-01 17:45:17 +0200 |
| commit | 6f65e6a60449f1e4884987ee3d56199a46fdb82c (patch) | |
| tree | 17d76cab4cc6a84c1b7964fb15e1e6f21e3b4d41 /compat-tests.el | |
| parent | 8b0c4fea55aceef5cc2de84a9bc553d453616654 (diff) | |
compat-29: Add bidi-string-strip-control-charactersfeature/bidi-strip
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 02fa536..19c13ed 100644 --- a/compat-tests.el +++ b/compat-tests.el @@ -1843,6 +1843,12 @@ (dolist (c (list ?a ?b ?α ?β)) (should-not (char-uppercase-p c)))) +(ert-deftest compat-bidi-string-strip-control-characters () + (should-equal (bidi-string-strip-control-characters (apply #'string bidi-control-characters)) "") + (should-equal (bidi-string-strip-control-characters "\x202e") "") + (should-equal (bidi-string-strip-control-characters "abc") "abc") + (should-equal (bidi-string-strip-control-characters "x\x202ey\x202ez") "xyz")) + (ert-deftest compat-string-split () (should-equal '("a" "b" "c") (split-string "a b c")) (should-equal '("a" "b" "c") (string-split "a b c"))) |