From 4eebf528fca6f6f16168c4f76a653353f3598a35 Mon Sep 17 00:00:00 2001 From: Lars Ingebrigtsen Date: Tue, 18 Jan 2022 10:24:32 +0100 Subject: 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. --- test/lisp/international/textsec-tests.el | 19 ++++++++++++++++++- 1 file changed, 18 insertions(+), 1 deletion(-) (limited to 'test/lisp/international') 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 -- cgit v1.2.3