when_exe 0.3.6 → 0.3.7

data/test/test/region/mayan.rb

@@ -1,195 +1,195 @@
-# -*- coding: utf-8 -*-
-=begin
-  Copyright (C) 2011-2014 Takashi SUGA
-
-  You may use and/or modify this file according to the license
-  described in the LICENSE.txt file included in this archive.
-=end
-
-module Test
-
-  class Mayan < Test::Unit::TestCase
-    def test__mayan_epoch
-      # No offset
-      [['PHLC13.0.0.0.0', 'PHLC13(00).00.00.00.00',  584283],
-       ['HLC0.0.0.0.1',   'HLC00.00.00.00.01',       584284],
-       ['HLC13.0.0.0.0',  'HLC13.00.00.00.00',      2456283],
-       ['HLC13.0.0.0.1',  'NLC00(13).00.00.00.01',  2456284]].each do |sample|
-        date = When.when?(sample.shift)
-        assert_equal(sample, [date.to_s, date.to_i])
-      end
-
-      # offset 0B
-      [['LongCount?Epoch=0D::PHLC13.0.0.0.0', 'LongCount?Epoch=0D::PHLC13(00).00.00.00.00',  584283],
-       ['LongCount?Epoch=0D::HLC0.0.0.0.1',   'LongCount?Epoch=0D::HLC00.00.00.00.01',       584284],
-       ['LongCount?Epoch=0D::HLC13.0.0.0.0',  'LongCount?Epoch=0D::HLC13.00.00.00.00',      2456283],
-       ['LongCount?Epoch=0D::HLC13.0.0.0.1',  'LongCount?Epoch=0D::NLC00(13).00.00.00.01',  2456284]].each do |sample|
-        date = When.when?(sample.shift)
-        assert_equal(sample, [date.to_s, date.to_i])
-      end
-
-      # offset 2B
-      [['LongCount?Epoch=2D::PHLC13.0.0.0.0', 'LongCount?Epoch=2D::PHLC13(00).00.00.00.00',  584285],
-       ['LongCount?Epoch=2D::HLC0.0.0.0.1',   'LongCount?Epoch=2D::HLC00.00.00.00.01',       584286],
-       ['LongCount?Epoch=2D::HLC13.0.0.0.0',  'LongCount?Epoch=2D::HLC13.00.00.00.00',      2456285],
-       ['LongCount?Epoch=2D::HLC13.0.0.0.1',  'LongCount?Epoch=2D::NLC00(13).00.00.00.01',  2456286]].each do |sample|
-        date = When.when?(sample.shift)
-        assert_equal(sample, [date.to_s, date.to_i])
-      end
-    end
-
-    def test__mayan_period
-      date   = When.when?('HLC0.0.0.0.1')
-      period = When.Duration('P2X1X3Y4M5D')
-      assert_equal('HLC02.01.03.04.06', (date + period).to_s)
-    end
-
-    def test__haab
-      # No offset
-      haab = When.Resource("_co:Mayan::Haab'")
-      assert_equal("ハアブ", haab.label.translate('ja'))
-      assert_equal("http://en.wikipedia.org/wiki/Haab'", haab.label.reference)
-      pop = When.Resource("_co:Mayan::Haab'::Pop")
-      assert_equal("Pop", pop.label.translate('en'))
-      assert_equal("http://en.wikipedia.org/wiki/File:Maya-Pop.jpg", pop.label.reference)
-      date0 = When.when?('2011-05-16T12:34:56Z')
-      sample = [
-        "2012-04-12T12:34:56Z",
-        "2012-04-13T12:34:56Z",
-        "2012-04-14T12:34:56Z"
-      ]
-      [10,11,12].each do |i|
-        assert_equal(sample.shift, (date0 & pop[i]).to_s)
-      end
-      assert_equal(42, When.when?('2011-05-15') % haab)
-      h = haab % When.when?('2011-05-15')
-      assert_equal(["Sip", 2], [h.label.to_s, h.difference])
-
-      # offset 0B
-      haab = When.Resource("_co:Mayan?Epoch=0D::Haab'")
-      assert_equal("ハアブ", haab.label.translate('ja'))
-      assert_equal("http://en.wikipedia.org/wiki/Haab'", haab.label.reference)
-      pop = When.Resource("_co:Mayan?Epoch=0D::Haab'::Pop")
-      assert_equal("Pop", pop.label.translate('en'))
-      assert_equal("http://en.wikipedia.org/wiki/File:Maya-Pop.jpg", pop.label.reference)
-      date0 = When.when?('2011-05-16T12:34:56Z')
-      sample = [
-        "2012-04-12T12:34:56Z",
-        "2012-04-13T12:34:56Z",
-        "2012-04-14T12:34:56Z"
-      ]
-      [10,11,12].each do |i|
-        assert_equal(sample.shift, (date0 & pop[i]).to_s)
-      end
-      assert_equal(42, When.when?('2011-05-15') % haab)
-      h = haab % When.when?('2011-05-15')
-      assert_equal(["Sip", 2], [h.label.to_s, h.difference])
-
-      # offset 2B
-      haab = When.Resource("_co:Mayan?Epoch=2D::Haab'")
-      assert_equal("ハアブ", haab.label.translate('ja'))
-      assert_equal("http://en.wikipedia.org/wiki/Haab'", haab.label.reference)
-      pop = When.Resource("_co:Mayan?Epoch=2D::Haab'::Pop")
-      assert_equal("Pop", pop.label.translate('en'))
-      assert_equal("http://en.wikipedia.org/wiki/File:Maya-Pop.jpg", pop.label.reference)
-      date0 = When.when?('2011-05-16T12:34:56Z')
-      sample = [
-        "2012-04-14T12:34:56Z",
-        "2012-04-15T12:34:56Z",
-        "2012-04-16T12:34:56Z"
-      ]
-      [10,11,12].each do |i|
-        assert_equal(sample.shift, (date0 & pop[i]).to_s)
-      end
-      assert_equal(42, When.when?('2011-05-17') % haab)
-      h = haab % When.when?('2011-05-17')
-      assert_equal(["Sip", 2], [h.label.to_s, h.difference])
-    end
-
-    def test__tzolkin
-      # No offset
-      trecena = When.Resource("_co:Mayan::Trecena")
-      assert_equal("トレセナ", trecena.label.translate('ja'))
-      assert_equal("http://en.wikipedia.org/wiki/Trecena", trecena.label.reference)
-      assert_equal(2, When.when?('2011-05-15') % trecena)
-
-
-      tzolkin = When.Resource("_co:Mayan::Tzolk'in")
-      assert_equal("ツォルキン", tzolkin.label.translate('ja'))
-      assert_equal("http://en.wikipedia.org/wiki/Tzolk'in", tzolkin.label.reference)
-      ajaw = When.Resource("_co:Mayan::Tzolk'in::Ajaw")
-      assert_equal("Ajaw", ajaw.label.translate('en'))
-      assert_equal("http://en.wikipedia.org/wiki/File:MAYA-g-log-cal-D20-Ajaw-cdxW.png", ajaw.label.reference('alias'))
-      date0 = When.when?('2011-05-16T12:34:56Z')
-      sample = [
-        "2011-05-21T12:34:56Z",
-        "2011-05-21T12:34:56Z",
-        "2011-05-21T12:34:56Z"
-      ]
-      [10,11,12].each do |i|
-        assert_equal(sample.shift, (date0 & ajaw).to_s)
-      end
-      assert_equal(13, When.when?('2011-05-15') % tzolkin)
-      assert_equal('Ix', (tzolkin % When.when?('2011-05-15')).label.to_s)
-      if ::Object.const_defined?(:Date) && Date.respond_to?(:civil)
-        assert_equal('Ix', (tzolkin % Date.new(2011,5,15)).label.to_s)
-      end
-
-      # offset 0B
-      trecena = When.Resource("_co:Mayan?Epoch=0D::Trecena")
-      assert_equal("トレセナ", trecena.label.translate('ja'))
-      assert_equal("http://en.wikipedia.org/wiki/Trecena", trecena.label.reference)
-      assert_equal(2, When.when?('2011-05-15') % trecena)
-
-
-      tzolkin = When.Resource("_co:Mayan?Epoch=0D::Tzolk'in")
-      assert_equal("ツォルキン", tzolkin.label.translate('ja'))
-      assert_equal("http://en.wikipedia.org/wiki/Tzolk'in", tzolkin.label.reference)
-      ajaw = When.Resource("_co:Mayan?Epoch=0D::Tzolk'in::Ajaw")
-      assert_equal("Ajaw", ajaw.label.translate('en'))
-      assert_equal("http://en.wikipedia.org/wiki/File:MAYA-g-log-cal-D20-Ajaw-cdxW.png", ajaw.label.reference('alias'))
-      date0 = When.when?('2011-05-16T12:34:56Z')
-      sample = [
-        "2011-05-21T12:34:56Z",
-        "2011-05-21T12:34:56Z",
-        "2011-05-21T12:34:56Z"
-      ]
-      [10,11,12].each do |i|
-        assert_equal(sample.shift, (date0 & ajaw).to_s)
-      end
-      assert_equal(13, When.when?('2011-05-15') % tzolkin)
-      assert_equal('Ix', (tzolkin % When.when?('2011-05-15')).label.to_s)
-      if ::Object.const_defined?(:Date) && Date.respond_to?(:civil)
-        assert_equal('Ix', (tzolkin % Date.new(2011,5,15)).label.to_s)
-      end
-
-      # offset 2B
-      trecena = When.Resource("_co:Mayan?Epoch=2D::Trecena")
-      assert_equal("トレセナ", trecena.label.translate('ja'))
-      assert_equal("http://en.wikipedia.org/wiki/Trecena", trecena.label.reference)
-      assert_equal(2, When.when?('2011-05-17') % trecena)
-
-
-      tzolkin = When.Resource("_co:Mayan?Epoch=2D::Tzolk'in")
-      assert_equal("ツォルキン", tzolkin.label.translate('ja'))
-      assert_equal("http://en.wikipedia.org/wiki/Tzolk'in", tzolkin.label.reference)
-      ajaw = When.Resource("_co:Mayan?Epoch=2D::Tzolk'in::Ajaw")
-      assert_equal("Ajaw", ajaw.label.translate('en'))
-      assert_equal("http://en.wikipedia.org/wiki/File:MAYA-g-log-cal-D20-Ajaw-cdxW.png", ajaw.label.reference('alias'))
-      date0 = When.when?('2011-05-16T12:34:56Z')
-      sample = [
-        "2011-05-23T12:34:56Z",
-        "2011-05-23T12:34:56Z",
-        "2011-05-23T12:34:56Z"
-      ]
-      [10,11,12].each do |i|
-        assert_equal(sample.shift, (date0 & ajaw).to_s)
-      end
-      assert_equal(13, When.when?('2011-05-17') % tzolkin)
-      assert_equal('Ix', (tzolkin % When.when?('2011-05-17')).label.to_s)
-      if ::Object.const_defined?(:Date) && Date.respond_to?(:civil)
-        assert_equal('Ix', (tzolkin % Date.new(2011,5,17)).label.to_s)
-      end
-    end
-  end
-end
+# -*- coding: utf-8 -*-
+=begin
+  Copyright (C) 2011-2014 Takashi SUGA
+
+  You may use and/or modify this file according to the license
+  described in the LICENSE.txt file included in this archive.
+=end
+
+module MiniTest
+
+  class Mayan < MiniTest::TestCase
+    def test__mayan_epoch
+      # No offset
+      [['PHLC13.0.0.0.0', 'PHLC13(00).00.00.00.00',  584283],
+       ['HLC0.0.0.0.1',   'HLC00.00.00.00.01',       584284],
+       ['HLC13.0.0.0.0',  'HLC13.00.00.00.00',      2456283],
+       ['HLC13.0.0.0.1',  'NLC00(13).00.00.00.01',  2456284]].each do |sample|
+        date = When.when?(sample.shift)
+        assert_equal(sample, [date.to_s, date.to_i])
+      end
+
+      # offset 0B
+      [['LongCount?Epoch=0D::PHLC13.0.0.0.0', 'LongCount?Epoch=0D::PHLC13(00).00.00.00.00',  584283],
+       ['LongCount?Epoch=0D::HLC0.0.0.0.1',   'LongCount?Epoch=0D::HLC00.00.00.00.01',       584284],
+       ['LongCount?Epoch=0D::HLC13.0.0.0.0',  'LongCount?Epoch=0D::HLC13.00.00.00.00',      2456283],
+       ['LongCount?Epoch=0D::HLC13.0.0.0.1',  'LongCount?Epoch=0D::NLC00(13).00.00.00.01',  2456284]].each do |sample|
+        date = When.when?(sample.shift)
+        assert_equal(sample, [date.to_s, date.to_i])
+      end
+
+      # offset 2B
+      [['LongCount?Epoch=2D::PHLC13.0.0.0.0', 'LongCount?Epoch=2D::PHLC13(00).00.00.00.00',  584285],
+       ['LongCount?Epoch=2D::HLC0.0.0.0.1',   'LongCount?Epoch=2D::HLC00.00.00.00.01',       584286],
+       ['LongCount?Epoch=2D::HLC13.0.0.0.0',  'LongCount?Epoch=2D::HLC13.00.00.00.00',      2456285],
+       ['LongCount?Epoch=2D::HLC13.0.0.0.1',  'LongCount?Epoch=2D::NLC00(13).00.00.00.01',  2456286]].each do |sample|
+        date = When.when?(sample.shift)
+        assert_equal(sample, [date.to_s, date.to_i])
+      end
+    end
+
+    def test__mayan_period
+      date   = When.when?('HLC0.0.0.0.1')
+      period = When.Duration('P2X1X3Y4M5D')
+      assert_equal('HLC02.01.03.04.06', (date + period).to_s)
+    end
+
+    def test__haab
+      # No offset
+      haab = When.Resource("_co:Mayan::Haab'")
+      assert_equal("ハアブ", haab.label.translate('ja'))
+      assert_equal("http://en.wikipedia.org/wiki/Haab'", haab.label.reference)
+      pop = When.Resource("_co:Mayan::Haab'::Pop")
+      assert_equal("Pop", pop.label.translate('en'))
+      assert_equal("http://en.wikipedia.org/wiki/File:Maya-Pop.jpg", pop.label.reference)
+      date0 = When.when?('2011-05-16T12:34:56Z')
+      sample = [
+        "2012-04-12T12:34:56Z",
+        "2012-04-13T12:34:56Z",
+        "2012-04-14T12:34:56Z"
+      ]
+      [10,11,12].each do |i|
+        assert_equal(sample.shift, (date0 & pop[i]).to_s)
+      end
+      assert_equal(42, When.when?('2011-05-15') % haab)
+      h = haab % When.when?('2011-05-15')
+      assert_equal(["Sip", 2], [h.label.to_s, h.difference])
+
+      # offset 0B
+      haab = When.Resource("_co:Mayan?Epoch=0D::Haab'")
+      assert_equal("ハアブ", haab.label.translate('ja'))
+      assert_equal("http://en.wikipedia.org/wiki/Haab'", haab.label.reference)
+      pop = When.Resource("_co:Mayan?Epoch=0D::Haab'::Pop")
+      assert_equal("Pop", pop.label.translate('en'))
+      assert_equal("http://en.wikipedia.org/wiki/File:Maya-Pop.jpg", pop.label.reference)
+      date0 = When.when?('2011-05-16T12:34:56Z')
+      sample = [
+        "2012-04-12T12:34:56Z",
+        "2012-04-13T12:34:56Z",
+        "2012-04-14T12:34:56Z"
+      ]
+      [10,11,12].each do |i|
+        assert_equal(sample.shift, (date0 & pop[i]).to_s)
+      end
+      assert_equal(42, When.when?('2011-05-15') % haab)
+      h = haab % When.when?('2011-05-15')
+      assert_equal(["Sip", 2], [h.label.to_s, h.difference])
+
+      # offset 2B
+      haab = When.Resource("_co:Mayan?Epoch=2D::Haab'")
+      assert_equal("ハアブ", haab.label.translate('ja'))
+      assert_equal("http://en.wikipedia.org/wiki/Haab'", haab.label.reference)
+      pop = When.Resource("_co:Mayan?Epoch=2D::Haab'::Pop")
+      assert_equal("Pop", pop.label.translate('en'))
+      assert_equal("http://en.wikipedia.org/wiki/File:Maya-Pop.jpg", pop.label.reference)
+      date0 = When.when?('2011-05-16T12:34:56Z')
+      sample = [
+        "2012-04-14T12:34:56Z",
+        "2012-04-15T12:34:56Z",
+        "2012-04-16T12:34:56Z"
+      ]
+      [10,11,12].each do |i|
+        assert_equal(sample.shift, (date0 & pop[i]).to_s)
+      end
+      assert_equal(42, When.when?('2011-05-17') % haab)
+      h = haab % When.when?('2011-05-17')
+      assert_equal(["Sip", 2], [h.label.to_s, h.difference])
+    end
+
+    def test__tzolkin
+      # No offset
+      trecena = When.Resource("_co:Mayan::Trecena")
+      assert_equal("トレセナ", trecena.label.translate('ja'))
+      assert_equal("http://en.wikipedia.org/wiki/Trecena", trecena.label.reference)
+      assert_equal(2, When.when?('2011-05-15') % trecena)
+
+
+      tzolkin = When.Resource("_co:Mayan::Tzolk'in")
+      assert_equal("ツォルキン", tzolkin.label.translate('ja'))
+      assert_equal("http://en.wikipedia.org/wiki/Tzolk'in", tzolkin.label.reference)
+      ajaw = When.Resource("_co:Mayan::Tzolk'in::Ajaw")
+      assert_equal("Ajaw", ajaw.label.translate('en'))
+      assert_equal("http://en.wikipedia.org/wiki/File:MAYA-g-log-cal-D20-Ajaw-cdxW.png", ajaw.label.reference('alias'))
+      date0 = When.when?('2011-05-16T12:34:56Z')
+      sample = [
+        "2011-05-21T12:34:56Z",
+        "2011-05-21T12:34:56Z",
+        "2011-05-21T12:34:56Z"
+      ]
+      [10,11,12].each do |i|
+        assert_equal(sample.shift, (date0 & ajaw).to_s)
+      end
+      assert_equal(13, When.when?('2011-05-15') % tzolkin)
+      assert_equal('Ix', (tzolkin % When.when?('2011-05-15')).label.to_s)
+      if ::Object.const_defined?(:Date) && Date.respond_to?(:civil)
+        assert_equal('Ix', (tzolkin % Date.new(2011,5,15)).label.to_s)
+      end
+
+      # offset 0B
+      trecena = When.Resource("_co:Mayan?Epoch=0D::Trecena")
+      assert_equal("トレセナ", trecena.label.translate('ja'))
+      assert_equal("http://en.wikipedia.org/wiki/Trecena", trecena.label.reference)
+      assert_equal(2, When.when?('2011-05-15') % trecena)
+
+
+      tzolkin = When.Resource("_co:Mayan?Epoch=0D::Tzolk'in")
+      assert_equal("ツォルキン", tzolkin.label.translate('ja'))
+      assert_equal("http://en.wikipedia.org/wiki/Tzolk'in", tzolkin.label.reference)
+      ajaw = When.Resource("_co:Mayan?Epoch=0D::Tzolk'in::Ajaw")
+      assert_equal("Ajaw", ajaw.label.translate('en'))
+      assert_equal("http://en.wikipedia.org/wiki/File:MAYA-g-log-cal-D20-Ajaw-cdxW.png", ajaw.label.reference('alias'))
+      date0 = When.when?('2011-05-16T12:34:56Z')
+      sample = [
+        "2011-05-21T12:34:56Z",
+        "2011-05-21T12:34:56Z",
+        "2011-05-21T12:34:56Z"
+      ]
+      [10,11,12].each do |i|
+        assert_equal(sample.shift, (date0 & ajaw).to_s)
+      end
+      assert_equal(13, When.when?('2011-05-15') % tzolkin)
+      assert_equal('Ix', (tzolkin % When.when?('2011-05-15')).label.to_s)
+      if ::Object.const_defined?(:Date) && Date.respond_to?(:civil)
+        assert_equal('Ix', (tzolkin % Date.new(2011,5,15)).label.to_s)
+      end
+
+      # offset 2B
+      trecena = When.Resource("_co:Mayan?Epoch=2D::Trecena")
+      assert_equal("トレセナ", trecena.label.translate('ja'))
+      assert_equal("http://en.wikipedia.org/wiki/Trecena", trecena.label.reference)
+      assert_equal(2, When.when?('2011-05-17') % trecena)
+
+
+      tzolkin = When.Resource("_co:Mayan?Epoch=2D::Tzolk'in")
+      assert_equal("ツォルキン", tzolkin.label.translate('ja'))
+      assert_equal("http://en.wikipedia.org/wiki/Tzolk'in", tzolkin.label.reference)
+      ajaw = When.Resource("_co:Mayan?Epoch=2D::Tzolk'in::Ajaw")
+      assert_equal("Ajaw", ajaw.label.translate('en'))
+      assert_equal("http://en.wikipedia.org/wiki/File:MAYA-g-log-cal-D20-Ajaw-cdxW.png", ajaw.label.reference('alias'))
+      date0 = When.when?('2011-05-16T12:34:56Z')
+      sample = [
+        "2011-05-23T12:34:56Z",
+        "2011-05-23T12:34:56Z",
+        "2011-05-23T12:34:56Z"
+      ]
+      [10,11,12].each do |i|
+        assert_equal(sample.shift, (date0 & ajaw).to_s)
+      end
+      assert_equal(13, When.when?('2011-05-17') % tzolkin)
+      assert_equal('Ix', (tzolkin % When.when?('2011-05-17')).label.to_s)
+      if ::Object.const_defined?(:Date) && Date.respond_to?(:civil)
+        assert_equal('Ix', (tzolkin % Date.new(2011,5,17)).label.to_s)
+      end
+    end
+  end
+end

