diff options
| author | Juri Linkov | 2019-07-04 23:49:33 +0300 |
|---|---|---|
| committer | Juri Linkov | 2019-07-04 23:49:33 +0300 |
| commit | 19b1cefa3ba00ea383bd0910523c6e972fedbe02 (patch) | |
| tree | 2ca0649d576434fb9604593ea8845e422577134b /test | |
| parent | 4a754df8858dc7acec9413f4f11064230d6741cf (diff) | |
| download | emacs-19b1cefa3ba00ea383bd0910523c6e972fedbe02.tar.gz emacs-19b1cefa3ba00ea383bd0910523c6e972fedbe02.zip | |
* 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 @@ | |||
| 82 | (set-char-table-extra-slot char-fold-table 0 multi) | 82 | (set-char-table-extra-slot char-fold-table 0 multi) |
| 83 | (char-fold--test-match-exactly (car it) (cdr it))))) | 83 | (char-fold--test-match-exactly (car it) (cdr it))))) |
| 84 | 84 | ||
| 85 | (ert-deftest char-fold--test-multi-lax () | ||
| 86 | (dolist (it '(("f" . "fi") ("f" . "ff"))) | ||
| 87 | (with-temp-buffer | ||
| 88 | (insert (cdr it)) | ||
| 89 | (goto-char (point-min)) | ||
| 90 | (should (search-forward-regexp | ||
| 91 | (char-fold-to-regexp (car it) 'lax) nil 'noerror))))) | ||
| 92 | |||
| 85 | (ert-deftest char-fold--test-fold-to-regexp () | 93 | (ert-deftest char-fold--test-fold-to-regexp () |
| 86 | (let ((char-fold-table (make-char-table 'char-fold-table)) | 94 | (let ((char-fold-table (make-char-table 'char-fold-table)) |
| 87 | (multi (make-char-table 'char-fold-table))) | 95 | (multi (make-char-table 'char-fold-table))) |