mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-06 22:41:06 -08:00
Code Issues Projects Releases Wiki Activity

Add 'rx' pattern for pcase.

Browse source 
* lisp/emacs-lisp/rx.el (rx): New pcase macro.
* test/lisp/emacs-lisp/rx-tests.el (rx-pcase): Add unit test.
This commit is contained in:
Philipp Stephani 2017-07-20 21:36:18 +02:00
parent f57c710772
commit ad4eff3b90
4 changed files with 69 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

10
test/lisp/emacs-lisp/rx-tests.el
View file

@ -33,5 +33,15 @@
(number-sequence ?< ?\])
(number-sequence ?- ?:))))))
(ert-deftest rx-pcase ()
(should (equal (pcase "a 1 2 3 1 1 b"
((rx (let u (+ digit)) space
(let v (+ digit)) space
(let v (+ digit)) space
(backref u) space
(backref 1))
(list u v)))
'("1" "3"))))
(provide 'rx-tests)
;; rx-tests.el ends here.