Mercurial > hg > xemacs-beta

comparison tests/automated/lisp-tests.el @ 5448:89331fa1c819

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Merged with trunk.
author Mats Lidell <matsl@xemacs.org>
date Thu, 06 Jan 2011 00:35:22 +0100
parents 6506fcb40fcf 7b391d07b334
children a9094f28f9a9
comparison
equal deleted inserted replaced
5447:4b08f375e2fb 5448:89331fa1c819
794 (Check-Error malformed-list (,fun nil 1)) 794 (Check-Error malformed-list (,fun nil 1))
795 ,@(loop for n in '(1 2 2000) 795 ,@(loop for n in '(1 2 2000)
796 collect `(Check-Error circular-list (,fun 1 (make-circular-list ,n)))))) 796 collect `(Check-Error circular-list (,fun 1 (make-circular-list ,n))))))
797 (test-funs (&rest funs) `(progn ,@(loop for fun in funs collect `(test-fun ,fun))))) 797 (test-funs (&rest funs) `(progn ,@(loop for fun in funs collect `(test-fun ,fun)))))
798 798
799 (test-funs member old-member 799 (test-funs member* member old-member
800 memq old-memq 800 memq old-memq
801 assoc old-assoc 801 assoc* assoc old-assoc
802 rassoc old-rassoc 802 rassoc* rassoc old-rassoc
803 rassq old-rassq 803 rassq old-rassq
804 delete old-delete 804 delete* delete old-delete
805 delq old-delq 805 delq old-delq
806 remassoc remassq remrassoc remrassq)) 806 remassoc remassq remrassoc remrassq))
807 807
808 (let ((x '((1 . 2) 3 (4 . 5)))) 808 (let ((x '((1 . 2) 3 (4 . 5))))
809 (Assert (eq (assoc 1 x) (car x))) 809 (Assert (eq (assoc 1 x) (car x)))