diff options
| author | Lars Ingebrigtsen <larsi@gnus.org> | 2022-01-17 16:24:17 +0100 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2022-01-17 16:24:17 +0100 |
| commit | a1ffee1e82b7152772da86a3adc7513128ffefdf (patch) | |
| tree | 4b708c7f244a2944b58ffd482b748f12ff3b3253 /test/lisp/international | |
| parent | 523a96a99ed7fe21c945b8e1cd0e3a2bc76c4ba0 (diff) | |
| download | emacs-a1ffee1e82b7152772da86a3adc7513128ffefdf.tar.gz emacs-a1ffee1e82b7152772da86a3adc7513128ffefdf.tar.bz2 emacs-a1ffee1e82b7152772da86a3adc7513128ffefdf.zip | |
Add textsec-restriction-level function
* lisp/international/textsec.el (textsec-restriction-level): New
function.
Diffstat (limited to 'test/lisp/international')
| -rw-r--r-- | test/lisp/international/textsec-tests.el | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/test/lisp/international/textsec-tests.el b/test/lisp/international/textsec-tests.el index c80b2ba0fdf..7c56229e983 100644 --- a/test/lisp/international/textsec-tests.el +++ b/test/lisp/international/textsec-tests.el @@ -69,4 +69,16 @@ (should (equal (textsec-covering-scripts "〆切") '(han)))) +(ert-deftest test-restriction-level () + (should (eq (textsec-restriction-level "foo") + 'ascii-only)) + (should (eq (textsec-restriction-level "C𝗂𝗋𝖼𝗅𝖾") + 'single-script)) + (should (eq (textsec-restriction-level "切foo") + 'highly-restrictive)) + (should (eq (textsec-restriction-level "հfoo") + 'moderately-retrictive)) + (should (eq (textsec-restriction-level "Сirсlе") + 'unrestricted))) + ;;; textsec-tests.el ends here |