Mercurial > hg > xemacs-beta
comparison tests/automated/lisp-tests.el @ 5917:ffb5abc8dc4e
Fix a bug in the #'equalp compiler macro.
lisp/ChangeLog addition:
2015-06-11 Aidan Kehoe <kehoea@parhasard.net>
* cl-macs.el (equalp):
Fix a bug in this compiler macro when passed constants in a
certain order.
tests/ChangeLog addition:
2015-06-11 Aidan Kehoe <kehoea@parhasard.net>
* automated/lisp-tests.el:
Add a test looking for a bug just fixed in the equalp compiler
macro.
| author | Aidan Kehoe <kehoea@parhasard.net> |
|---|---|
| date | Thu, 11 Jun 2015 16:09:11 +0100 |
| parents | 1af53d35dd53 |
| children |
comparison
equal
deleted
inserted
replaced
| 5916:1152e0091f8c | 5917:ffb5abc8dc4e |
|---|---|
| 2388 0.111111111111111111111111111111111111111111111111111111111111111 | 2388 0.111111111111111111111111111111111111111111111111111111111111111 |
| 2389 1e+300 1e+301 -1e+300 -1e+301)) | 2389 1e+300 1e+301 -1e+300 -1e+301)) |
| 2390 | 2390 |
| 2391 (Assert-equalp "hi there" "Hi There" | 2391 (Assert-equalp "hi there" "Hi There" |
| 2392 "checking equalp isn't case-sensitive") | 2392 "checking equalp isn't case-sensitive") |
| 2393 (Assert (not (equalp (emacs-version) #*)) | |
| 2394 "checking a bug with constants and equalp is fixed.") | |
| 2393 (Assert-equalp | 2395 (Assert-equalp |
| 2394 99 99.0 | 2396 99 99.0 |
| 2395 "checking equalp compares numerical values of different types") | 2397 "checking equalp compares numerical values of different types") |
| 2396 (Assert (null (equalp 99 ?c)) | 2398 (Assert (null (equalp 99 ?c)) |
| 2397 "checking equalp does not convert characters to numbers") | 2399 "checking equalp does not convert characters to numbers") |