# HG changeset patch
# User Stephen J. Turnbull <stephen@xemacs.org>
# Date 1257138049 -32400
# Node ID 2491a837112ce5a873c8d2df3e3b4f0d60760510
# Parent  ad40dc9d3a97cac9f89c5d85ffcc4e28ee94ef14
Fix typo in test of equalp and add more tests.

diff -r ad40dc9d3a97 -r 2491a837112c tests/ChangeLog
--- 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):
diff -r ad40dc9d3a97 -r 2491a837112c tests/automated/lisp-tests.el
--- 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