diff options
Diffstat (limited to 'test')
| -rw-r--r-- | test/lisp/emacs-lisp/rx-tests.el | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/test/lisp/emacs-lisp/rx-tests.el b/test/lisp/emacs-lisp/rx-tests.el index f15e1016f7c..e14feda347f 100644 --- a/test/lisp/emacs-lisp/rx-tests.el +++ b/test/lisp/emacs-lisp/rx-tests.el | |||
| @@ -53,7 +53,11 @@ | |||
| 53 | ;; Range of raw characters, multibyte. | 53 | ;; Range of raw characters, multibyte. |
| 54 | (should (equal (string-match-p (rx (any "Å\211\326-\377\177")) | 54 | (should (equal (string-match-p (rx (any "Å\211\326-\377\177")) |
| 55 | "XY\355\177\327") | 55 | "XY\355\177\327") |
| 56 | 2))) | 56 | 2)) |
| 57 | ;; Split range; \177-\377ÿ should not be optimised to \177-\377. | ||
| 58 | (should (equal (string-match-p (rx (any "\177-\377" ?ÿ)) | ||
| 59 | "ÿA\310B") | ||
| 60 | 0))) | ||
| 57 | 61 | ||
| 58 | (ert-deftest rx-pcase () | 62 | (ert-deftest rx-pcase () |
| 59 | (should (equal (pcase "a 1 2 3 1 1 b" | 63 | (should (equal (pcase "a 1 2 3 1 1 b" |