when_exe 0.4.2 → 0.5.0

data/test/test/calendarnote.rb

@@ -1,86 +1,86 @@
-# -*- coding: utf-8 -*-
-=begin
-  Copyright (C) 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::CalendarNote
-
-  class NotesContainer < MiniTest::TestCase
-
-    def test__lunar_phases
-      assert_equal([[{:note=>"月相", :value=>"朔(-233/3040)", :position=>"中段"}]],
-        When.when?('承和2.4.2').notes(:notes=>'月相', :conditions=>{:shoyo=>true}))
-      assert_equal([[{:note=>"月相", :value=>"望(1478.5/3040)", :position=>"中段"}]],
-        When.when?('承和2.4.16').notes(:notes=>'月相', :conditions=>{:shoyo=>true}))
-      all = {}
-      assert_equal([[{:note=>"月相", :value=>"望(1478.5/3040)", :position=>"中段"}]],
-        When.when?('承和2.4.16').notes(:notes=>'月相', :shoyo=>true, :persistence=>all))
-      assert_equal({2026177=>[[{:note=>"月相", :value=>"望(1478.5/3040)", :position=>"中段"}]]}, all)
-    end
-
-    def test__solar_terms
-      term = When.CalendarNote('SolarTerms').copy('term315')
-      assert_equal('2014-02-03', term.term(When.when?('2014-1-1')).to_s)
-    end
-
-    def test__persistence
-      all    = {}
-      notes0 = When.when?('平成25.9.22').notes(:persistence=>all)
-      notes1 = When.when?('平成25.9.23').notes(:persistence=>all)
-      notes2 = When.when?('平成25.9.24').notes(:persistence=>all)
-      notes3 = When.when?('平成25.9.23').notes(:persistence=>all)
-
-      [notes1, notes3].each do |notes|
-        assert_equal(
-          [[{:note=>"干支", :value=>"癸巳(29)", :position=>"共通"}],
-           [{:note=>"月名", :value=>"September", :position=>"月建"}],
-           [{:note=>"七曜", :value=>"Monday(0)", :position=>"共通"},
-            {:note=>"干支", :value=>"壬辰(28)", :position=>"共通"},
-            {:note=>"六曜", :value=>"友引", :position=>"民間"},
-            {:note=>"廿四節気", :value=>"秋分(180)", :position=>"時候"},
-            {:note=>"祝祭日", :value=>"秋分の日", :position=>"祝祭日"}]], notes)
-      end
-
-      assert_equal([["癸巳(29)"], ["September"], ["Monday(0)", "壬辰(28)", "友引", "秋分(180)", "秋分の日"]],
-        notes1.simplify[:value])
-
-      assert_equal([[{:note=>"月名", :value=>"September", :position=>"月建"}]], notes1.subset(:note=>/Month/))
-      assert_equal([[{:note=>"干支", :value=>"癸巳(29)", :position=>"共通"}],
-                    [{:note=>"干支", :value=>"壬辰(28)", :position=>"共通"}]], notes1.subset(:note=>'干支'))
-      assert_equal([[{:note=>"祝祭日", :value=>"秋分の日", :position=>"祝祭日"}]], notes1.subset(:value=>'秋分の日'))
-      assert_equal(nil, notes1.subset(:value=>'春分の日'))
-      assert_equal([[nil], [nil], [nil, nil, nil, nil, nil]], notes1.subset({:value=>'春分の日'}, false))
-
-      assert_equal([2456558, 2456559, 2456560], all.keys)
-      assert_equal({2456559=>"秋分の日"}, all.subset(:value=>'秋分の日').simplify[:value])
-    end
-
-    def test__holiday
-      date1 = When.when?('平成25.9.23')
-      date2 = When.when?('平成25.9.24')
-      notes1 = date1.notes("祝祭日")
-      assert_equal([[{:note=>"祝祭日", :value=>"秋分の日", :position=>"祝祭日"}]], notes1)
-      assert_equal({:note=>"祝祭日", :value=>"秋分の日", :position=>"祝祭日"}, notes1.simplify)
-      assert_equal(true, date1.is?({:note=>"祝祭日", :value=>"秋分の日"}))
-      assert_equal(true, date1.is?("祝祭日"))
-      assert_equal(true, date1.is?("秋分の日"))
-      assert_equal(false, date2.is?("秋分の日"))
-
-      note = When.CalendarNote('Japanese')
-      assert_equal(true, note.note?(When.when?('2014-9-15'), '祝祭日'))
-      assert_equal(true, note.note?(When.when?('2014-9-15'), {:notes=>'祝祭日', :value=>'敬老の日'}))
-      assert_equal(false, note.note?(When.when?('2014-9-15'), {:notes=>'祝祭日', :value=>'敬老日'}))
-      assert_equal('敬老の日', note.notes(When.when?('2014-9-15'), '祝祭日')[:value].simplify.to_s)
-
-      assert_equal('五黄土星(4)', note.notes(When.when?('2014-1-1'), {:notes=>[['九星'],[],[]], :indices=>-2})[:value].simplify.to_s)
-      assert_equal('一白水星(8)', note.notes(When.when?('2014-1-1'), {:notes=>[[],['九星'],[]], :indices=>-1})[:value].simplify.to_s)
-      assert_equal('九紫火星(0)', note.notes(When.when?('2014-1-1'), {:notes=>'九星', :indices=> 0})[:value].simplify.to_s)
-
-      assert_equal(true, When.CalendarNote('Christian').copy('christmas').include?(When.when?('2012-12-25')))
-    end
-  end
-end
-
+# -*- coding: utf-8 -*-
+=begin
+  Copyright (C) 2014-2020 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::CalendarNote
+
+  class NotesContainer < MiniTest::TestCase
+
+    def test__lunar_phases
+      assert_equal([[{:note=>"月相", :value=>"朔(-233/3040)", :position=>"中段"}]],
+        When.when?('承和2.4.2').notes(:notes=>'月相', :conditions=>{:shoyo=>true}))
+      assert_equal([[{:note=>"月相", :value=>"望(1478.5/3040)", :position=>"中段"}]],
+        When.when?('承和2.4.16').notes(:notes=>'月相', :conditions=>{:shoyo=>true}))
+      all = {}
+      assert_equal([[{:note=>"月相", :value=>"望(1478.5/3040)", :position=>"中段"}]],
+        When.when?('承和2.4.16').notes(:notes=>'月相', :shoyo=>true, :persistence=>all))
+      assert_equal({2026177=>[[{:note=>"月相", :value=>"望(1478.5/3040)", :position=>"中段"}]]}, all)
+    end
+
+    def test__solar_terms
+      term = When.CalendarNote('SolarTerms').copy('term315')
+      assert_equal('2014-02-03', term.term(When.when?('2014-1-1')).to_s)
+    end
+
+    def test__persistence
+      all    = {}
+      notes0 = When.when?('平成25.9.22').notes(:persistence=>all)
+      notes1 = When.when?('平成25.9.23').notes(:persistence=>all)
+      notes2 = When.when?('平成25.9.24').notes(:persistence=>all)
+      notes3 = When.when?('平成25.9.23').notes(:persistence=>all)
+
+      [notes1, notes3].each do |notes|
+        assert_equal(
+          [[{:note=>"干支", :value=>"癸巳(29)", :position=>"共通"}],
+           [{:note=>"月名", :value=>"September", :position=>"月建"}],
+           [{:note=>"七曜", :value=>"Monday(0)", :position=>"共通"},
+            {:note=>"干支", :value=>"壬辰(28)", :position=>"共通"},
+            {:note=>"六曜", :value=>"友引", :position=>"民間"},
+            {:note=>"廿四節気", :value=>"秋分(180)", :position=>"時候"},
+            {:note=>"祝祭日", :value=>"秋分の日", :position=>"祝祭日"}]], notes)
+      end
+
+      assert_equal([["癸巳(29)"], ["September"], ["Monday(0)", "壬辰(28)", "友引", "秋分(180)", "秋分の日"]],
+        notes1.simplify[:value])
+
+      assert_equal([[{:note=>"月名", :value=>"September", :position=>"月建"}]], notes1.subset(:note=>/Month/))
+      assert_equal([[{:note=>"干支", :value=>"癸巳(29)", :position=>"共通"}],
+                    [{:note=>"干支", :value=>"壬辰(28)", :position=>"共通"}]], notes1.subset(:note=>'干支'))
+      assert_equal([[{:note=>"祝祭日", :value=>"秋分の日", :position=>"祝祭日"}]], notes1.subset(:value=>'秋分の日'))
+      assert_nil(notes1.subset(:value=>'春分の日'))
+      assert_equal([[nil], [nil], [nil, nil, nil, nil, nil]], notes1.subset({:value=>'春分の日'}, false))
+
+      assert_equal([2456558, 2456559, 2456560], all.keys)
+      assert_equal({2456559=>"秋分の日"}, all.subset(:value=>'秋分の日').simplify[:value])
+    end
+
+    def test__holiday
+      date1 = When.when?('平成25.9.23')
+      date2 = When.when?('平成25.9.24')
+      notes1 = date1.notes("祝祭日")
+      assert_equal([[{:note=>"祝祭日", :value=>"秋分の日", :position=>"祝祭日"}]], notes1)
+      assert_equal({:note=>"祝祭日", :value=>"秋分の日", :position=>"祝祭日"}, notes1.simplify)
+      assert_equal(true, date1.is?({:note=>"祝祭日", :value=>"秋分の日"}))
+      assert_equal(true, date1.is?("祝祭日"))
+      assert_equal(true, date1.is?("秋分の日"))
+      assert_equal(false, date2.is?("秋分の日"))
+
+      note = When.CalendarNote('Japanese')
+      assert_equal(true, note.note?(When.when?('2014-9-15'), '祝祭日'))
+      assert_equal(true, note.note?(When.when?('2014-9-15'), {:notes=>'祝祭日', :value=>'敬老の日'}))
+      assert_equal(false, note.note?(When.when?('2014-9-15'), {:notes=>'祝祭日', :value=>'敬老日'}))
+      assert_equal('敬老の日', note.notes(When.when?('2014-9-15'), '祝祭日')[:value].simplify.to_s)
+
+      assert_equal('五黄土星(4)', note.notes(When.when?('2014-1-1'), {:notes=>[['九星'],[],[]], :indices=>-2})[:value].simplify.to_s)
+      assert_equal('一白水星(8)', note.notes(When.when?('2014-1-1'), {:notes=>[[],['九星'],[]], :indices=>-1})[:value].simplify.to_s)
+      assert_equal('九紫火星(0)', note.notes(When.when?('2014-1-1'), {:notes=>'九星', :indices=> 0})[:value].simplify.to_s)
+
+      assert_equal(true, When.CalendarNote('Christian').copy('christmas').include?(When.when?('2012-12-25')))
+    end
+  end
+end
+

