Mercurial > hg > xemacs-beta

comparison tests/automated/lisp-tests.el @ 4728:d0ea57eb3de4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Don't error if handed a string and a non-string, #'equalp. tests/ChangeLog addition: 2009-11-01 Aidan Kehoe <kehoea@parhasard.net> * automated/lisp-tests.el: Check that (equal "hi there" [hi there]) gives nil, instead of erroring; fixes a bug Ben introduced in 2002. lisp/ChangeLog addition: 2009-11-01 Aidan Kehoe <kehoea@parhasard.net> * cl-extra.el (equalp): Don't error if handed a string and a non-string.
author Aidan Kehoe <kehoea@parhasard.net>
date Sun, 01 Nov 2009 15:05:46 +0000
parents cdabd56ce1b5
children 2491a837112c
comparison
equal deleted inserted replaced
4727:90dbf8e772b6 4728:d0ea57eb3de4
2089 (Known-Bug-Expect-Error 2089 (Known-Bug-Expect-Error
2090 void-variable 2090 void-variable
2091 (letf (((values three one-four-one-five-nine) (floor pi))) 2091 (letf (((values three one-four-one-five-nine) (floor pi)))
2092 (* three one-four-one-five-nine)))) 2092 (* three one-four-one-five-nine))))
2093 2093
2094 ;; This used to error:
2095 (Assert (nil (equalp "hi there" [hi there]))
2096 "checking equalp doesn't error with string and non-string")