[uim-commit] r1999 - trunk/test

[yamaken at freedesktop.org]

Author: yamaken
Date: 2005-11-05 05:24:58 -0800 (Sat, 05 Nov 2005)
New Revision: 1999

Modified:
   trunk/test/test-custom.scm
Log:
* test/test-custom.scm
  - (test custom-choice-label, test custom-choice-desc): Follow the
    specification change in r588, r590


Modified: trunk/test/test-custom.scm
===================================================================
--- trunk/test/test-custom.scm	2005-11-05 12:57:38 UTC (rev 1998)
+++ trunk/test/test-custom.scm	2005-11-05 13:24:58 UTC (rev 1999)
@@ -29,7 +29,7 @@
 ;;; SUCH DAMAGE.
 ;;;;
 
-;; This file is tested with revision 327 of new repository
+;; This file is tested with revision 1999 of new repository
 
 ;; TODO:
 ;;
@@ -324,10 +324,10 @@
 		 (uim '(custom-choice-label 'uim-color 'uim-color-uim)))
    (assert-equal "ATOK like"
 		 (uim '(custom-choice-label 'uim-color 'uim-color-atok)))
+   (assert-equal "uim-color-nonexistent"
+		 (uim '(custom-choice-label 'uim-color
+					    'uim-color-nonexistent)))
    (assert-error (lambda ()
-                   (uim '(custom-choice-label 'uim-color
-                                              'uim-color-nonexistent))))
-   (assert-error (lambda ()
                    (uim '(custom-choice-label 'uim-nonexistent
                                               'uim-nonexistent)))))
   ("test custom-choice-desc"
@@ -335,8 +335,9 @@
 		 (uim '(custom-choice-desc 'uim-color 'uim-color-uim)))
    (assert-equal "Similar to ATOK"
 		 (uim '(custom-choice-desc 'uim-color 'uim-color-atok)))
-   (assert-error (lambda () (uim '(custom-choice-desc 'uim-color
-                                                      'uim-color-nonexistent))))
+   (assert-equal "uim-color-nonexistent"
+		 (uim '(custom-choice-desc 'uim-color
+					   'uim-color-nonexistent)))
    (assert-error (lambda () (uim '(custom-choice-desc 'uim-nonexistent
                                                       'uim-nonexistent))))))