grosser-gettext 2.0.0

data/test/po/ja/rubyparser.po

@@ -0,0 +1,43 @@
+# SOME DESCRIPTIVE TITLE.
+# Copyright (C) YEAR ORGANIZATION
+# FIRST AUTHOR <EMAIL@ADDRESS>, YEAR.
+#
+msgid ""
+msgstr ""
+"Project-Id-Version: PACKAGE VERSION\n"
+"POT-Creation-Date: 2004-07-03 23:03+0900\n"
+"PO-Revision-Date: YEAR-MO-DA HO:MI+ZONE\n"
+"Last-Translator: FULL NAME <EMAIL@ADDRESS>\n"
+"Language-Team: LANGUAGE <LL@li.org>\n"
+"MIME-Version: 1.0\n"
+"Content-Type: text/plain; charset=UTF-8\n"
+"Content-Transfer-Encoding: 8bit\n"
+"Plural-Forms: nplurals=INTEGER; plural=EXPRESSION;\n"
+
+#: test_rubyparser.rb:8
+msgid "aaa"
+msgstr "AAA"
+
+#: test_rubyparser.rb:12
+msgid "aaa\n"
+msgstr "AAA\n"
+
+#: test_rubyparser.rb:16
+msgid "bbb\nccc"
+msgstr "BBB\nCCC"
+
+#: test_rubyparser.rb:20
+msgid "bbb\nccc\nddd\n"
+msgstr "BBB\nCCC\nDDD\n"
+
+#: test_rubyparser.rb:27 test_rubyparser.rb:31
+msgid "eee"
+msgstr "EEE"
+
+#: test_rubyparser.rb:31
+msgid "fff"
+msgstr "FFF"
+
+#: test_rubyparser.rb:35
+msgid "ggghhhiii"
+msgstr "GGGHHHIII"

data/test/po/ja/sgettext.po

@@ -0,0 +1,47 @@
+# SOME DESCRIPTIVE TITLE.
+# Copyright (C) YEAR ORGANIZATION
+# FIRST AUTHOR <EMAIL@ADDRESS>, YEAR.
+#
+msgid ""
+msgstr ""
+"Project-Id-Version: PACKAGE VERSION\n"
+"POT-Creation-Date: 2004-08-12 03:31+0900\n"
+"PO-Revision-Date: YEAR-MO-DA HO:MI+ZONE\n"
+"Last-Translator: FULL NAME <EMAIL@ADDRESS>\n"
+"Language-Team: LANGUAGE <LL@li.org>\n"
+"MIME-Version: 1.0\n"
+"Content-Type: text/plain; charset=UTF-8\n"
+"Content-Transfer-Encoding: 8bit\n"
+"Plural-Forms: nplurals=INTEGER; plural=EXPRESSION;\n"
+
+#: sgettext.rb:10 sgettext.rb:14
+msgid "AAA|BBB"
+msgstr "MATCHED"
+
+#: sgettext.rb:18
+msgid "AAA"
+msgstr ""
+
+#: sgettext.rb:22
+msgid "AAA|CCC"
+msgstr ""
+
+#: sgettext.rb:26
+msgid "AAA|BBB|CCC"
+msgstr ""
+
+#: sgettext.rb:30
+msgid "AAA$BBB"
+msgstr ""
+
+#: sgettext.rb:34
+msgid "AAA$B|BB"
+msgstr ""
+
+#: sgettext.rb:38
+msgid "AAA$B|CC"
+msgstr "MATCHED"
+
+#: sgettext.rb:42
+msgid "AAA|CCC|BBB"
+msgstr ""

data/test/po/ja/test1.po

@@ -0,0 +1,23 @@
+# SOME DESCRIPTIVE TITLE.
+# Copyright (C) YEAR ORGANIZATION
+# FIRST AUTHOR <EMAIL@ADDRESS>, YEAR.
+#
+#, fuzzy
+msgid ""
+msgstr ""
+"Project-Id-Version: PACKAGE VERSION\n"
+"POT-Creation-Date: 2002-01-01 02:24:56+0900\n"
+"PO-Revision-Date: YEAR-MO-DA HO:MI+ZONE\n"
+"Last-Translator: FULL NAME <EMAIL@ADDRESS>\n"
+"Language-Team: LANGUAGE <LL@li.org>\n"
+"MIME-Version: 1.0\n"
+"Content-Type: text/plain; charset=utf-8\n"
+"Content-Transfer-Encoding: ENCODING\n"
+
+#: simple.rb:10
+msgid "language"
+msgstr "japanese"
+
+#: simple.rb:14
+msgid "one is %d."
+msgstr "ONE IS %d."

