diff options
| author | Lars Ingebrigtsen <larsi@gnus.org> | 2022-01-18 10:24:32 +0100 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2022-01-18 10:24:32 +0100 |
| commit | 4eebf528fca6f6f16168c4f76a653353f3598a35 (patch) | |
| tree | ed76cf47fff33570e36280836ccf142d7cdc1596 /test/lisp/international | |
| parent | 19fefea1ca567cc08c67a2167f8e366483b1c013 (diff) | |
| download | emacs-4eebf528fca6f6f16168c4f76a653353f3598a35.tar.gz emacs-4eebf528fca6f6f16168c4f76a653353f3598a35.tar.bz2 emacs-4eebf528fca6f6f16168c4f76a653353f3598a35.zip | |
Add textsec predicates for different types of confusability
* lisp/international/textsec.el (textsec-resolved-script-set)
(textsec-single-script-confusable-p)
(textsec-mixed-script-confusable-p)
(textsec-whole-script-confusable-p): New functions.
Diffstat (limited to 'test/lisp/international')
| -rw-r--r-- | test/lisp/international/textsec-tests.el | 19 |
1 files changed, 18 insertions, 1 deletions
diff --git a/test/lisp/international/textsec-tests.el b/test/lisp/international/textsec-tests.el index 50106bb955e..15b6b21b348 100644 --- a/test/lisp/international/textsec-tests.el +++ b/test/lisp/international/textsec-tests.el @@ -86,11 +86,28 @@ (should-not (textsec-mixed-numbers-p "8foo8")) (should (textsec-mixed-numbers-p "8foo৪"))) +(ert-deftest test-resolved () + (should (equal (textsec-resolved-script-set "ljeto") + '(latin))) + (should-not (textsec-resolved-script-set "Сirсlе"))) + (ert-deftest test-confusable () (should (equal (textsec-unconfuse-string "ljeto") "ljeto")) (should (textsec-ascii-confusable-p "ljeto")) (should-not (textsec-ascii-confusable-p "ljeto")) (should (equal (textsec-unconfuse-string "～") "〜")) - (should-not (textsec-ascii-confusable-p "～"))) + (should-not (textsec-ascii-confusable-p "～")) + + (should (textsec-single-script-confusable-p "ljeto" "ljeto")) + (should-not (textsec-single-script-confusable-p "paypal" "pаypаl")) + (should-not (textsec-single-script-confusable-p "scope""ѕсоре")) + + (should-not (textsec-mixed-script-confusable-p "ljeto" "ljeto")) + (should (textsec-mixed-script-confusable-p "paypal" "pаypаl")) + (should (textsec-mixed-script-confusable-p "scope""ѕсоре")) + + (should-not (textsec-whole-script-confusable-p "ljeto" "ljeto")) + (should-not (textsec-whole-script-confusable-p "paypal" "pаypаl")) + (should (textsec-whole-script-confusable-p "scope""ѕсоре"))) ;;; textsec-tests.el ends here |