aboutsummaryrefslogtreecommitdiffstats
path: root/test
diff options
context:
space:
mode:
Diffstat (limited to 'test')
-rw-r--r--test/lisp/emacs-lisp/rx-tests.el6
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"