when_exe 0.2.100 → 0.3.1

data/test/test/region/m17n.rb

@@ -0,0 +1,181 @@
+# -*- coding: utf-8 -*-
+=begin
+  Copyright (C) 2011-2013 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 M17n < Test::Unit::TestCase
+
+    First = [
+      ["CalendarTerms", "CalendarTerms", "http://en.wikipedia.org/wiki/CalendarTerms"],
+      ["Month",      "月", "http://ja.wikipedia.org/wiki/%E6%9C%88_(%E6%9A%A6)"],
+      ["Month",      "月", "http://ja.wikipedia.org/wiki/%E6%9C%88_(%E6%9A%A6)"],
+      ["January",   "1月", "http://ja.wikipedia.org/wiki/1%E6%9C%88"]
+    ]
+
+    Second = [
+      ["January",   "1月", "http://ja.wikipedia.org/wiki/1%E6%9C%88" ],
+      ["February",  "2月", "http://ja.wikipedia.org/wiki/2%E6%9C%88" ],
+      ["March",     "3月", "http://ja.wikipedia.org/wiki/3%E6%9C%88" ],
+      ["April",     "4月", "http://ja.wikipedia.org/wiki/4%E6%9C%88" ],
+      ["May",       "5月", "http://ja.wikipedia.org/wiki/5%E6%9C%88" ],
+      ["June",      "6月", "http://ja.wikipedia.org/wiki/6%E6%9C%88" ],
+      ["July",      "7月", "http://ja.wikipedia.org/wiki/7%E6%9C%88" ],
+      ["August",    "8月", "http://ja.wikipedia.org/wiki/8%E6%9C%88" ],
+      ["September", "9月", "http://ja.wikipedia.org/wiki/9%E6%9C%88" ],
+      ["October",  "10月", "http://ja.wikipedia.org/wiki/10%E6%9C%88"],
+      ["November", "11月", "http://ja.wikipedia.org/wiki/11%E6%9C%88"],
+      ["December", "12月", "http://ja.wikipedia.org/wiki/12%E6%9C%88"]
+    ]
+
+    def test__m17n_1
+      ['examples/Terms.m17n', '_m:CalendarTerms'].each do |head|
+        When.Resource(head)
+
+        # pp When::Parts::Resource[head].child.map {|v| v.label}
+        assert_equal('Month', When::Parts::Resource[head].child[1].label.to_s)
+
+        assert_equal(First, 
+          [head,
+           head + '::Month',
+           head + '::Month::Month',
+           head + '::Month::January'].inject([]) { |first, iri|
+             obj = When::Parts::Resource[iri]
+             first << [obj.label, obj.translate('ja'), obj.reference('ja')]
+           }
+        )
+
+        assert_equal(Second, 
+          When::Parts::Resource[head + '::Month'].child.inject([]) { |second, obj|
+            second << [obj.label, obj.translate('ja'), obj.reference('ja')]
+          }
+        )
+      end
+    end
+
+    def test__m17n_2
+      march = When.m17n(['en:March=en_ns:', 'ja:3月=ja_ns:'],
+                   {'en_ns'=>'http://en.wikipedia.org/wiki/',
+                    'ja_ns'=>'http://ja.wikipedia.org/wiki/'})
+
+      [
+        ['ja', ["3月", "3月", "http://ja.wikipedia.org/wiki/3%E6%9C%88"]],
+        ['en', ["March", "March", "http://en.wikipedia.org/wiki/March" ]]
+      ].each do |sample|
+        assert_equal(sample[1], [march.translate(sample[0]), march.translate(sample[0]), march.reference(sample[0])])
+      end
+
+      date = When.when?('CE2010.4.12')
+      era  = When.era('CE')[0]
+    # assert_equal(Second.map {|v| v[0]}, era.m17n('[::_m:CalendarTerms::Month::*]').map {|v| v.to_s})
+      assert_equal(Second.map {|v| v[0]}, When.m17n('[::_m:CalendarTerms::Month::*]').map {|v| v.to_s})
+      assert_equal(["Accession", true, "http://hosi.org/When/BasicTypes/M17n/EpochEvents::Accession"],
+        [era['::_m:EpochEvents::Accession'].to_s,
+         era['::_m:EpochEvents::Accession'].registered?,
+         era['::_m:EpochEvents::Accession'].iri])
+
+      assert_equal(era['::_m:EpochEvents::*'].map {|v| v.to_s},
+        ["Accession", "FelicitousEvent", "NaturalDisaster", "InauspiciousYear", "Foundation", "CalendarReform"])
+
+      term = []
+      term << When.m17n('[日本語, English]', nil, ', en').translate('ja')
+      term << When.m17n('[日本語, English]', nil, ['ja', 'en']).translate('ja')
+      term << When.m17n('[ja:日本語, en:English]').translate('ja')
+      term << When.m17n(['ja:日本語', 'en:English']).translate('ja')
+      term.each do |result|
+        assert_equal("日本語", result)
+      end
+
+      date = When.when?('明治6.10.1')
+      era  = When.era('明治')[0]
+      event = era.reference_event
+      assert_equal("代始", event.translate('ja'))
+      assert_equal(["Accession", true, "http://hosi.org/When/BasicTypes/M17n/EpochEvents::Accession"],
+        [era['::_m:EpochEvents::Accession'].to_s,
+         era['::_m:EpochEvents::Accession'].registered?,
+         era['::_m:EpochEvents::Accession'].iri])
+    end
+
+    def test__m17n_3
+      january = When.Resource('_m:CalendarTerms::Month::January')
+      [['en', 'January'], ['ja', '1月'], ['fr', 'janvier']].each do |sample|
+        assert_equal(sample[1], january.translate(sample[0]))
+      end
+    end
+
+    def test__m17n_4
+      january = When.Resource('_m:CalendarTerms::Month::January')
+      [['en', 'January'], ['ja', '1月'], ['fr', 'janvier']].each do |sample|
+        assert_equal(sample[1], january.translate(sample[0]))
+      end
+    end
+
+    def test__m17n_5
+      month = When.Resource('_m:CalendarTerms::Month')
+      [['en', 'Month'], ['ja', '月'], ['fr', 'Mois']].each do |sample|
+        assert_equal(sample[1], month.translate(sample[0]))
+      end
+    end
+
+    def test__to_hash
+      [
+       ['HLC0.0.0.0.0',
+         {:calendar=>["_e:Mayan::PHLC",-13], :sdn=>584283, :cal_date=>[13, 0, 0, 0, 0],
+          :notes=>[[{:note=>"Trecena", :value=>"Trecena(4/13)"},
+                    {:note=>"Tzolk'in", :value=>"Ajaw(19/20)"},
+                    {:note=>"Lords_of_the_Night", :value=>"G9(0/9)"},
+                    {:note=>"Haab'", :value=>"8Kumk'u/365"}]]}],
+
+       ['1985-1-1',
+         {:calendar=>["_c:Gregorian"], :sdn=>2446067, :cal_date=>[1985, 1, 1],
+          :notes=>[[{:note=>"Month", :value=>"January"}],[]]}],
+
+       ['明治7.5.7',
+         {:calendar=>["_e:Japanese::明治",1867], :sdn=>2405651, :cal_date=>[7, 5, 7],
+          :notes=>[[{:note=>"干支",  :value=>"庚午(6)", :position=>"共通"}],
+                   [{:note=>"月名",  :value=>"May",     :position=>"月建"}],
+                   [{:note=>"干支",  :value=>"甲子(0)", :position=>"共通"},
+                    {:note=>"六曜",  :value=>"大安",    :position=>"民間"}]]}],
+
+       ['明治17.5.7',
+         {:calendar=>["_e:Japanese::明治",1867], :sdn=>2409304, :cal_date=>[17, 5, 7],
+          :notes=>[[{:note=>"干支",  :value=>"庚辰(16)", :position=>"共通"}],
+                   [{:note=>"月名",  :value=>"May",      :position=>"月建"}],
+                   [{:note=>"干支",  :value=>"丁巳(53)", :position=>"共通"},
+                    {:note=>"六曜",  :value=>"友引",     :position=>"民間"}]]}],
+
+       ['CE-2010.06.08T12:00:00+09:00',
+         {:calendar=>["_e:Common::BCE", 1, true], :sdn=>987064, :cal_date=>[-2011, 6, 8],
+          :notes=>[[{:note=>"Month", :value=>"June"}],[]],
+          :clk_time=>[987064, 12, 0, 0]}],
+
+       [11,
+         {:calendar=>["_tm:JulianDate"], :sdn=>11,
+          :notes=>[[{:note=>"Week",  :value=>"Friday(4)"},
+                    {:note=>"干支",  :value=>"甲子(0)"}]]}],
+
+       [11.0,
+         {:calendar=>["_tm:JulianDate"], :sdn=>11,
+          :notes=>[[{:note=>"Week",  :value=>"Friday(4)"},
+                    {:note=>"干支",  :value=>"甲子(0)"}]],
+          :clk_time=>[11, 12, 0, 0]}]
+
+      ].each do |sample|
+        date, verify = sample
+        list = When.when?(date).to_hash({:simple=>true})
+        [:calendar, :cal_date, :sdn, :clk_time].each do |key|
+          assert_equal(verify[key], list[key])
+        end
+        verify[:notes].each_index do |i|
+          verify[:notes][i].each_index do |k|
+            assert_equal(verify[:notes][i][k], list[:notes][i][k])
+          end
+        end
+      end
+    end
+  end
+end