data/test/test/calendartypes.rb

@@ -1,97 +1,97 @@
-# -*- 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::CalendarTypes
-
-  class UTC < MiniTest::TestCase
-    def test__utc
-      assert_equal("+00:00", When::UTC.tzname[0].to_s)
-    end
-  end
-
-  class TableBased < MiniTest::TestCase
-    def test_nothing
-    end
-  end
-
-  class PatternTableBasedLuniSolar < MiniTest::TestCase
-    def test__japanese
-
-      frame = When.Resource('Japanese', '_c:')
-      date = When.when?('16000101^Japanese')
-      assert_equal(["1600-01-01", 2305493], [date.to_s, date.to_i])
-      assert_equal(2305493, frame._coordinates_to_number(1600-454,0,0))
-      assert_equal([1146, 0, 0], frame._number_to_coordinates(2305493))
-
-      date = When.when?('0594-09=12^Japanese')
-      assert_equal(["0594-09=12", 1938320], [date.to_s, date.to_i])
-      assert_equal(594, date['YEAR'])
-      assert_equal(When::BasicTypes::M17n, date.name('Month').class)
-
-      result = []
-      (date ^ When::TM::Calendar).each do |d|
-        result << d.to_s
-      end
-      result.sort!
-
-      sample = ["0594-09=12", "0594-11-02", "0594-11-02"] #TODO �Ȃ� Greg 2��?
-      # assert_equal(sample, result)
-    end
-  end
-
-  class CyclicTableBased < MiniTest::TestCase
-    def test__islamic
-      frame = When.Resource('_c:TabularIslamic')
-      date = When.when?('00010101^TabularIslamic')
-      assert_equal(["0001-01-01", 1948440], [date.to_s, date.to_i])
-      assert_equal(1959071, frame._coordinates_to_number(31,0,0))
-      assert_equal([31, 0, 0], frame._number_to_coordinates(1948440+10631))
-    end
-  end
-
-  class SolarTerms < MiniTest::TestCase
-
-    Sample = %w(2013-03-20 2013-06-21 2013-09-23 2013-12-22
-                2014-03-21 2014-06-21 2014-09-23 2014-12-22
-                2015-03-21 2015-06-22 2015-09-23 2015-12-22)
-
-    def test__term
-      note = When.CalendarNote('SolarTerms')
-      assert_equal('2014-03-20', note.term(When.when?('2014-3-1'), [0,30]).to_s)
-      When::TM::Clock.local_time = '+09:00'
-      assert_equal('2014-03-21', note.term(When.when?('2014-3-1'), [0,30]).to_s)
-    end
-
-    def test__each
-      When::TM::Clock.local_time = '+09:00'
-      note            = When.CalendarNote('SolarTerms')
-      note_with_event = When.CalendarNote('SolarTerms?event=term0/90')
-      today           = When.when?('2013-03-01')
-      last            = When.when?('2016-01-01')
-
-      sample = Sample.dup
-      note_with_event.each(today) do |date|
-        assert_equal(sample.shift, date.to_s)
-        break if sample.empty?
-      end
-
-      sample = Sample.dup
-      note_with_event.each(today...last) do |date|
-        assert_equal(sample.shift, date.to_s)
-      end
-      assert_equal(true, sample.empty?)
-
-      sample = Sample.dup
-      note.each(today...last, {:event=>'term0/90', :count_limit=>4}) do |date|
-        assert_equal(sample.shift, date.to_s)
-      end
-      assert_equal(Sample.length - 4, sample.length)
-    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::CalendarTypes
+
+  class UTC < MiniTest::TestCase
+    def test__utc
+      assert_equal("+00:00", When::UTC.tzname[0].to_s)
+    end
+  end
+
+  class TableBased < MiniTest::TestCase
+    def test_nothing
+    end
+  end
+
+  class PatternTableBasedLuniSolar < MiniTest::TestCase
+    def test__japanese
+
+      frame = When.Resource('Japanese', '_c:')
+      date = When.when?('16000101^Japanese')
+      assert_equal(["1600-01-01", 2305493], [date.to_s, date.to_i])
+      assert_equal(2305493, frame._coordinates_to_number(1600-454,0,0))
+      assert_equal([1146, 0, 0], frame._number_to_coordinates(2305493))
+
+      date = When.when?('0594-09=12^Japanese')
+      assert_equal(["0594-09=12", 1938320], [date.to_s, date.to_i])
+      assert_equal(594, date['YEAR'])
+      assert_equal(When::BasicTypes::M17n, date.name('Month').class)
+
+      result = []
+      (date ^ When::TM::Calendar).each do |d|
+        result << d.to_s
+      end
+      result.sort!
+
+      sample = ["0594-09=12", "0594-11-02", "0594-11-02"] #TODO �Ȃ� Greg 2��?
+      # assert_equal(sample, result)
+    end
+  end
+
+  class CyclicTableBased < MiniTest::TestCase
+    def test__islamic
+      frame = When.Resource('_c:TabularIslamic')
+      date = When.when?('00010101^TabularIslamic')
+      assert_equal(["0001-01-01", 1948440], [date.to_s, date.to_i])
+      assert_equal(1959071, frame._coordinates_to_number(31,0,0))
+      assert_equal([31, 0, 0], frame._number_to_coordinates(1948440+10631))
+    end
+  end
+
+  class SolarTerms < MiniTest::TestCase
+
+    Sample = %w(2013-03-20 2013-06-21 2013-09-23 2013-12-22
+                2014-03-21 2014-06-21 2014-09-23 2014-12-22
+                2015-03-21 2015-06-22 2015-09-23 2015-12-22)
+
+    def test__term
+      note = When.CalendarNote('SolarTerms')
+      assert_equal('2014-03-20', note.term(When.when?('2014-3-1'), [0,30]).to_s)
+      When::TM::Clock.local_time = '+09:00'
+      assert_equal('2014-03-21', note.term(When.when?('2014-3-1'), [0,30]).to_s)
+    end
+
+    def test__each
+      When::TM::Clock.local_time = '+09:00'
+      note            = When.CalendarNote('SolarTerms')
+      note_with_event = When.CalendarNote('SolarTerms?event=term0/90')
+      today           = When.when?('2013-03-01')
+      last            = When.when?('2016-01-01')
+
+      sample = Sample.dup
+      note_with_event.each(today) do |date|
+        assert_equal(sample.shift, date.to_s)
+        break if sample.empty?
+      end
+
+      sample = Sample.dup
+      note_with_event.each(today...last) do |date|
+        assert_equal(sample.shift, date.to_s)
+      end
+      assert_equal(true, sample.empty?)
+
+      sample = Sample.dup
+      note.each(today...last, {:event=>'term0/90', :count_limit=>4}) do |date|
+        assert_equal(sample.shift, date.to_s)
+      end
+      assert_equal(Sample.length - 4, sample.length)
+    end
+  end
+end
+

