Revision: 6308
Author: ek.kato
Date: Tue Apr 6 23:30:22 2010
Log: * test/test-intl.scm
* test/i18n/test-language.scm
- Revert r6307.
http://code.google.com/p/uim/source/detail?r=6308
Modified:
/trunk/test/i18n/test-language.scm
/trunk/test/test-intl.scm
=======================================
--- /trunk/test/i18n/test-language.scm Tue Apr 6 21:00:03 2010
+++ /trunk/test/i18n/test-language.scm Tue Apr 6 23:30:22 2010
@@ -53,11 +53,11 @@
(uim-test-with-environment-variables
'(("LC_ALL" . "ja_JP.UTF-8"))
uim-test-setup)
- (assert-uim-equal (if (provided? "nls") "日本語" "Japanese")
+ (assert-uim-equal "日本語"
'(_ (lang-code->lang-name "ja")))
- (assert-uim-equal (if (provided? "nls") "英語" "English")
+ (assert-uim-equal "英語"
'(_ (lang-code->lang-name "en")))
- (assert-uim-equal (if (provided? "nls") "中国語" "Chinese")
+ (assert-uim-equal "中国語"
'(_ (lang-code->lang-name "zh")))
#f)
=======================================
--- /trunk/test/test-intl.scm Tue Apr 6 21:00:03 2010
+++ /trunk/test/test-intl.scm Tue Apr 6 23:30:22 2010
@@ -98,11 +98,11 @@
(define (test-gettext)
(assert-uim-equal msgid `(gettext ,msgid))
(assert-uim-equal locale-dir `(bindtextdomain ,domain ,locale-dir))
- (assert-uim-equal (if (provided? "nls") locale-dir "")
`(bindtextdomain ,domain #f))
- (assert-uim-equal (if (provided? "nls") msgstr msgid)
`(dgettext ,domain ,msgid))
+ (assert-uim-equal locale-dir `(bindtextdomain ,domain #f))
+ (assert-uim-equal msgstr `(dgettext ,domain ,msgid))
(assert-uim-equal domain `(textdomain ,domain))
- (assert-uim-equal (if (provided? "nls") domain "") `(textdomain #f))
- (assert-uim-equal (if (provided? "nls") msgstr msgid) `(gettext ,msgid))
+ (assert-uim-equal domain `(textdomain #f))
+ (assert-uim-equal msgstr `(gettext ,msgid))
#f)
(provide "test/test-intl")
--
To unsubscribe, reply using "remove me" as the subject.