data/test/po/ja/test2.po

@@ -0,0 +1,19 @@
+# SOME DESCRIPTIVE TITLE.
+# Copyright (C) YEAR ORGANIZATION
+# FIRST AUTHOR <EMAIL@ADDRESS>, YEAR.
+#
+#, fuzzy
+msgid ""
+msgstr ""
+"Project-Id-Version: PACKAGE VERSION\n"
+"POT-Creation-Date: 2001-10-28 01:39:53+0900\n"
+"PO-Revision-Date: YEAR-MO-DA HO:MI+ZONE\n"
+"Last-Translator: FULL NAME <EMAIL@ADDRESS>\n"
+"Language-Team: LANGUAGE <LL@li.org>\n"
+"MIME-Version: 1.0\n"
+"Content-Type: text/plain; charset=utf-8\n"
+"Content-Transfer-Encoding: ENCODING\n"
+
+#: test.rb:9 test.rb:11
+msgid "LANGUAGE"
+msgstr "JAPANESE"

data/test/po/ja/test6.po

@@ -0,0 +1,23 @@
+# SOME DESCRIPTIVE TITLE.
+# Copyright (C) YEAR ORGANIZATION
+# FIRST AUTHOR <EMAIL@ADDRESS>, YEAR.
+#
+#, fuzzy
+msgid ""
+msgstr ""
+"Project-Id-Version: PACKAGE VERSION\n"
+"POT-Creation-Date: 2002-01-01 02:24:56+0900\n"
+"PO-Revision-Date: YEAR-MO-DA HO:MI+ZONE\n"
+"Last-Translator: FULL NAME <EMAIL@ADDRESS>\n"
+"Language-Team: LANGUAGE <LL@li.org>\n"
+"MIME-Version: 1.0\n"
+"Content-Type: text/plain; charset=utf-8\n"
+"Content-Transfer-Encoding: ENCODING\n"
+
+#: testlib1.rb:10
+msgid "language"
+msgstr "japanese"
+
+#: testlib1.rb:14
+msgid "one is %d."
+msgstr "ONE IS %d."

data/test/po/la/plural.po

@@ -0,0 +1,23 @@
+# SOME DESCRIPTIVE TITLE.
+# Copyright (C) YEAR ORGANIZATION
+# FIRST AUTHOR <EMAIL@ADDRESS>, YEAR.
+#
+#, fuzzy
+msgid ""
+msgstr ""
+"Project-Id-Version: PACKAGE VERSION\n"
+"POT-Creation-Date: 2002-10-21 15:32:15+0900\n"
+"PO-Revision-Date: YEAR-MO-DA HO:MI+ZONE\n"
+"Last-Translator: FULL NAME <EMAIL@ADDRESS>\n"
+"Language-Team: LANGUAGE <LL@li.org>\n"
+"MIME-Version: 1.0\n"
+"Content-Type: text/plain; charset=US-ASCII\n"
+"Content-Transfer-Encoding: ENCODING\n"
+"Plural-Forms: nplurals=3; plural=n%10==1 && n%100!=11 ? 0 : n!=0 ? 1 : 2 ;\n"
+
+#: hello_plural.rb:11
+msgid "one"
+msgid_plural "two"
+msgstr[0] "la_one"
+msgstr[1] "la_plural"
+msgstr[2] "la_zero"

data/test/po/la/plural_error.po

@@ -0,0 +1,21 @@
+# SOME DESCRIPTIVE TITLE.
+# Copyright (C) YEAR ORGANIZATION
+# FIRST AUTHOR <EMAIL@ADDRESS>, YEAR.
+#
+#, fuzzy
+msgid ""
+msgstr ""
+"Project-Id-Version: PACKAGE VERSION\n"
+"POT-Creation-Date: 2002-10-21 15:32:15+0900\n"
+"PO-Revision-Date: YEAR-MO-DA HO:MI+ZONE\n"
+"Last-Translator: FULL NAME <EMAIL@ADDRESS>\n"
+"Language-Team: LANGUAGE <LL@li.org>\n"
+"MIME-Version: 1.0\n"
+"Content-Type: text/plain; charset=US-ASCII\n"
+"Content-Transfer-Encoding: ENCODING\n"
+"Plural-Forms: nplurals=2; plural= n != 1;\n"
+
+#: hello_plural.rb:11
+msgid "first"
+msgid_plural "second"
+msgstr[0] "la_first"

