Mercurial > hg > xemacs-beta
changeset 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 | ad40dc9d3a97 |
| children | a5210e70ffbe |
| files | tests/ChangeLog tests/automated/lisp-tests.el |
| diffstat | 2 files changed, 13 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/tests/ChangeLog Mon Nov 02 13:29:06 2009 +0900 +++ b/tests/ChangeLog Mon Nov 02 14:00:49 2009 +0900 @@ -1,3 +1,6 @@ + * automated/lisp-tests.el: Fix typo in equalp test. + Add more tests of equalp. + 2009-11-02 Stephen Turnbull <stephen@xemacs.org> * automated/mule-tests.el (default-process-coding-system):
--- a/tests/automated/lisp-tests.el Mon Nov 02 13:29:06 2009 +0900 +++ b/tests/automated/lisp-tests.el Mon Nov 02 14:00:49 2009 +0900 @@ -2091,6 +2091,14 @@ (letf (((values three one-four-one-five-nine) (floor pi))) (* three one-four-one-five-nine)))) -;; This used to error: -(Assert (nil (equalp "hi there" [hi there])) +(Assert (equalp "hi there" "Hi There") + "checking equalp isn't case-sensitive") +(Assert (equalp 99 99.0) + "checking equalp compares numerical values of different types") +(Assert (null (equalp 99 ?c)) + "checking equalp does not convert characters to numbers") +;; Fixed in Hg d0ea57eb3de4. +(Assert (null (equalp "hi there" [hi there])) "checking equalp doesn't error with string and non-string") + +;;; end of lisp-tests.el