diff options
| author | Philipp Stephani <phst@google.com> | 2017-07-20 21:36:18 +0200 |
|---|---|---|
| committer | Philipp Stephani <phst@google.com> | 2017-07-23 22:32:23 +0200 |
| commit | ad4eff3b905dbc32e2d38bfec1e4f93eceec288d (patch) | |
| tree | 9645505457f716c9aab23e1417bfbdf6a7380710 /test/lisp/emacs-lisp/rx-tests.el | |
| parent | f57c7107727a615e217f1c245c400722c1422870 (diff) | |
| download | emacs-ad4eff3b905dbc32e2d38bfec1e4f93eceec288d.tar.gz emacs-ad4eff3b905dbc32e2d38bfec1e4f93eceec288d.tar.bz2 emacs-ad4eff3b905dbc32e2d38bfec1e4f93eceec288d.zip | |
Add 'rx' pattern for pcase.
* lisp/emacs-lisp/rx.el (rx): New pcase macro.
* test/lisp/emacs-lisp/rx-tests.el (rx-pcase): Add unit test.
Diffstat (limited to 'test/lisp/emacs-lisp/rx-tests.el')
| -rw-r--r-- | test/lisp/emacs-lisp/rx-tests.el | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/test/lisp/emacs-lisp/rx-tests.el b/test/lisp/emacs-lisp/rx-tests.el index 8b7945c9d27..8f353b7e863 100644 --- a/test/lisp/emacs-lisp/rx-tests.el +++ b/test/lisp/emacs-lisp/rx-tests.el @@ -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. |