data/test/po/li/plural.po

@@ -0,0 +1,23 @@
+# SOME DESCRIPTIVE TITLE.
+# Copyright (C) YEAR ORGANIZATION
+# FIRST AUTHOR <EMAIL@ADDRESS>, YEAR.
+#
+#, fuzzy
+msgid ""
+msgstr ""
+"Project-Id-Version: PACKAGE VERSION\n"
+"POT-Creation-Date: 2002-10-21 15:32:15+0900\n"
+"PO-Revision-Date: YEAR-MO-DA HO:MI+ZONE\n"
+"Last-Translator: FULL NAME <EMAIL@ADDRESS>\n"
+"Language-Team: LANGUAGE <LL@li.org>\n"
+"MIME-Version: 1.0\n"
+"Content-Type: text/plain; charset=US-ASCII\n"
+"Content-Transfer-Encoding: ENCODING\n"
+"Plural-Forms: nplurals=3; plural= n%10==1 && n%100!=11 ? 0 : n%10>=2 && (n%100<10 || n%100>=20) ? 1 : 2;\n"
+
+#: hello_plural.rb:11
+msgid "one"
+msgid_plural "two"
+msgstr[0] "li_one"
+msgstr[1] "li_two"
+msgstr[2] "li_three"

data/test/po/po/plural.po

@@ -0,0 +1,23 @@
+# SOME DESCRIPTIVE TITLE.
+# Copyright (C) YEAR ORGANIZATION
+# FIRST AUTHOR <EMAIL@ADDRESS>, YEAR.
+#
+#, fuzzy
+msgid ""
+msgstr ""
+"Project-Id-Version: PACKAGE VERSION\n"
+"POT-Creation-Date: 2002-10-21 15:32:15+0900\n"
+"PO-Revision-Date: YEAR-MO-DA HO:MI+ZONE\n"
+"Last-Translator: FULL NAME <EMAIL@ADDRESS>\n"
+"Language-Team: LANGUAGE <LL@li.org>\n"
+"MIME-Version: 1.0\n"
+"Content-Type: text/plain; charset=US-ASCII\n"
+"Content-Transfer-Encoding: ENCODING\n"
+"Plural-Forms: nplurals=3; plural=n==1 ? 0 : n%10>=2 && n%10<=4 && (n%100<10 || n%100>=20) ? 1 : 2;\n"
+
+#: hello_plural.rb:11
+msgid "one"
+msgid_plural "two"
+msgstr[0] "po_one"
+msgstr[1] "po_two"
+msgstr[2] "po_three"

data/test/po/sl/plural.po

@@ -0,0 +1,24 @@
+# SOME DESCRIPTIVE TITLE.
+# Copyright (C) YEAR ORGANIZATION
+# FIRST AUTHOR <EMAIL@ADDRESS>, YEAR.
+#
+#, fuzzy
+msgid ""
+msgstr ""
+"Project-Id-Version: PACKAGE VERSION\n"
+"POT-Creation-Date: 2002-10-21 15:32:15+0900\n"
+"PO-Revision-Date: YEAR-MO-DA HO:MI+ZONE\n"
+"Last-Translator: FULL NAME <EMAIL@ADDRESS>\n"
+"Language-Team: LANGUAGE <LL@li.org>\n"
+"MIME-Version: 1.0\n"
+"Content-Type: text/plain; charset=US-ASCII\n"
+"Content-Transfer-Encoding: ENCODING\n"
+"Plural-Forms: nplurals=4; plural=n%100==1 ? 0 : n%100==2 ? 1 : n%100==3 || n%100==4 ? 2 : 3;\n"
+
+#: hello_plural.rb:11
+msgid "one"
+msgid_plural "two"
+msgstr[0] "sl_one"
+msgstr[1] "sl_two"
+msgstr[2] "sl_three"
+msgstr[3] "sl_four"

data/test/test_class_info.rb

