Mercurial > hg > xemacs-beta
comparison tests/automated/lisp-tests.el @ 4732:2491a837112c
Fix typo in test of equalp and add more tests.
| author | Stephen J. Turnbull <stephen@xemacs.org> |
|---|---|
| date | Mon, 02 Nov 2009 14:00:49 +0900 |
| parents | d0ea57eb3de4 |
| children | 4cf435fcebbc |
comparison
equal
deleted
inserted
replaced
| 4731:ad40dc9d3a97 | 4732:2491a837112c |
|---|---|
| 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: | 2094 (Assert (equalp "hi there" "Hi There") |
| 2095 (Assert (nil (equalp "hi there" [hi there])) | 2095 "checking equalp isn't case-sensitive") |
| 2096 (Assert (equalp 99 99.0) | |
| 2097 "checking equalp compares numerical values of different types") | |
| 2098 (Assert (null (equalp 99 ?c)) | |
| 2099 "checking equalp does not convert characters to numbers") | |
| 2100 ;; Fixed in Hg d0ea57eb3de4. | |
| 2101 (Assert (null (equalp "hi there" [hi there])) | |
| 2096 "checking equalp doesn't error with string and non-string") | 2102 "checking equalp doesn't error with string and non-string") |
| 2103 | |
| 2104 ;;; end of lisp-tests.el |