mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

Move some uncontroversial char-folding pairs from test data to default values

Browse source 
* lisp/char-fold.el (char-fold--default-include)
(char-fold--default-exclude): Add some default values.

* test/lisp/char-fold-tests.el (char-fold--test-without-customization)
(char-fold--test-with-customization): Move some test data to
default values.  Add more data for tests to pass.   (Bug#35689)
This commit is contained in:
Juri Linkov 2019-07-29 01:45:36 +03:00
parent d69e1d7056
commit be16c204d6
2 changed files with 45 additions and 26 deletions
Download patch file Download diff file Expand all files Collapse all files

50
test/lisp/char-fold-tests.el
View file

@ -150,47 +150,57 @@
(ert-deftest char-fold--test-without-customization ()
(let* ((matches
'(
("'" "’")
("e" "ℯ" "ḗ" "ë" "ë")
("ι"
"ί" ;; 1 level decomposition
"ί" ;; 2 level decomposition
;; FIXME:
;; "ΐ" ;; 3 level decomposition
"ΐ" ;; 3 level decomposition
)
("ß" "ss")
))
(no-matches
'(
("и" "й")
)))
(dolist (strings matches)
(apply 'char-fold--test-match-exactly strings))))
(apply 'char-fold--test-match-exactly strings))
(dolist (strings no-matches)
(apply 'char-fold--test-no-match-exactly strings))))
(ert-deftest char-fold--test-with-customization ()
:tags '(:expensive-test)
;; FIXME: move some language-specific settings to defaults
(let* ((char-fold-include
'(
(?ß "ss") ;; de
(?o "ø") ;; da no nb nn
(?l "ł") ;; pl
))
;; FIXME: move language-specific settings to defaults
(append char-fold-include
'(
(?o "ø") ;; da no nb nn
(?l "ł") ;; pl
(?æ "ae")
(?→ "->")
(?⇒ "=>")
)))
(char-fold-exclude
'(
(?a "å") ;; sv da no nb nn
(?a "ä") ;; sv fi et
(?o "ö") ;; sv fi et
(?n "ñ") ;; es
(?и "й") ;; ru
))
(append char-fold-exclude
'(
(?a "å") ;; da no nb nn sv
(?a "ä") ;; et fi sv
(?o "ö") ;; et fi sv
(?n "ñ") ;; es
)))
(char-fold-symmetric t)
(char-fold-table (char-fold-make-table))
(matches
'(
("e" "ℯ" "ḗ" "ë" "ë")
("е" "ё" "ё")
("ι" "ί" "ί"
;; FIXME: "ΐ"
)
("ι" "ί" "ί" "ΐ")
("ß" "ss")
("o" "ø")
("l" "ł")
("æ" "ae")
("→" "->")
("⇒" "=>")
))
(no-matches
'(