diff options
author | Juri Linkov <juri@linkov.net> | 2019-07-04 23:49:33 +0300 |
---|---|---|
committer | Juri Linkov <juri@linkov.net> | 2019-07-04 23:49:33 +0300 |
commit | 19b1cefa3ba00ea383bd0910523c6e972fedbe02 (patch) | |
tree | 2ca0649d576434fb9604593ea8845e422577134b /test | |
parent | 4a754df8858dc7acec9413f4f11064230d6741cf (diff) | |
download | emacs-19b1cefa3ba00ea383bd0910523c6e972fedbe02.tar.gz |
* lisp/char-fold.el (char-fold-to-regexp): Implement arg LAX (bug#36398).
* test/lisp/char-fold-tests.el (char-fold--test-multi-lax): New test.
Diffstat (limited to 'test')
-rw-r--r-- | test/lisp/char-fold-tests.el | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/test/lisp/char-fold-tests.el b/test/lisp/char-fold-tests.el index 3fde312a133..e9dfd2b7336 100644 --- a/test/lisp/char-fold-tests.el +++ b/test/lisp/char-fold-tests.el @@ -82,6 +82,14 @@ (set-char-table-extra-slot char-fold-table 0 multi) (char-fold--test-match-exactly (car it) (cdr it))))) +(ert-deftest char-fold--test-multi-lax () + (dolist (it '(("f" . "fi") ("f" . "ff"))) + (with-temp-buffer + (insert (cdr it)) + (goto-char (point-min)) + (should (search-forward-regexp + (char-fold-to-regexp (car it) 'lax) nil 'noerror))))) + (ert-deftest char-fold--test-fold-to-regexp () (let ((char-fold-table (make-char-table 'char-fold-table)) (multi (make-char-table 'char-fold-table))) |