Author: koutou Date: Sun Mar 22 00:52:47 2009 New Revision: 5921
Modified: trunk/test/test-intl.scm Log: * test/test-intl.scm: use assert-uim-* instead of assert-*. Modified: trunk/test/test-intl.scm ============================================================================== --- trunk/test/test-intl.scm (original) +++ trunk/test/test-intl.scm Sun Mar 22 00:52:47 2009 @@ -102,13 +102,13 @@ (remove-directory* locale-dir)) (define (test-gettext) - (assert-equal msgid (uim `(gettext ,msgid))) - (assert-equal locale-dir (uim `(bindtextdomain ,domain ,locale-dir))) - (assert-equal locale-dir (uim `(bindtextdomain ,domain #f))) - (assert-equal msgstr (uim `(dgettext ,domain ,msgid))) - (assert-equal domain (uim `(textdomain ,domain))) - (assert-equal domain (uim `(textdomain #f))) - (assert-equal msgstr (uim `(gettext ,msgid))) + (assert-uim-equal msgid `(gettext ,msgid)) + (assert-uim-equal locale-dir `(bindtextdomain ,domain ,locale-dir)) + (assert-uim-equal locale-dir `(bindtextdomain ,domain #f)) + (assert-uim-equal msgstr `(dgettext ,domain ,msgid)) + (assert-uim-equal domain `(textdomain ,domain)) + (assert-uim-equal domain `(textdomain #f)) + (assert-uim-equal msgstr `(gettext ,msgid)) #f) (provide "test/test-intl")