data/test/test/region/mayan.rb

@@ -0,0 +1,78 @@
+# -*- coding: utf-8 -*-
+=begin
+  Copyright (C) 2011-2012 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
+      [['PHLC13.0.0.0.0', 'PHLC13(0000).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(0013).00.00.00.01',  2456284]].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
+      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])
+    end
+
+    def test__tzolkin
+      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
+    end
+  end
+end

data/test/test/region/moon.rb

@@ -0,0 +1,14 @@
+# -*- coding: utf-8 -*-
+=begin
+  Copyright (C) 2011 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::Ephemeris
+  class Moon < Test::Unit::TestCase
+    def test_nothing
+    end
+  end
+end

data/test/test/region/planets.rb

@@ -0,0 +1,14 @@
+# -*- coding: utf-8 -*-
+=begin
+  Copyright (C) 2011 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::Ephemeris
+  class Planets < Test::Unit::TestCase
+    def test_nothing
+    end
+  end
+end

data/test/test/region/residue.rb

@@ -0,0 +1,123 @@
+# -*- coding: utf-8 -*-
+=begin
+  Copyright (C) 2011-2012 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:CommonResidue', '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',
+        'EgyptianCoptic',
+        'EthiopianCoptic',
+        'IndianNationalSolar',
+        'HinduSolar?type=SBV',
+        'HinduSolar?type=SBVZ',
+        'HinduSolar?type=SBS',
+        'HinduSolar?type=SBSZ',
+     #  'HinduLuniSolar?type=SBVA',
+     #  'HinduLuniSolar?type=SBVZA',
+     #  'HinduLuniSolar?type=SBSA',
+     #  'HinduLuniSolar?type=SBSZA',
+        'SolarHejri',
+        'Jewish',
+        'ThaiB',
+      # 'ThaiC',
+        'Tibetan',
+      ]
+      eto   = When.Resource('_co:CommonResidue::干支').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
+