data/test/test/region/residue.rb

@@ -1,139 +1,147 @@
-# -*- coding: utf-8 -*-
-=begin
-  Copyright (C) 2011-2014 Takashi SUGA
-
-  You may use and/or modify this file according to the license
-  described in the LICENSE.txt file included in this archive.
-=end
-
-module Test
-
-  class Residue < Test::Unit::TestCase
-    def test__enumerator0
-      list = []
-      res = When::Coordinates::Residue.new(365.2422, 29.530589)
-      res.each({:error=>1E-10}) do |v|
-        list << v[0..1]
-      end
-      assert_equal(
-        [[12, 1],
-         [25, 2],
-         [37, 3],
-         [99, 8],
-         [136, 11],
-         [235, 19],
-         [4131, 334],
-         [8497, 687],
-         [12628, 1021],
-         [33753, 2729],
-         [46381, 3750],
-         [219277, 17729],
-         [923489, 74666]], list)
-    end
-
-    def test__kanshi
-      ['_co:Common', 'examples/Residue.m17n'].each do |iri|
-        assert_equal("Week", When.Resource(iri + '::Week').label)
-        assert_equal("Monday", When.Resource(iri + '::Week::Monday').label)
-        assert_equal(7, When.Resource(iri + '::Week::Friday').divisor)
-        assert_equal(6, When.Resource(iri + '::Week::Sunday').remainder)
-        assert_equal(7, When.Resource(iri + '::Week::Sunday').divisor)
-        assert_equal("日曜日", When.Resource(iri + '::Week::Sunday::Sunday').translate('ja'))
-
-        sample = [
-          ["Monday",    "月曜日", "http://en.wikipedia.org/wiki/Monday"],
-          ["Tuesday",   "火曜日", "http://en.wikipedia.org/wiki/Tuesday"],
-          ["Wednesday", "水曜日", "http://en.wikipedia.org/wiki/Wednesday"],
-          ["Thursday",  "木曜日", "http://en.wikipedia.org/wiki/Thursday"],
-          ["Friday",    "金曜日", "http://en.wikipedia.org/wiki/Friday"],
-          ["Saturday",  "土曜日", "http://en.wikipedia.org/wiki/Saturday"],
-          ["Sunday",    "日曜日", "http://en.wikipedia.org/wiki/Sunday"]
-        ]
-        assert_equal(7, When::Parts::Resource[iri + '::Week'].child.size)
-        When::Parts::Resource[iri + '::Week'].child.each do |obj|
-          name = obj.label
-          assert_equal(sample.shift, [name.label, name.translate('ja'), name.reference('en')])
-        end
-
-        stem        = When.Resource(iri + '::干')
-        kinoto      = When.Resource(iri + '::干::乙')
-        ushi        = When.Resource(iri + '::支::丑')
-        kinoto_ushi = When.Resource(iri + '::干支::乙丑')
-
-        sample = [
-          ["干", 10, 0],
-          ["乙", 10, 1],
-          ["丑", 12, 1]
-        ]
-        [stem, kinoto, ushi].each do |v|
-          assert_equal(sample.shift, [v.label, v.divisor, v.remainder])
-        end
-
-        assert_equal("hinoto", stem[3].label.translate('en'))
-
-        date0 = When.when?('2011-05-16T12:34:56Z')
-        date = date0 & (kinoto & ushi)
-        assert_equal("2011-07-09T12:34:56Z", date.to_s)
-
-        date = date0 & (kinoto & ushi).to('day')
-        assert_equal("2011-07-09T12:34:56Z", date.to_s)
-
-        date = date0 & (kinoto & ushi) / 'day'
-        assert_equal("2011-07-09T12:34:56Z", date.to_s)
-
-        date = date0 & (kinoto & ushi).to('year')
-        assert_equal("2045-05-16T12:34:56Z", date.to_s)
-
-        date = date0 & kinoto_ushi / 'year'
-        assert_equal("2045-05-16T12:34:56Z", date.to_s)
-      end
-    end
-
-    def test__epoch_in_CE
-      cals  = [
-        'Gregorian',
-      # 'Dee',
-      # 'DeeCecil',
-        'Coptic?Epoch=284Y',
-        'Coptic?Epoch=8Y',
-        'IndianNationalSolar',
-        'Nanakshahi',
-        'RevisedBengali',
-        'HinduSolar?type=SBV',
-        'HinduSolar?type=SBVZ',
-        'HinduSolar?type=SBS',
-        'HinduSolar?type=SBSZ',
-        'HinduSolar?type=SBB',
-        'HinduSolar?type=SBBZ',
-        'HinduSolar?type=SBH',
-        'HinduSolar?type=SBHZ',
-     #  'HinduLuniSolar?type=SBVA',
-     #  'HinduLuniSolar?type=SBVZA',
-     #  'HinduLuniSolar?type=SBSA',
-     #  'HinduLuniSolar?type=SBSZA',
-     #  'HinduLuniSolar?type=SBB',
-     #  'HinduLuniSolar?type=SBBZ',
-     #  'HinduLuniSolar?type=SBH',
-     #  'HinduLuniSolar?type=SBHZ',
-        'FrenchRepublican',
-        'Jalali',
-        'SolarHijri',
-        'SolarHijriAlgorithmic',
-        'Borji',
-        'Jewish',
-        'Thai',
-      # 'ThaiC',
-        'Tibetan',
-      ]
-      eto   = When.Resource('_co:Common::干支').to('year')
-      today = When.when?('2012-06-13')
-      assert_equal([[28, 246778, 246778]],
-        cals.map { |cal|
-          date = When.Calendar(cal) ^ today
-          [date % eto, (eto & date).to_i/10, (date & eto).to_i/10]
-        }.uniq
-      )
-    end
-  end
-end
-
+# -*- coding: utf-8 -*-
+=begin
+  Copyright (C) 2011-2014 Takashi SUGA
+
+  You may use and/or modify this file according to the license
+  described in the LICENSE.txt file included in this archive.
+=end
+
+module MiniTest
+
+  class Residue < MiniTest::TestCase
+    def test__enumerator0
+      list = []
+      res = When::Coordinates::Residue.new(365.2422, 29.530589)
+      res.each({:error=>1E-10}) do |v|
+        list << v[0..1]
+      end
+      assert_equal(
+        [[12, 1],
+         [25, 2],
+         [37, 3],
+         [99, 8],
+         [136, 11],
+         [235, 19],
+         [4131, 334],
+         [8497, 687],
+         [12628, 1021],
+         [33753, 2729],
+         [46381, 3750],
+         [219277, 17729],
+         [923489, 74666]], list)
+    end
+
+    def test__kanshi
+      ['_co:Common', 'examples/Residue.m17n'].each do |iri|
+        assert_equal("Week", When.Resource(iri + '::Week').label)
+        assert_equal("Monday", When.Resource(iri + '::Week::Monday').label)
+        assert_equal(7, When.Resource(iri + '::Week::Friday').divisor)
+        assert_equal(6, When.Resource(iri + '::Week::Sunday').remainder)
+        assert_equal(7, When.Resource(iri + '::Week::Sunday').divisor)
+        assert_equal("日曜日", When.Resource(iri + '::Week::Sunday::Sunday').translate('ja'))
+
+        sample = [
+          ["Monday",    "月曜日", "http://en.wikipedia.org/wiki/Monday"],
+          ["Tuesday",   "火曜日", "http://en.wikipedia.org/wiki/Tuesday"],
+          ["Wednesday", "水曜日", "http://en.wikipedia.org/wiki/Wednesday"],
+          ["Thursday",  "木曜日", "http://en.wikipedia.org/wiki/Thursday"],
+          ["Friday",    "金曜日", "http://en.wikipedia.org/wiki/Friday"],
+          ["Saturday",  "土曜日", "http://en.wikipedia.org/wiki/Saturday"],
+          ["Sunday",    "日曜日", "http://en.wikipedia.org/wiki/Sunday"]
+        ]
+        assert_equal(7, When::Parts::Resource[iri + '::Week'].child.size)
+        When::Parts::Resource[iri + '::Week'].child.each do |obj|
+          name = obj.label
+          assert_equal(sample.shift, [name.label, name.translate('ja'), name.reference('en')])
+        end
+
+        stem        = When.Resource(iri + '::干')
+        kinoto      = When.Resource(iri + '::干::乙')
+        ushi        = When.Resource(iri + '::支::丑')
+        kinoto_ushi = When.Resource(iri + '::干支::乙丑')
+
+        sample = [
+          ["干", 10, 0],
+          ["乙", 10, 1],
+          ["丑", 12, 1]
+        ]
+        [stem, kinoto, ushi].each do |v|
+          assert_equal(sample.shift, [v.label, v.divisor, v.remainder])
+        end
+
+        assert_equal("hinoto", stem[3].label.translate('en'))
+
+        date0 = When.when?('2011-05-16T12:34:56Z')
+        date = date0 & (kinoto & ushi)
+        assert_equal("2011-07-09T12:34:56Z", date.to_s)
+
+        date = date0 & (kinoto & ushi).to('day')
+        assert_equal("2011-07-09T12:34:56Z", date.to_s)
+
+        date = date0 & (kinoto & ushi) / 'day'
+        assert_equal("2011-07-09T12:34:56Z", date.to_s)
+
+        date = date0 & (kinoto & ushi).to('year')
+        assert_equal("2045-05-16T12:34:56Z", date.to_s)
+
+        date = date0 & kinoto_ushi / 'year'
+        assert_equal("2045-05-16T12:34:56Z", date.to_s)
+      end
+    end
+
+    def test__epoch_in_CE
+      cals  = [
+        'Gregorian',
+        'Dee',
+        'DeeCecil',
+        'Coptic?Epoch=284Y',
+        'Coptic?Epoch=8Y',
+        'Coptic?Epoch=0Y',
+        'Babylonian',
+        'BabylonianPD',
+        'Seleucid',
+        'SeleucidPD',
+       ['Ptolemaic', +2],
+        'IndianNationalSolar',
+        'Nanakshahi',
+        'RevisedBengali',
+        'HinduSolar?type=SBV',
+        'HinduSolar?type=SBVZ',
+        'HinduSolar?type=SBS',
+        'HinduSolar?type=SBSZ',
+        'HinduSolar?type=SBB',
+        'HinduSolar?type=SBBZ',
+        'HinduSolar?type=SBH',
+        'HinduSolar?type=SBHZ',
+     #  'HinduLuniSolar?type=SBVA',
+     #  'HinduLuniSolar?type=SBVZA',
+     #  'HinduLuniSolar?type=SBSA',
+     #  'HinduLuniSolar?type=SBSZA',
+     #  'HinduLuniSolar?type=SBB',
+     #  'HinduLuniSolar?type=SBBZ',
+     #  'HinduLuniSolar?type=SBH',
+     #  'HinduLuniSolar?type=SBHZ',
+        'FrenchRepublican',
+        'Jalali',
+        'SolarHijri',
+        'SolarHijriAlgorithmic',
+        'Borji',
+        'Jewish',
+        'Thai',
+      # 'ThaiC',
+        'Tibetan',
+      ]
+      eto   = When.Resource('_co:Common::干支').to('year')
+      today = When.when?('2012-06-16')
+      assert_equal([[28, 246778, 246778]],
+        cals.map { |list|
+          cal, shift = list
+          shift    ||= 0
+          date = When.Calendar(cal) ^ today
+          [date % eto - shift, ((eto & date).to_i/10).to_i + 37*shift, ((date & eto).to_i/10).to_i + 37*shift]
+        }.uniq
+      )
+    end
+  end
+end
+