[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] trunk r117963: * pcase-tests.el: Add #18554 test case.
From: |
Stefan Monnier |
Subject: |
[Emacs-diffs] trunk r117963: * pcase-tests.el: Add #18554 test case. |
Date: |
Sat, 27 Sep 2014 04:27:16 +0000 |
User-agent: |
Bazaar (2.6b2) |
------------------------------------------------------------
revno: 117963
revision-id: address@hidden
parent: address@hidden
committer: Stefan Monnier <address@hidden>
branch nick: trunk
timestamp: Sat 2014-09-27 00:27:14 -0400
message:
* pcase-tests.el: Add #18554 test case.
modified:
test/automated/pcase-tests.el pcasetests.el-20140922142801-z0omr2t1z10lq9r3-1
=== modified file 'test/automated/pcase-tests.el'
--- a/test/automated/pcase-tests.el 2014-09-22 18:05:22 +0000
+++ b/test/automated/pcase-tests.el 2014-09-27 04:27:14 +0000
@@ -28,6 +28,12 @@
"Test pcase code."
(should (equal (pcase '(1 . 2) ((app car '2) 6) ((app car '1) 5)) 5)))
+(ert-deftest pcase-tests-bugs ()
+ (should (equal (pcase '(2 . 3) ;bug#18554
+ (`(,hd . ,(and (pred atom) tl)) (list hd tl))
+ ((pred consp) nil))
+ '(2 3))))
+
(pcase-defmacro pcase-tests-plus (pat n)
`(app (lambda (v) (- v ,n)) ,pat))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] trunk r117963: * pcase-tests.el: Add #18554 test case.,
Stefan Monnier <=