diff options
| author | Andrea Corallo <akrl@sdf.org> | 2020-11-14 22:07:54 +0100 |
|---|---|---|
| committer | Andrea Corallo <akrl@sdf.org> | 2020-11-14 22:07:54 +0100 |
| commit | 2a8bf2222dd5d786375c131aa13dd1ea6f0cf104 (patch) | |
| tree | 4f69d049302a8144783ff697f6a73d7e3e585539 /test/lisp/emacs-lisp/rx-tests.el | |
| parent | f702426780475309bdd33ef896d28dd33484246b (diff) | |
| parent | ad29bc74ca9d4e1768698d4002b49c234624e359 (diff) | |
| download | emacs-2a8bf2222dd5d786375c131aa13dd1ea6f0cf104.tar.gz emacs-2a8bf2222dd5d786375c131aa13dd1ea6f0cf104.tar.bz2 emacs-2a8bf2222dd5d786375c131aa13dd1ea6f0cf104.zip | |
Merge remote-tracking branch 'savannah/master' into dev
Diffstat (limited to 'test/lisp/emacs-lisp/rx-tests.el')
| -rw-r--r-- | test/lisp/emacs-lisp/rx-tests.el | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/test/lisp/emacs-lisp/rx-tests.el b/test/lisp/emacs-lisp/rx-tests.el index 59d8c600a20..d2e11cf06aa 100644 --- a/test/lisp/emacs-lisp/rx-tests.el +++ b/test/lisp/emacs-lisp/rx-tests.el @@ -167,7 +167,11 @@ (let ((k "blue")) (should (equal (pcase "<blue>" ((rx "<" (literal k) ">") 'ok)) - 'ok)))) + 'ok))) + (should (equal (pcase "abc" + ((rx (? (let x alpha)) (?? (let y alnum)) ?c) + (list x y))) + '("a" "b")))) (ert-deftest rx-kleene () "Test greedy and non-greedy repetition operators." @@ -540,7 +544,7 @@ (ert-deftest rx-compat () "Test old symbol retained for compatibility (bug#37517)." (should (equal - (with-suppressed-warnings ((obsolete rx-submatch-n)) + (with-no-warnings (rx-submatch-n '(group-n 3 (+ nonl) eol))) "\\(?3:.+$\\)"))) |