diff options
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"))) |