@@ -0,0 +1,80 @@
+require 'testlib/helper.rb'
+require 'gettext/class_info'
+
+module M1; end
+module M2; end
+
+module M1
+  module M3
+    include M2
+    module M4; end
+    class C1; end
+  end
+  class C2
+    module M5
+      class C4; end
+    end
+    class C3; end
+  end
+end
+
+module M1::M6
+  include M1::M3::M4
+  module M7; end
+end
+
+module M8
+  module M9
+  end
+  include M9
+end
+
+# Anonymous module
+@@anon = Module.new
+class @@anon::AC1; end
+module @@anon::AM1; end
+
+class TestClassInfo < Test::Unit::TestCase
+  include GetText::ClassInfo
+
+  def test_normalize_class
+    assert_equal M1::M3, normalize_class(M1::M3)
+    assert_equal M1::M3::C1, normalize_class(M1::M3::C1)
+    assert_equal M1::M3::C1, normalize_class(M1::M3::C1.new)
+
+    assert_equal NilClass, normalize_class(nil)
+    assert_equal TestClassInfo, normalize_class(self)
+  end
+
+  def test_normalize_class_anonymous_module
+    assert_equal Object, normalize_class(@@anon)
+    assert_equal Object, normalize_class(@@anon)
+    assert_equal Object, normalize_class(@@anon::AC1)
+    assert_equal Object, normalize_class(@@anon::AM1)
+  end
+
+  def test_related_classes
+    assert_equal [M1, Object], related_classes(M1)
+    assert_equal [M1::M3, M1, M2, Object], related_classes(M1::M3)
+    assert_equal [M1::M3::M4, M1::M3, M1, M2, Object], related_classes(M1::M3::M4)
+    assert_equal [M1::M3::C1, M1::M3, M1, M2, Object], related_classes(M1::M3::C1)
+    assert_equal [M1::C2, M1, Object], related_classes(M1::C2)
+    assert_equal [M1::C2::M5::C4, M1::C2::M5, M1::C2, M1, Object], related_classes(M1::C2::M5::C4)
+    assert_equal [M1::C2::C3, M1::C2, M1, Object], related_classes(M1::C2::C3)
+    assert_equal [M1::M6, M1, M1::M3::M4, M1::M3, M2, Object], related_classes(M1::M6)
+    assert_equal [M1::M6::M7, M1::M6, M1, M1::M3::M4, M1::M3, M2, Object], related_classes(M1::M6::M7)
+  end
+
+  def test_rellated_classes_with_all_classes
+    # Evertime Object is returned as the fallback object.
+    assert_equal [M1, Object], related_classes(M1, [M1])
+    assert_equal [M1, Object], related_classes(M1::M3::M4, [M1])
+    assert_equal [M1::M3, Object], related_classes(M1::M3::M4, [M1::M3])
+    assert_equal [M1::M3, M1, Object], related_classes(M1::M3::M4, [M1::M3, M1])
+  end
+
+  def test_related_classes_loop_mixin
+    assert_equal [M8, M8::M9, Object], related_classes(M8)
+  end
+
+end

data/test/test_gettext.rb

