[uim-commit] r2001 - trunk/test

[yamaken at freedesktop.org]

Author: yamaken
Date: 2005-11-05 06:22:44 -0800 (Sat, 05 Nov 2005)
New Revision: 2001

Modified:
   trunk/test/test-custom.scm
Log:
* test/test-custom.scm
  - (test custom-choice-label, test custom-choice-desc): Cosmetic change


Modified: trunk/test/test-custom.scm
===================================================================
--- trunk/test/test-custom.scm	2005-11-05 13:36:57 UTC (rev 2000)
+++ trunk/test/test-custom.scm	2005-11-05 14:22:44 UTC (rev 2001)
@@ -328,8 +328,8 @@
 		 (uim '(custom-choice-label 'uim-color
 					    'uim-color-nonexistent)))
    (assert-error (lambda ()
-                   (uim '(custom-choice-label 'uim-nonexistent
-                                              'uim-nonexistent)))))
+		   (uim '(custom-choice-label 'uim-nonexistent
+					      'uim-nonexistent)))))
   ("test custom-choice-desc"
    (assert-equal "uim native"
 		 (uim '(custom-choice-desc 'uim-color 'uim-color-uim)))
@@ -338,8 +338,9 @@
    (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))))))
+   (assert-error (lambda ()
+		   (uim '(custom-choice-desc 'uim-nonexistent
+					     'uim-nonexistent))))))
 
 (define-uim-test-case "testcase custom custom-group"
   (setup