data/test/test/region/sun.rb

@@ -0,0 +1,14 @@
+# -*- coding: utf-8 -*-
+=begin
+  Copyright (C) 2011 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::Ephemeris
+  class Sun < Test::Unit::TestCase
+    def test_nothing
+    end
+  end
+end

data/test/test/region/thai.rb

@@ -0,0 +1,94 @@
+# -*- coding: utf-8 -*-
+=begin
+  Copyright (C) 2011-2013 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 Thai < Test::Unit::TestCase
+    def test_thai_date
+
+      date = When.Resource('_c:ThaiC') ^ When.when?('2011-05-16')
+      [["1373-07-15", 2455698],
+       ["1373-07<01", 2455699],
+       ["1373-07<02", 2455700]].each do |sample|
+        assert_equal(sample, [date.to_s, date.to_i])
+        date += When.Duration('P1D')
+      end
+      
+      [["1373-07<03", 2455701],
+       ["1373-08-03", 2455716],
+       ["1373-08<03", 2455731],
+       ["1373-09-03", 2455745],
+       ["1373-09<03", 2455760],
+       ["1373-10-03", 2455775],
+       ["1373-10<03", 2455790],
+       ["1373-11-03", 2455804],
+       ["1373-11<03", 2455819],
+       ["1373-12-03", 2455834]].each do |sample|
+        assert_equal(sample, [date.to_s, date.to_i])
+        date += When.Duration('P1M')
+      end
+      
+      date = When.Resource('_c:ThaiB') ^ When.when?('2011-05-16')
+      [["1373-06-14", 2455698],
+       ["1373-06-15", 2455699],
+       ["1373-06<01", 2455700]].each do |sample|
+        assert_equal(sample, [date.to_s, date.to_i])
+        date += When.Duration('P1D')
+      end
+      
+      [["1373-06<02", 2455701],
+       ["1373-07-02", 2455716],
+       ["1373-07<02", 2455731],
+       ["1373-08-02", 2455745],
+       ["1373-08<02", 2455760],
+       ["1373-09-02", 2455775],
+       ["1373-09<02", 2455790],
+       ["1373-10-02", 2455804],
+       ["1373-10<02", 2455819],
+       ["1373-11-02", 2455834],
+       ["1373-11<02", 2455849],
+       ["1373-12-02", 2455863],
+       ["1373-12<02", 2455878],
+       ["1374-01-02", 2455893],
+       ["1374-01<02", 2455908],
+       ["1374-02-02", 2455922],
+       ["1374-02<02", 2455937],
+       ["1374-03-02", 2455952],
+       ["1374-03<02", 2455967],
+       ["1374-04-02", 2455981],
+       ["1374-04<02", 2455996],
+       ["1374-05-02", 2456011],
+       ["1374-05<02", 2456026],
+       ["1374-06-02", 2456040],
+       ["1374-06<02", 2456055],
+       ["1374-07-02", 2456070],
+       ["1374-07<02", 2456085],
+       ["1374-08&02", 2456099],
+       ["1374-08*02", 2456114],
+       ["1374-08-02", 2456129],
+       ["1374-08<02", 2456144],
+       ["1374-09-02", 2456159],
+       ["1374-09<02", 2456174],
+       ["1374-10-02", 2456188],
+       ["1374-10<02", 2456203],
+       ["1374-11-02", 2456218],
+       ["1374-11<02", 2456233],
+       ["1374-12-02", 2456247],
+       ["1374-12<02", 2456262],
+       ["1375-01-02", 2456277]].each do |sample|
+        assert_equal(sample, [date.to_s, date.to_i])
+        date += When.Duration('P1M')
+      end
+
+      date = When.when?('1374-08&02', {:frame=>When.Resource('_c:ThaiB')})
+      assert_equal(["1374-08&02", 2456099, "adhika Āṣāḍha Śuklapakṣa"],
+                   [date.to_s, date.to_i, date.name('Month').translate('en')])
+    end
+  end
+end
+