data/test/test/coordinates.rb

@@ -1,397 +1,399 @@
-# -*- 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::Coordinates
-
-  #
-  # 剰余類
-  #
-  class Residue < MiniTest::TestCase
-
-    def test__intersection
-      r1 = When::Coordinates::Residue.new(3,10)
-      r2 = When::Coordinates::Residue.new(5,12)
-      r3 = When::Coordinates::Residue.new(6,12)
-      r  = r1 & r2
-      assert_equal([53,60], [r.remainder, r.divisor])
-      assert_nil(r1 & r3)
-
-      r4 = When::Coordinates::Residue.new(2,7)
-      date1 = When.when?(2440587.5)
-      assert_equal(2440593.5, (date1 & r4).to_f)
-
-      r5 = When::Coordinates::Residue.new(3,7)
-      date2 = When.when?("19820606^^Julian")
-      assert_equal("1982-06-11", (date2 & r5).to_s)
-      assert_equal("1982-06-11", (r5 & date2).to_s)
-
-      assert_equal("1982-06-10T00:00:00.00Z", (r5 & Time.utc(1982,6,6)).to_s)
-      if ::Object.const_defined?(:Date) && Date.respond_to?(:civil)
-        assert_equal("1982-06-24", (r5 & Date.new(1982,6,6,Date::JULIAN)).to_s)
-      end
-
-      date3 = When.when?("19820606T021540+0900^^Julian")
-      [[-5, "1979-06-06T02:15:40+09:00"],
-       [-4, "1980-06-06T02:15:40+09:00"],
-       [-3, "1981-06-06T02:15:40+09:00"],
-       [-2, "1922-06-06T02:15:40+09:00"],
-       [-1, "1923-06-06T02:15:40+09:00"],
-       [ 0, "1984-06-06T02:15:40+09:00"],
-       [ 1, "1985-06-06T02:15:40+09:00"],
-       [ 2, "1986-06-06T02:15:40+09:00"],
-       [ 3, "1987-06-06T02:15:40+09:00"],
-       [ 4, "1988-06-06T02:15:40+09:00"],
-       [ 5, "1989-06-06T02:15:40+09:00"]].each do |sample|
-        r6 = When::Coordinates::Residue.new(sample[0], 60, {'year'=>4})
-        assert_equal(sample[1], (date3 & r6).to_s)
-        assert_equal(sample[1], (r6 & date3).to_s)
-      end
-
-      kanshi = When.Resource("_co:Residue?divisor=60&year=4&day=11")
-      date   = When.when?("19820606T021540+0900^^Julian")
-      assert_equal("1982-07-27T02:15:40+09:00", (date & kanshi.to('day')).to_s)
-      assert_equal("1985-06-06T02:15:40+09:00", (date & kanshi.to('year')[1]).to_s)
-
-      week = When.Resource("_co:Residue?divisor=7")
-      [[0, "1982-06-08T02:15:40+09:00"],
-       [1, "1982-06-09T02:15:40+09:00"],
-       [2, "1982-06-10T02:15:40+09:00"],
-       [3, "1982-06-11T02:15:40+09:00"],
-       [4, "1982-06-12T02:15:40+09:00"],
-       [5, "1982-06-06T02:15:40+09:00"],
-       [6, "1982-06-07T02:15:40+09:00"],
-       [7, "1982-06-15T02:15:40+09:00"]].each do |sample|
-        assert_equal(sample[1], (date & week[sample[0]]).to_s)
-      end
-    end
-
-    class BestRationalApproximations < MiniTest::TestCase
-      def test__continued_fraction
-        it = When.Resource("_co:Residue?remainder=365.2421875&divisor=1").each
-        [[365, 1], [1461, 4], [10592, 29], [12053, 33], [46751, 128]].each do |ratio|
-          assert_equal(ratio, it.next[0..1])
-        end
-      end
-    end
-
-    class Enumerator < MiniTest::TestCase
-      def test_nothing
-      end
-    end
-  end
-
-  # 暦座標番号
-  class Index < MiniTest::TestCase
-    def test__trunk
-      month = When::Coordinates::Index.new({:label=>'month', :unit=>12, :base=>1,
-        :trunk => %w(January February March April May June July August September October November December).map {|v| When.m17n(v)}})
-      assert_equal({
-         1=>"January",
-         2=>"February",
-         3=>"March",
-         4=>"April",
-         5=>"May",
-         6=>"June",
-         7=>"July",
-         8=>"August",
-         9=>"September",
-        10=>"October",
-        11=>"November",
-        12=>"December"
-      }, month.trunk)
-    end
-  end
-
-  # 暦座標要素
-  class Pair < MiniTest::TestCase
-    def test_nothing
-    end
-  end
-
-  class Temporal < MiniTest::TestCase
-    def test__validate
-
-      midJulian = When.Resource("_c:Julian?border=[0,3,25]")
-    # assert_equal([0, 3, 25], midJulian.border)
-
-      mDate = When.when?('20100324', {:frame=>midJulian})
-      assert_equal("2009=03-24", mDate.to_s)
-
-      assert_equal("2010-05-11", When.when?('2010-05-11').to_s)
-      assert_equal("2010=05-11", When.when?('2010=05-11').to_s)
-
-      date1 =When.when?("M32.01.01")
-      date2 =When.when?("M34.05.05")
-      assert_equal("M34(1901).05.05", date2.to_s)
-      assert_equal("M35(1902).05.05", (date2+When::Duration('P1Y')).to_s)
-      assert_equal("S06(1931).05.05", (date2+When::Duration('P30Y')).to_s)
-
-      assert_equal(2426467, (date2+When::Duration('P30Y')).to_i)
-      sample = [
-        ["ModernJapanese1931.05.05", false],
-        ["S06(1931).05.05", true]
-      ]
-      ((date2+When::Duration('P30Y')).scan(When.Resource('ModernJapanese', '_e:'))).each do |d|
-        assert_equal(sample.shift, [d.to_s, d.leaf?])
-      end
-
-      sample = [
-        ["S06(1931).05.05", true]
-      ]
-      ((date2+When::Duration('P30Y'))^When.Resource('ModernJapanese', '_e:')).each do |d|
-        assert_equal(sample.shift, [d.to_s, d.leaf?])
-      end
-
-      sample =[
-        ["明治", "http://ja.wikipedia.org/wiki/%E6%98%8E%E6%B2%BB"],
-        ["Meiji", "http://en.wikipedia.org/wiki/Meiji_period"],
-        ["M", "http://ja.wikipedia.org/wiki/%E6%98%8E%E6%B2%BB"],
-        ["大正", "http://ja.wikipedia.org/wiki/%E5%A4%A7%E6%AD%A3"],
-        ["Taishō", "http://en.wikipedia.org/wiki/Taish%C5%8D_period"],
-        ["T", "http://ja.wikipedia.org/wiki/%E5%A4%A7%E6%AD%A3"],
-        ["昭和", "http://ja.wikipedia.org/wiki/%E6%98%AD%E5%92%8C"],
-        ["Shōwa", "http://en.wikipedia.org/wiki/Sh%C5%8Dwa_period"],
-        ["S", "http://ja.wikipedia.org/wiki/%E6%98%AD%E5%92%8C"],
-        ["平成", "http://ja.wikipedia.org/wiki/%E5%B9%B3%E6%88%90"],
-        ["Heisei", "http://en.wikipedia.org/wiki/Heisei_period"],
-        ["H", "http://ja.wikipedia.org/wiki/%E5%B9%B3%E6%88%90"]
-      ]
-      ['明治', '大正', '昭和', '平成'].each do |nengo|
-         era = When::era(nengo)
-         ['ja', 'en', 'alias'].each do |lang|
-           assert_equal(sample.shift, [era[0].label.translate(lang), era[0].label.reference(lang)])
-         end
-      end
-
-      sample =[
-        ["明治天皇", "http://ja.wikipedia.org/wiki/%E6%98%8E%E6%B2%BB%E5%A4%A9%E7%9A%87"],
-        ["Emperor_Meiji", "http://en.wikipedia.org/wiki/Emperor_Meiji"],
-        ["大正天皇", "http://ja.wikipedia.org/wiki/%E5%A4%A7%E6%AD%A3%E5%A4%A9%E7%9A%87"],
-        ["Emperor_Taishō", "http://en.wikipedia.org/wiki/Emperor_Taish%C5%8D"],
-        ["昭和天皇", "http://ja.wikipedia.org/wiki/%E6%98%AD%E5%92%8C%E5%A4%A9%E7%9A%87"],
-        ["Emperor_Shōwa", "http://en.wikipedia.org/wiki/Emperor_Sh%C5%8Dwa"],
-        ["今上天皇", "http://ja.wikipedia.org/wiki/%E6%98%8E%E4%BB%81"],
-        ["Emperor_Kinjō", "http://en.wikipedia.org/wiki/Akihito"]
-      ]
-      ['明治', '大正', '昭和', '平成'].each do |nengo|
-        name = When.when?(nengo + '06.01.01').query['name']
-         ['ja', 'en'].each do |lang|
-           assert_equal(sample.shift, [name.translate(lang), name.reference(lang)])
-         end
-      end
-
-      assert_equal("昭和02(1927).03.01", When.when?('大正16.2.29').to_s)
-      assert_equal({"name"=>"大正天皇", "period"=>nil, "area"=>"日本"}, When::era('大正')[0].options)
-    end
-  end
-
-  #
-  # 空間位置
-  #
-  class Spatial < MiniTest::TestCase
-    Indian = [
-      ["CentralIndia",
-       "インド中部",
-       nil,
-       23.15 + 1.0/30,
-       82.5],
-      ["NorthIndia",
-       "インド北部",
-       nil,
-       29.0,
-       82.5],
-      ["Agra",
-       "アーグラ",
-       "http://en.wikipedia.org/wiki/Agra",
-       27.2,
-       78.0],
-      ["Ahmedabad",
-       "アフマダーバード",
-       "http://en.wikipedia.org/wiki/Ahmedabad",
-       23.0,
-       72.6],
-      ["Ajmer",
-       "アジメール",
-       "http://en.wikipedia.org/wiki/Ajmer",
-       26.5,
-       74.6],
-      ["Aligarh",
-       "アリーガル",
-       "http://en.wikipedia.org/wiki/Aligarh",
-       27.9,
-       78.1],
-      ["Amritsar",
-       "アムリトサル",
-       "http://en.wikipedia.org/wiki/Amritsar",
-       31.6,
-       74.9],
-      ["Bangalore",
-       "バンガロール",
-       "http://en.wikipedia.org/wiki/Bangalore",
-       13.0,
-       77.6],
-      ["Bhuvaneswar",
-       "ブヴァネーシュヴァル",
-       "http://en.wikipedia.org/wiki/Bhuvaneswar",
-       20.2,
-       85.8],
-      ["Chennai",
-       "チェンナイ",
-       "http://en.wikipedia.org/wiki/Chennai",
-       13.1,
-       80.3],
-      ["Colombo",
-       "コロンボ",
-       "http://en.wikipedia.org/wiki/Colombo",
-       6.9,
-       79.9],
-      ["Dacca",
-       "ダッカ",
-       "http://en.wikipedia.org/wiki/Dacca",
-       23.7,
-       90.4],
-      ["Delhi",
-       "デリー",
-       "http://en.wikipedia.org/wiki/Delhi",
-       28.6,
-       77.2],
-      ["Hyderabad",
-       "ハイデラバード",
-       "http://en.wikipedia.org/wiki/Hyderabad",
-       17.4,
-       78.5],
-      ["Jaipur",
-       "ジャイプル",
-       "http://en.wikipedia.org/wiki/Jaipur",
-       26.9,
-       75.8],
-      ["Kathmandu",
-       "カトマンズ",
-       "http://en.wikipedia.org/wiki/Kathmandu",
-       27.7,
-       85.2],
-      ["Kochi",
-       "コーチ",
-       "http://en.wikipedia.org/wiki/Kochi",
-       10.0,
-       76.2],
-      ["Kolkata",
-       "コルカタ",
-       "http://en.wikipedia.org/wiki/Kolkata",
-       22.6,
-       88.4],
-      ["Lahor",
-       "ラホール",
-       "http://en.wikipedia.org/wiki/Lahor",
-       31.6,
-       74.3],
-      ["Mathura",
-       "マトゥラー",
-       "http://en.wikipedia.org/wiki/Mathura",
-       27.5,
-       77.7],
-      ["Mumbai",
-       "ムンバイ",
-       "http://en.wikipedia.org/wiki/Mumbai",
-       19.0,
-       72.8],
-      ["Mysore",
-       "マイソール",
-       "http://en.wikipedia.org/wiki/Mysore",
-       12.3,
-       76.6],
-      ["Patna",
-       "パトナ",
-       "http://en.wikipedia.org/wiki/Patna",
-       25.6,
-       85.1],
-      ["Pune",
-       "プネー",
-       "http://en.wikipedia.org/wiki/Pune",
-       18.5,
-       73.9],
-      ["Srinagar",
-       "シュリーナガル",
-       "http://en.wikipedia.org/wiki/Srinagar",
-       34.1,
-       74.8],
-      ["Thiruvananthapuram",
-       "ティルヴァナンタプラム",
-       "http://en.wikipedia.org/wiki/Thiruvananthapuram",
-       8.5,
-       77.0],
-      ["Varanasi",
-       "ワーラーナシー",
-       "http://en.wikipedia.org/wiki/Varanasi",
-       25.3,
-       83.0],
-      ["Ujjain",
-       "ウッジャイン",
-       "http://en.wikipedia.org/wiki/Ujjain",
-       23.2,
-       75.8]
-    ]
-
-    def test__inner_representation
-      location = When.Resource("examples/sample.xml?lat=35&long=135")
-      assert_equal( 7875.0, location.lat)
-      assert_equal(30375.0, location.long)
-      assert_equal( '35.0000N', location.lat_s)
-      assert_equal('135.0000E', location.long_s)
-      if Object.const_defined?(:JSON)
-        location = When.Resource("examples/sample.json?lat=40")
-        assert_equal( 9000.0, location.lat)
-        assert_equal(31433.32625, location.long)
-        assert_equal( '40.0000N', location.lat_s)
-        assert_equal('139.421322E',location.long_s)
-      else
-        puts
-        puts "Tests for JSON have been skipped at line #{__LINE__} of #{__FILE__.split(/\//)[-1]}."
-      end
-    end
-
-    def test__reference
-      location = When.Resource("_co:Spatial?label=Kyoto&long=136&lat=30&ref=(http://)")
-      assert_equal("http://", location.ref)
-    end
-
-    def test__surface_radius
-      location = When.Resource("_co:Spatial?label=Kyoto&long=136&lat=30&ref=(http://)")
-      assert_equal(6378.14, location.surface_radius)
-    end
-
-    def test__spatial_m17n
-      ['_co:Indian', 'examples/Spatial.m17n'].each do |iri|
-        samples = Indian.dup
-        assert_equal(samples.size, When.Resource(iri).child.size)
-        When.Resource(iri).child.each do |obj|
-          name   = obj.label
-          sample = samples.shift.dup
-          sample << iri.sub(/_co:/, 'http://hosi.org/When/Coordinates/') + '::' + sample[0]
-          assert_equal(sample,
-            [name.label,
-             name.translate('ja'),
-             name.reference('en'),
-             obj.lat  / When::Coordinates::Spatial::DEGREE,
-             obj.long / When::Coordinates::Spatial::DEGREE,
-             obj.iri])
-        end
-      end
-    end
-
-    def test__to_dms
-      assert_equal(+135.9, When::Coordinates.to_deg("東経135度54分", 'EW'))
-      assert_equal(+135.9, When::Coordinates.to_deg("135度54分E", 'EW'))
-      assert_equal(+135.9, When::Coordinates.to_deg("135.5400E", 'EW'))
-      assert_equal(+135.9, When::Coordinates.to_deg("E135.5400", 'EW'))
-      assert_equal("135.5400E", When::Coordinates.to_dms(+135.9, 'EW'))
-      assert_equal( "35.3936N", When::Coordinates.to_dms(+35.66, 'NS'))
-    end
-  end
-end
-
+# -*- coding: utf-8 -*-
+=begin
+  Copyright (C) 2011-2019 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::Coordinates
+
+  #
+  # 剰余類
+  #
+  class Residue < MiniTest::TestCase
+
+    def test__intersection
+      r1 = When::Coordinates::Residue.new(3,10)
+      r2 = When::Coordinates::Residue.new(5,12)
+      r3 = When::Coordinates::Residue.new(6,12)
+      r  = r1 & r2
+      assert_equal([53,60], [r.remainder, r.divisor])
+      assert_nil(r1 & r3)
+
+      r4 = When::Coordinates::Residue.new(2,7)
+      date1 = When.when?(2440587.5)
+      assert_equal(2440593.5, (date1 & r4).to_f)
+
+      r5 = When::Coordinates::Residue.new(3,7)
+      date2 = When.when?("19820606^^Julian")
+      assert_equal("1982-06-11", (date2 & r5).to_s)
+      assert_equal("1982-06-11", (r5 & date2).to_s)
+
+      assert_equal("1982-06-10T00:00:00.00Z", (r5 & Time.utc(1982,6,6)).to_s)
+      if ::Object.const_defined?(:Date) && Date.respond_to?(:civil)
+        assert_equal("1982-06-24", (r5 & Date.new(1982,6,6,Date::JULIAN)).to_s)
+      end
+
+      date3 = When.when?("19820606T021540+0900^^Julian")
+      [[-5, "1979-06-06T02:15:40+09:00"],
+       [-4, "1980-06-06T02:15:40+09:00"],
+       [-3, "1981-06-06T02:15:40+09:00"],
+       [-2, "1922-06-06T02:15:40+09:00"],
+       [-1, "1923-06-06T02:15:40+09:00"],
+       [ 0, "1984-06-06T02:15:40+09:00"],
+       [ 1, "1985-06-06T02:15:40+09:00"],
+       [ 2, "1986-06-06T02:15:40+09:00"],
+       [ 3, "1987-06-06T02:15:40+09:00"],
+       [ 4, "1988-06-06T02:15:40+09:00"],
+       [ 5, "1989-06-06T02:15:40+09:00"]].each do |sample|
+        r6 = When::Coordinates::Residue.new(sample[0], 60, {'year'=>4})
+        assert_equal(sample[1], (date3 & r6).to_s)
+        assert_equal(sample[1], (r6 & date3).to_s)
+      end
+
+      kanshi = When.Resource("_co:Residue?divisor=60&year=4&day=11")
+      date   = When.when?("19820606T021540+0900^^Julian")
+      assert_equal("1982-07-27T02:15:40+09:00", (date & kanshi.to('day')).to_s)
+      assert_equal("1985-06-06T02:15:40+09:00", (date & kanshi.to('year')[1]).to_s)
+
+      week = When.Resource("_co:Residue?divisor=7")
+      [[0, "1982-06-08T02:15:40+09:00"],
+       [1, "1982-06-09T02:15:40+09:00"],
+       [2, "1982-06-10T02:15:40+09:00"],
+       [3, "1982-06-11T02:15:40+09:00"],
+       [4, "1982-06-12T02:15:40+09:00"],
+       [5, "1982-06-06T02:15:40+09:00"],
+       [6, "1982-06-07T02:15:40+09:00"],
+       [7, "1982-06-15T02:15:40+09:00"]].each do |sample|
+        assert_equal(sample[1], (date & week[sample[0]]).to_s)
+      end
+    end
+
+    class BestRationalApproximations < MiniTest::TestCase
+      def test__continued_fraction
+        it = When.Resource("_co:Residue?remainder=365.2421875&divisor=1").each
+        [[365, 1], [1461, 4], [10592, 29], [12053, 33], [46751, 128]].each do |ratio|
+          assert_equal(ratio, it.next[0..1])
+        end
+      end
+    end
+
+    class Enumerator < MiniTest::TestCase
+      def test_nothing
+      end
+    end
+  end
+
+  # 暦座標番号
+  class Index < MiniTest::TestCase
+    def test__trunk
+      month = When::Coordinates::Index.new({:label=>'month', :unit=>12, :base=>1,
+        :trunk => %w(January February March April May June July August September October November December).map {|v| When.m17n(v)}})
+      assert_equal({
+         1=>"January",
+         2=>"February",
+         3=>"March",
+         4=>"April",
+         5=>"May",
+         6=>"June",
+         7=>"July",
+         8=>"August",
+         9=>"September",
+        10=>"October",
+        11=>"November",
+        12=>"December"
+      }, month.trunk)
+    end
+  end
+
+  # 暦座標要素
+  class Pair < MiniTest::TestCase
+    def test_nothing
+    end
+  end
+
+  class Temporal < MiniTest::TestCase
+    def test__validate
+
+      midJulian = When.Resource("_c:Julian?border=[0,3,25]")
+    # assert_equal([0, 3, 25], midJulian.border)
+
+      mDate = When.when?('20100324', {:frame=>midJulian})
+      assert_equal("2009=03-24", mDate.to_s)
+
+      assert_equal("2010-05-11", When.when?('2010-05-11').to_s)
+      assert_equal("2010=05-11", When.when?('2010=05-11').to_s)
+
+      date1 =When.when?("M32.01.01")
+      date2 =When.when?("M34.05.05")
+      assert_equal("M34(1901).05.05", date2.to_s)
+      assert_equal("M35(1902).05.05", (date2+When::Duration('P1Y')).to_s)
+      assert_equal("S06(1931).05.05", (date2+When::Duration('P30Y')).to_s)
+
+      assert_equal(2426467, (date2+When::Duration('P30Y')).to_i)
+      sample = [
+        ["ModernJapanese1931.05.05", false],
+        ["S06(1931).05.05", true]
+      ]
+      ((date2+When::Duration('P30Y')).scan(When.Resource('ModernJapanese', '_e:'))).each do |d|
+        assert_equal(sample.shift, [d.to_s, d.leaf?])
+      end
+
+      sample = [
+        ["S06(1931).05.05", true]
+      ]
+      ((date2+When::Duration('P30Y'))^When.Resource('ModernJapanese', '_e:')).each do |d|
+        assert_equal(sample.shift, [d.to_s, d.leaf?])
+      end
+
+      sample =[
+        ["明治", "https://ja.wikipedia.org/wiki/%E6%98%8E%E6%B2%BB"],
+        ["Meiji", "https://en.wikipedia.org/wiki/Meiji_period"],
+        ["M", "https://ja.wikipedia.org/wiki/%E6%98%8E%E6%B2%BB"],
+        ["大正", "https://ja.wikipedia.org/wiki/%E5%A4%A7%E6%AD%A3"],
+        ["Taishō", "https://en.wikipedia.org/wiki/Taish%C5%8D_period"],
+        ["T", "https://ja.wikipedia.org/wiki/%E5%A4%A7%E6%AD%A3"],
+        ["昭和", "https://ja.wikipedia.org/wiki/%E6%98%AD%E5%92%8C"],
+        ["Shōwa", "https://en.wikipedia.org/wiki/Sh%C5%8Dwa_period"],
+        ["S", "https://ja.wikipedia.org/wiki/%E6%98%AD%E5%92%8C"],
+        ["平成", "https://ja.wikipedia.org/wiki/%E5%B9%B3%E6%88%90"],
+        ["Heisei", "https://en.wikipedia.org/wiki/Heisei_period"],
+        ["H", "https://ja.wikipedia.org/wiki/%E5%B9%B3%E6%88%90"]
+      ]
+      ['明治', '大正', '昭和', '平成'].each do |nengo|
+         era = When::era(nengo)
+         ['ja', 'en', 'alias'].each do |lang|
+           assert_equal(sample.shift, [era[0].label.translate(lang), era[0].label.reference(lang)])
+         end
+      end
+
+      sample =[
+        ["明治天皇", "https://ja.wikipedia.org/wiki/%E6%98%8E%E6%B2%BB%E5%A4%A9%E7%9A%87"],
+        ["Emperor_Meiji", "https://en.wikipedia.org/wiki/Emperor_Meiji"],
+        ["大正天皇", "https://ja.wikipedia.org/wiki/%E5%A4%A7%E6%AD%A3%E5%A4%A9%E7%9A%87"],
+        ["Emperor_Taishō", "https://en.wikipedia.org/wiki/Emperor_Taish%C5%8D"],
+        ["昭和天皇", "https://ja.wikipedia.org/wiki/%E6%98%AD%E5%92%8C%E5%A4%A9%E7%9A%87"],
+        ["Emperor_Shōwa", "https://en.wikipedia.org/wiki/Emperor_Sh%C5%8Dwa"],
+        ["上皇明仁", "https://ja.wikipedia.org/wiki/%E4%B8%8A%E7%9A%87%E6%98%8E%E4%BB%81"],
+        ["Emperor_Emeritus_of_Japan", "https://en.wikipedia.org/wiki/Akihito"],
+        ["今上天皇", "https://ja.wikipedia.org/wiki/%E5%BE%B3%E4%BB%81"],
+        ["Emperor_Kinjō", "https://en.wikipedia.org/wiki/Naruhito"]
+      ]
+      ['明治', '大正', '昭和', '平成', '令和'].each do |nengo|
+        name = When.when?(nengo + '06.01.01').query['name']
+         ['ja', 'en'].each do |lang|
+           assert_equal(sample.shift, [name.translate(lang), name.reference(lang)])
+         end
+      end
+
+      assert_equal("昭和02(1927).03.01", When.when?('大正16.2.29').to_s)
+      assert_equal({"name"=>"大正天皇", "period"=>nil, "area"=>"日本"}, When::era('大正')[0].options)
+    end
+  end
+
+  #
+  # 空間位置
+  #
+  class Spatial < MiniTest::TestCase
+    Indian = [
+      ["CentralIndia",
+       "インド中部",
+       nil,
+       23.15 + 1.0/30,
+       82.5],
+      ["NorthIndia",
+       "インド北部",
+       nil,
+       29.0,
+       82.5],
+      ["Agra",
+       "アーグラ",
+       "https://en.wikipedia.org/wiki/Agra",
+       27.2,
+       78.0],
+      ["Ahmedabad",
+       "アフマダーバード",
+       "https://en.wikipedia.org/wiki/Ahmedabad",
+       23.0,
+       72.6],
+      ["Ajmer",
+       "アジメール",
+       "https://en.wikipedia.org/wiki/Ajmer",
+       26.5,
+       74.6],
+      ["Aligarh",
+       "アリーガル",
+       "https://en.wikipedia.org/wiki/Aligarh",
+       27.9,
+       78.1],
+      ["Amritsar",
+       "アムリトサル",
+       "https://en.wikipedia.org/wiki/Amritsar",
+       31.6,
+       74.9],
+      ["Bangalore",
+       "バンガロール",
+       "https://en.wikipedia.org/wiki/Bangalore",
+       13.0,
+       77.6],
+      ["Bhuvaneswar",
+       "ブヴァネーシュヴァル",
+       "https://en.wikipedia.org/wiki/Bhuvaneswar",
+       20.2,
+       85.8],
+      ["Chennai",
+       "チェンナイ",
+       "https://en.wikipedia.org/wiki/Chennai",
+       13.1,
+       80.3],
+      ["Colombo",
+       "コロンボ",
+       "https://en.wikipedia.org/wiki/Colombo",
+       6.9,
+       79.9],
+      ["Dacca",
+       "ダッカ",
+       "https://en.wikipedia.org/wiki/Dacca",
+       23.7,
+       90.4],
+      ["Delhi",
+       "デリー",
+       "https://en.wikipedia.org/wiki/Delhi",
+       28.6,
+       77.2],
+      ["Hyderabad",
+       "ハイデラバード",
+       "https://en.wikipedia.org/wiki/Hyderabad",
+       17.4,
+       78.5],
+      ["Jaipur",
+       "ジャイプル",
+       "https://en.wikipedia.org/wiki/Jaipur",
+       26.9,
+       75.8],
+      ["Kathmandu",
+       "カトマンズ",
+       "https://en.wikipedia.org/wiki/Kathmandu",
+       27.7,
+       85.2],
+      ["Kochi",
+       "コーチ",
+       "https://en.wikipedia.org/wiki/Kochi",
+       10.0,
+       76.2],
+      ["Kolkata",
+       "コルカタ",
+       "https://en.wikipedia.org/wiki/Kolkata",
+       22.6,
+       88.4],
+      ["Lahor",
+       "ラホール",
+       "https://en.wikipedia.org/wiki/Lahor",
+       31.6,
+       74.3],
+      ["Mathura",
+       "マトゥラー",
+       "https://en.wikipedia.org/wiki/Mathura",
+       27.5,
+       77.7],
+      ["Mumbai",
+       "ムンバイ",
+       "https://en.wikipedia.org/wiki/Mumbai",
+       19.0,
+       72.8],
+      ["Mysore",
+       "マイソール",
+       "https://en.wikipedia.org/wiki/Mysore",
+       12.3,
+       76.6],
+      ["Patna",
+       "パトナ",
+       "https://en.wikipedia.org/wiki/Patna",
+       25.6,
+       85.1],
+      ["Pune",
+       "プネー",
+       "https://en.wikipedia.org/wiki/Pune",
+       18.5,
+       73.9],
+      ["Srinagar",
+       "シュリーナガル",
+       "https://en.wikipedia.org/wiki/Srinagar",
+       34.1,
+       74.8],
+      ["Thiruvananthapuram",
+       "ティルヴァナンタプラム",
+       "https://en.wikipedia.org/wiki/Thiruvananthapuram",
+       8.5,
+       77.0],
+      ["Varanasi",
+       "ワーラーナシー",
+       "https://en.wikipedia.org/wiki/Varanasi",
+       25.3,
+       83.0],
+      ["Ujjain",
+       "ウッジャイン",
+       "https://en.wikipedia.org/wiki/Ujjain",
+       23.2,
+       75.8]
+    ]
+
+    def test__inner_representation
+      location = When.Resource("examples/sample.xml?lat=35&long=135")
+      assert_equal( 7875.0, location.lat)
+      assert_equal(30375.0, location.long)
+      assert_equal( '35.0000N', location.lat_s)
+      assert_equal('135.0000E', location.long_s)
+      if Object.const_defined?(:JSON)
+        location = When.Resource("examples/sample.json?lat=40")
+        assert_equal( 9000.0, location.lat)
+        assert_equal(31433.32625, location.long)
+        assert_equal( '40.0000N', location.lat_s)
+        assert_equal('139.421322E',location.long_s)
+      else
+        puts
+        puts "Tests for JSON have been skipped at line #{__LINE__} of #{__FILE__.split(/\//)[-1]}."
+      end
+    end
+
+    def test__reference
+      location = When.Resource("_co:Spatial?label=Kyoto&long=136&lat=30&ref=(http://)")
+      assert_equal("http://", location.ref)
+    end
+
+    def test__surface_radius
+      location = When.Resource("_co:Spatial?label=Kyoto&long=136&lat=30&ref=(http://)")
+      assert_equal(6378.14, location.surface_radius)
+    end
+
+    def test__spatial_m17n
+      ['_co:Indian', 'examples/Spatial.m17n'].each do |iri|
+        samples = Indian.dup
+        assert_equal(samples.size, When.Resource(iri).child.size)
+        When.Resource(iri).child.each do |obj|
+          name   = obj.label
+          sample = samples.shift.dup
+          sample << iri.sub(/_co:/, 'http://hosi.org/When/Coordinates/') + '::' + sample[0]
+          assert_equal(sample,
+            [name.label,
+             name.translate('ja'),
+             name.reference('en'),
+             obj.lat  / obj.degree,
+             obj.long / obj.degree,
+             obj.iri])
+        end
+      end
+    end
+
+    def test__to_dms
+      assert_equal(+135.9, When::Coordinates.to_deg("東経135度54分", 'EW'))
+      assert_equal(+135.9, When::Coordinates.to_deg("135度54分E", 'EW'))
+      assert_equal(+135.9, When::Coordinates.to_deg("135.5400E", 'EW'))
+      assert_equal(+135.9, When::Coordinates.to_deg("E135.5400", 'EW'))
+      assert_equal("135.5400E", When::Coordinates.to_dms(+135.9, 'EW'))
+      assert_equal( "35.3936N", When::Coordinates.to_dms(+35.66, 'NS'))
+    end
+  end
+end
+