emacs-diffs
[Top][All Lists]
Advanced

[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))
 


reply via email to

[Prev in Thread] Current Thread [Next in Thread]