[uim-commit] r953 - trunk/test

[yamaken at freedesktop.org]

Author: yamaken
Date: 2005-07-08 10:41:34 -0700 (Fri, 08 Jul 2005)
New Revision: 953

Modified:
   trunk/test/test-util.scm
Log:
* test/test-util.scm
  - (test alist-delete): Follow change of r892


Modified: trunk/test/test-util.scm
===================================================================
--- trunk/test/test-util.scm	2005-07-08 17:29:47 UTC (rev 952)
+++ trunk/test/test-util.scm	2005-07-08 17:41:34 UTC (rev 953)
@@ -29,7 +29,7 @@
 ;;; SUCH DAMAGE.
 ;;;;
 
-;; This file is tested with revision 816 (new repository)
+;; This file is tested with revision 952 (new repository)
 
 (use test.unit)
 
@@ -1286,15 +1286,18 @@
 		 (uim '(alist-delete "3" alist-int)))
    (assert-equal '(("23" 23 twentythree)
 		   ("1" 1 one)
-		   ("5" 5 five)
 		   ("3" 3 three))
 		 (uim '(alist-delete "5" alist-str)))
    (assert-equal '(("23" 23 twentythree)
 		   ("1" 1 one)
+		   ("5" 5 five)
 		   ("3" 3 three))
+		 (uim '(alist-delete "5" alist-str =)))
+   (assert-equal '(("23" 23 twentythree)
+		   ("1" 1 one)
+		   ("3" 3 three))
 		 (uim '(alist-delete "5" alist-str string=?)))
-   (assert-equal '((("23") 23 twentythree)
-		   (("1") 1 one)
+   (assert-equal '((("1") 1 one)
 		   (("5") 5 five)
 		   (("3") 3 three))
 		 (uim '(alist-delete '("23") alist-lst)))