Author: yamakenz
Date: Tue Jul 10 02:03:58 2007
New Revision: 4676
Modified:
trunk/test/test-im.scm
Log:
* test/test-im.scm
- Exclude uim-look from enabled-im-list to test direct IM as default IM
- Unset LANG and LC_ALL in "test find-im" to pass (im-name
(find-im #f "")) => 'direct
Modified: trunk/test/test-im.scm
==============================================================================
--- trunk/test/test-im.scm (original)
+++ trunk/test/test-im.scm Tue Jul 10 02:03:58 2007
@@ -56,6 +56,7 @@
(set! enabled-im-list (append (delete 'm17n-en-ispell
enabled-im-list)
'(test-im test-im2)))
+ (set! enabled-im-list (delete 'look enabled-im-list))
(for-each require-module installed-im-module-list)
(define prev-im #f)
(define prev-nr-ims (length im-list))
@@ -443,8 +444,10 @@
(uim '(im-name (find-default-im "ja_JP.EUC-JP")))))
("test find-im"
- ;; explicit IM specification
(uim '(unsetenv "UIM_IM_ENGINE"))
+ (uim '(unsetenv "LANG"))
+ (uim '(unsetenv "LC_ALL"))
+ ;; explicit IM specification
(uim '(set! default-im-name #f))
(assert-equal 'direct
(uim '(im-name (find-im 'direct #f))))
