Mercurial > hg > xemacs-beta

diff tests/automated/lisp-tests.el @ 5034:1b96882bdf37

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Fix a multiple-value bug, mapcarX; correct a comment and a label name. src/ChangeLog addition: 2010-02-19 Aidan Kehoe <kehoea@parhasard.net> * fns.c (mapcarX): Correct this function, discarding multiple values when one SEQUENCE is supplied, choosing a better label name. Correct the comment describing the SOME_OR_EVERY argument. tests/ChangeLog addition: 2010-02-19 Aidan Kehoe <kehoea@parhasard.net> * automated/lisp-tests.el: Check that multiple values are discarded correctly with #'mapcar and one SEQUENCE.
author Aidan Kehoe <kehoea@parhasard.net>
date Fri, 19 Feb 2010 23:21:27 +0000
parents 6ef8256a020a
children b1e48555be7d
line wrap: on
line diff
--- a/tests/automated/lisp-tests.el	Fri Feb 19 09:30:45 2010 +0000
+++ b/tests/automated/lisp-tests.el	Fri Feb 19 23:21:27 2010 +0000
@@ -973,6 +973,12 @@
       (car y))
     x)))
 
+(Assert-eql
+ (length (multiple-value-list
+          (car (mapcar #'(lambda (argument) (floor argument)) (list pi e)))))
+ 1
+ "checking multiple values are correctly discarded in mapcar")
+
 ;;-----------------------------------------------------
 ;; Test vector functions
 ;;-----------------------------------------------------