@@ -0,0 +1,274 @@
+require 'testlib/helper.rb'
+require 'testlib/simple.rb'
+require 'testlib/gettext.rb'
+require 'testlib/sgettext.rb'
+require 'testlib/nsgettext.rb'
+require 'testlib/pgettext.rb'
+require 'testlib/npgettext.rb'
+
+class TestGetText < Test::Unit::TestCase
+
+  def setup
+    ENV["LC_ALL"] = "ja_JP.EUC-JP"
+    ENV["LANG"] = "ja_JP.EUC-JP"
+    GetText.locale = nil
+  end
+
+  def test_change_locale
+    GetText.locale = nil
+    bindtextdomain("test2", "locale")
+    test = Simple.new
+    assert_equal("japanese", test.test)
+    set_locale("fr")
+    assert_equal("french", test.test) # influence of previous line
+    assert_equal("FRENCH:ONE IS 1.", test.test_formatted_string)
+    set_locale("ja")
+    assert_equal("JAPANESE", _("LANGUAGE")) # influence of previous line
+    assert_equal("japanese", test.test)
+ end
+
+  def test_no_msgstr
+    bindtextdomain("test1", :path => "locale")
+    assert_equal("nomsgstr", _("nomsgstr"))
+  end
+
+  def test_empty
+    bindtextdomain("test1", "locale")
+    assert_equal("japanese", gettext("language"))
+    assert_equal("", gettext(""))
+    assert_equal("", gettext(nil))
+  end
+
+  def test_gettext
+    test = TestRubyParser.new
+    assert_equal("AAA", test.test_1)
+    assert_equal("AAA\n", test.test_2)
+    assert_equal("BBB\nCCC", test.test_3)
+    assert_equal("BBB
+CCC
+DDD
+", test.test_4)
+    assert_equal("EEE", test.test_5)
+    assert_equal("EEEfooFFF", test.test_6)
+    assert_equal("GGGHHHIII", test.test_7)
+  end
+
+  def test_N_
+    assert_equal("test", N_("test"))
+  end
+
+  def test_sgettext
+    test = TestSGetText.new
+
+    assert_equal("MATCHED", test.test_1)
+    assert_equal("MATCHED", test.test_2)
+    assert_equal("AAA", test.test_3)
+    assert_equal("CCC", test.test_4)
+    assert_equal("CCC", test.test_5)
+    assert_equal("BBB", test.test_6)
+    assert_equal("B|BB", test.test_7)
+    assert_equal("MATCHED", test.test_8)
+    assert_equal("BBB", test.test_9)
+  end
+
+  def test_pgettext
+    GetText.locale = nil
+    test = TestPGetText.new
+
+    assert_equal("�����ӡ�", test.test_1)
+    assert_equal("�����ӡ�", test.test_2)
+    assert_equal("�����ӡ�����", test.test_3)
+    assert_equal("CCC", test.test_4)
+    assert_equal("�����ӡ�", test.test_5)
+    assert_equal("�ӡ�", test.test_6)
+
+    GetText.locale = "en"
+    test = TestPGetText.new
+
+    assert_equal("BBB", test.test_1)
+    assert_equal("BBB", test.test_2)
+    assert_equal("CCC", test.test_3)
+    assert_equal("CCC", test.test_4)
+    assert_equal("BBB", test.test_5)
+    assert_equal("BBB", test.test_6)
+  end
+
+  def test_npgettext
+    GetText.locale = nil
+    test = TestNPGetText.new
+    assert_equal(["��Ĥ���", "%{num}���ܤ���"], test.test_1)
+    assert_equal(["��Ĥ���", "%{num}���ܤ���"], test.test_2)
+    assert_equal(["��ĤΥϡ��ɥ��С���", "%{num}�Υϡ��ɥ��С��ܤ���"], test.test_3)
+    assert_equal(["�ޥ������1���äƤޤ���", "�ޥ����󤿤���%{num}���äƤޤ���"], test.test_4)
+    assert_equal(["a picture", "%{num} pictures"], test.test_5)
+  end
+
+  def test_nsgettext
+    GetText.locale = nil
+    test = TestNSGetText.new
+    assert_equal(["single", "plural"], test.test_1)
+    assert_equal(["single", "plural"], test.test_2)
+    assert_equal(["AAA", "BBB"], test.test_3)
+    assert_equal(["CCC", "DDD"], test.test_4)
+    assert_equal(["CCC", "DDD"], test.test_5)
+    assert_equal(["BBB", "CCC"], test.test_6)
+    assert_equal(["B|BB", "CCC"], test.test_7)
+    assert_equal(["single", "plural"], test.test_8)
+    assert_equal(["BBB", "DDD"], test.test_9)
+  end
+
+  def test_plural
+    GetText.locale = nil
+    bindtextdomain("plural", :path => "locale")
+    assert_equal("all", n_("one", "two", 0))
+    assert_equal("all", n_("one", "two", 1))
+    assert_equal("all", n_("one", "two", 2))
+
+    set_locale("da")
+    assert_equal("da_plural", n_("one", "two", 0))
+    assert_equal("da_one", n_("one", "two", 1))
+    assert_equal("da_plural", n_("one", "two", 2))
+
+    set_locale("fr")
+    assert_equal("fr_one", ngettext("one", "two", 0))
+    assert_equal("fr_one", ngettext("one", "two", 1))
+    assert_equal("fr_plural", ngettext("one", "two", 2))
+
+    set_locale("la")
+    assert_equal("la_one", ngettext("one", "two", 21))
+    assert_equal("la_one", ngettext("one", "two", 1))
+    assert_equal("la_plural", ngettext("one", "two", 2))
+    assert_equal("la_zero", ngettext("one", "two", 0))
+
+    set_locale("ir")
+    assert_equal("ir_one", ngettext("one", "two", 1))
+    assert_equal("ir_two", ngettext("one", "two", 2))
+    assert_equal("ir_plural", ngettext("one", "two", 3))
+    assert_equal("ir_plural", ngettext("one", "two", 0))
+
+    set_locale("li")
+    assert_equal("li_one", ngettext("one", "two", 1))
+    assert_equal("li_two", ngettext("one", "two", 22))
+    assert_equal("li_three", ngettext("one", "two", 11))
+
+    set_locale("cr")
+    assert_equal("cr_one", ngettext("one", "two", 1))
+    assert_equal("cr_two", ngettext("one", "two", 2))
+    assert_equal("cr_three", ngettext("one", "two", 5))
+
+    set_locale("po")
+    assert_equal("po_one", ngettext("one", "two", 1))
+    assert_equal("po_two", ngettext("one", "two", 2))
+    assert_equal("po_three", ngettext("one", "two", 5))
+
+    set_locale("sl")
+    assert_equal("sl_one", ngettext("one", "two", 1))
+    assert_equal("sl_two", ngettext("one", "two", 2))
+    assert_equal("sl_three", ngettext("one", "two", 3))
+    assert_equal("sl_three", ngettext("one", "two", 4))
+    assert_equal("sl_four", ngettext("one", "two", 5))
+  end
+
+  def test_plural_format_invalid
+    bindtextdomain("plural_error", :path => "locale")
+    #If it defines msgstr[0] only, msgstr[0] is used everytime.
+    assert_equal("a", n_("first", "second", 0))
+    assert_equal("a", n_("first", "second", 1))
+    assert_equal("a", n_("first", "second", 2))
+    # Use default(plural = 0)
+    set_locale("fr")
+    assert_equal("fr_first", n_("first", "second", 0))
+    assert_equal("fr_first", n_("first", "second", 1))
+    assert_equal("fr_first", n_("first", "second", 2))
+    setlocale("da")
+    assert_equal("da_first", n_("first", "second", 0))
+    assert_equal("da_first", n_("first", "second", 1))
+    assert_equal("da_first", n_("first", "second", 2))
+    setlocale("la")
+    assert_equal("la_first", n_("first", "second", 0))
+    assert_equal("la_first", n_("first", "second", 1))
+    assert_equal("la_first", n_("first", "second", 2))
+  end
+
+  def test_plural_array
+    bindtextdomain("plural", :path => "locale")
+    set_locale "da"
+    assert_equal("da_plural", n_(["one", "two"], 0))
+    assert_equal("da_one", n_(["one", "two"], 1))
+    assert_equal("da_plural", n_(["one", "two"], 2))
+  end
+
+  def test_plural_with_single
+    bindtextdomain("plural", :path => "locale")
+
+    assert_equal("hitotsu", _("single"))
+    assert_equal("hitotsu", n_("single", "plural", 1))
+    assert_equal("hitotsu", n_("single", "plural", 2))
+    assert_equal("all", n_("one", "two", 1))
+    assert_equal("all", n_("one", "two", 2))
+    assert_equal("all", _("one"))
+
+    bindtextdomain("plural", :path => "locale")
+    set_locale "fr"
+
+    assert_equal("fr_hitotsu", _("single"))
+    assert_equal("fr_hitotsu", n_("single", "plural", 1))
+    assert_equal("fr_fukusu", n_("single", "plural", 2))
+    assert_equal("fr_one", n_("one", "two", 1))
+    assert_equal("fr_plural", n_("one", "two", 2))
+    assert_equal("fr_one", _("one"))
+
+#    assert_equal("fr_hitotsu", n_("single", "not match", 1))
+#    assert_equal("fr_fukusu", n_("single", "not match", 2))
+  end
+
+  def test_Nn_
+    GetText.locale = "da"
+    bindtextdomain("plural", :path => "locale")
+    assert_equal(["one", "two"], Nn_("one", "two"))
+  end
+
+  def test_setlocale
+    bindtextdomain("test1", :path => "locale")
+    assert_equal("japanese", _("language"))
+    set_locale("en")
+    assert_equal("language", _("language"))
+    set_locale("fr")
+    assert_equal("french", _("language"))
+
+    Locale.set "en"
+    assert_equal("language", _("language"))
+
+    Locale.set "ja"
+    assert_equal("japanese", _("language"))
+
+    # Confirm to set Locale::Object.
+    loc = Locale::Tag::Posix.parse("ja_JP.eucJP")
+    assert_equal(loc, GetText.locale = loc)
+    assert_equal(Locale::Tag::Posix, GetText.locale.class)
+  end
+
+  # Anonymous
+  @@anon = Module.new
+  class @@anon::I
+    bindtextdomain("test1", :path => "locale")
+    def self.test
+      _("language")
+    end
+    def test2
+      _("language")
+    end
+  end
+
+  def test_anonymous_module
+    assert_equal("japanese", @@anon::I.test)
+    assert_equal("japanese", @@anon::I.new.test2)
+
+  end
+
+  def test_frozen
+    GetText.bindtextdomain("test1", :path => "locale")
+    assert(GetText._("language").frozen?)
+  end
+
+end