when_exe 0.2.100 → 0.3.1

data/test/test/region/chinese.rb

@@ -0,0 +1,161 @@
+# -*- 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 Chinese < Test::Unit::TestCase
+    def test_chinese_date
+
+      emd = When.Resource('_c:EphemerisBasedSolar')
+      date = When.when?('2009-01-01', {:frame=>emd})
+      [
+        ["2009-01-01", 2454867],
+        ["2009-02-01", 2454896],
+        ["2009-03-01", 2454927],
+        ["2009-04-01", 2454957],
+        ["2009-05-01", 2454988],
+        ["2009-06-01", 2455020],
+        ["2009-07-01", 2455051],
+        ["2009-08-01", 2455082],
+        ["2009-09-01", 2455113],
+        ["2009-10-01", 2455143],
+        ["2009-11-01", 2455173],
+        ["2009-12-01", 2455202]
+      ].each do |sample|
+        assert_equal(sample, [date.to_s, date.to_i])
+        date += When.Duration('P1M')
+      end
+
+      cc   = When::CalendarTypes::ChineseLuniSolar.new({'timezone'=>9})
+      date = When.when?('2009-01-01', {:frame=>cc})
+      [
+        ["2009-01-01", 2454858],
+        ["2009-02-01", 2454888],
+        ["2009-03-01", 2454918],
+        ["2009-04-01", 2454947],
+        ["2009-05-01", 2454976],
+        ["2009-05=01", 2455006],
+        ["2009-06-01", 2455035],
+        ["2009-07-01", 2455064],
+        ["2009-08-01", 2455094],
+        ["2009-09-01", 2455123],
+        ["2009-10-01", 2455153],
+        ["2009-11-01", 2455182],
+        ["2009-12-01", 2455212]
+      ].each do |sample|
+        assert_equal(sample, [date.to_s, date.to_i])
+        date += When.Duration('P1M')
+      end
+
+      date = When.when?('2032-11-01', {:frame=>cc})
+      [
+        ["2032-11-01", 2463570],
+        ["2032-12-01", 2463599],
+        ["2033-01-01", 2463629],
+        ["2033-02-01", 2463658],
+        ["2033-03-01", 2463688],
+        ["2033-04-01", 2463717],
+        ["2033-05-01", 2463746],
+        ["2033-06-01", 2463776],
+        ["2033-07-01", 2463805],
+        ["2033-08-01", 2463835],
+        ["2033-09-01", 2463864],
+        ["2033-10-01", 2463894],
+        ["2033-11-01", 2463924],
+        ["2033-11=01", 2463954],
+        ["2033-12-01", 2463983],
+        ["2034-01-01", 2464013],
+        ["2034-02-01", 2464042],
+        ["2034-03-01", 2464072]
+      ].each do |sample|
+        assert_equal(sample, [date.to_s, date.to_i])
+        date += When.Duration('P1M')
+      end
+
+      date = When.when?('2728-11-01', {:frame=>cc})
+      [
+        ["2728-11-01", 2717768],
+        ["2728-11=01", 2717798],
+        ["2728-12-01", 2717827],
+        ["2729-01-01", 2717857],
+        ["2729-02-01", 2717887],
+        ["2729-03-01", 2717916],
+        ["2729-04-01", 2717946]
+      ].each do |sample|
+        assert_equal(sample, [date.to_s, date.to_i])
+        date += When.Duration('P1M')
+      end
+
+      cc   = When::CalendarTypes::ChineseLuniSolar.new({'timezone'=>9, 'intercalary_span'=>3})
+      date = When.when?('2728-11-01', {:frame=>cc})
+      [
+        ["2728-11-01", 2717768],
+        ["2728-12-01", 2717798],
+        ["2729-01-01", 2717827],
+        ["2729-02-01", 2717857],
+        ["2729-02=01", 2717887],
+        ["2729-03-01", 2717916],
+        ["2729-04-01", 2717946]
+      ].each do |sample|
+        assert_equal(sample, [date.to_s, date.to_i])
+        date += When.Duration('P1M')
+      end
+    end
+
+    def test_chinese_epoch
+      date = When.when?('天保2.10.01')
+      assert_equal([2390126, "天保02(1831).10.01", "神無月"],
+                   [date.to_i, date.to_s, date.name('Month')])
+      assert_equal("1831-11-04", (When.Calendar('Gregorian') ^ When.when?('天保02.10.01')).to_s)
+
+#=begin
+      date = When.when?('天保2.10.01', {:count=>2})
+      assert_equal([1926999, "天保02(0563).10.01", "十月"],
+                   [date.to_i, date.to_s, date.name('Month')])
+
+      date = When.when?('天保3(564).10.01')
+      assert_equal([1927353, "天保03(0564).10.01", "十月"],
+                   [date.to_i, date.to_s, date.name('Month')])
+
+      date = When.when?('天保3.10.01', {'period'=>/梁/})
+      assert_equal([1927353, "天保03(0564).10.01", "十月"],
+                   [date.to_i, date.to_s, date.name('Month')])
+
+      assert_equal(["江戸時代", "後梁", "北斉"],
+                   When::era('天保').map {|v| v.parent.label}) # v.iri
+
+      assert_raises(ArgumentError) { When.when?('天保3(0563).10.01') }
+
+      date = When.when?('始皇帝26*10.01')
+      assert_equal([1640641, "始皇帝26(-220)*10.01", "十月"],
+                   [date.to_i, date.to_s, date.name('Month')])
+
+      cc_221 = When.Resource('_c:Chinese_221')
+      [
+        ["-220*10-01", 1640641, "-00220*10-01", "十月"],
+        ["-220*11-01", 1640671, "-00220*11-01", "十一月"],
+        ["-220*12-01", 1640700, "-00220*12-01", "十二月"],
+        ["-220-01-01", 1640730, "-00220-01-01", "正月"],
+        ["-220-02-01", 1640759, "-00220-02-01", "二月"],
+        ["-220-03-01", 1640789, "-00220-03-01", "三月"],
+        ["-220-04-01", 1640818, "-00220-04-01", "四月"],
+        ["-220-05-01", 1640848, "-00220-05-01", "五月"],
+        ["-220-06-01", 1640877, "-00220-06-01", "六月"],
+        ["-220-07-01", 1640907, "-00220-07-01", "七月"],
+        ["-220-08-01", 1640937, "-00220-08-01", "八月"],
+        ["-220-09-01", 1640966, "-00220-09-01", "九月"],
+        ["-220-09=01", 1640996, "-00220-09=01", "閏九月"]
+      ].each do |sample|
+        date = When.when?(sample[0], {:frame=>cc_221})
+        assert_equal(sample[1..-1], 
+                    [date.to_i, date.to_s, date.name('Month')])
+      end
+#=end
+    end
+  end
+end

data/test/test/region/french.rb

@@ -0,0 +1,33 @@
+# -*- coding: utf-8 -*-
+=begin
+  Copyright (C) 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 FrenchRepublican < Test::Unit::TestCase
+    def test__french_republican
+      date = When.when? 'FRE1.1.1'
+      [["FRE01(1793).01.01", 2375840],
+       ["FRE02(1794).01.01", 2376205],
+       ["FRE03(1795).01.01", 2376570],
+       ["FRE04(1796).01.01", 2376936],
+       ["FRE05(1797).01.01", 2377301],
+       ["FRE06(1798).01.01", 2377666],
+       ["FRE07(1799).01.01", 2378031],
+       ["FRE08(1800).01.01", 2378397],
+       ["FRE09(1801).01.01", 2378762],
+       ["FRE10(1802).01.01", 2379127],
+       ["FRE11(1803).01.01", 2379492],
+       ["FRE12(1804).01.01", 2379858],
+       ["FRE13(1805).01.01", 2380223],
+       ["FRE14(1806).01.01", 2380588]].each do |sample|
+        assert_equal(sample, [date.to_s, date.to_i])
+        date += When.Duration('P1Y')
+      end
+    end
+  end
+end

data/test/test/region/geologicalage.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::TM
+  class GeologicalAge < Test::Unit::TestCase
+    def test_nothing
+    end
+  end
+end

data/test/test/region/indian.rb

@@ -0,0 +1,55 @@
+# -*- 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 Indian < Test::Unit::TestCase
+    Sample1 = [
+      "1913-03-01-", "1913-03-02-", "1913-03-03-", "1913-03-04-", "1913-03-05%", "1913-03-07-", "1913-03-08-", "1913-03-09-",
+      "1913-03-10-", "1913-03-11-", "1913-03-12-", "1913-03-13-", "1913-03-14-", "1913-03-15-", "1913-03-15=", "1913-03<01-",
+      "1913-03<02-", "1913-03<03-", "1913-03<04-", "1913-03<05-", "1913-03<06-", "1913-03<07-", "1913-03<08-", "1913-03<09-",
+      "1913-03<10-", "1913-03<11-", "1913-03<12-", "1913-03<13%", "1913-03<15-", "1913-04-01-", "1913-04-02-", "1913-04-03-",
+      "1913-04-04-", "1913-04-05-", "1913-04-06-", "1913-04-07-", "1913-04-08-", "1913-04-09-", "1913-04-10-", "1913-04-11-",
+      "1913-04-12-", "1913-04-13-", "1913-04-14-", "1913-04-15-", "1913-04<01-", "1913-04<02-", "1913-04<03-", "1913-04<04-",
+      "1913-04<05-", "1913-04<06-", "1913-04<07-", "1913-04<08-", "1913-04<09-", "1913-04<10-", "1913-04<11-", "1913-04<12-",
+      "1913-04<13-", "1913-04<14-", "1913-04<15%", "1913-05-02-"
+    ]
+
+    Sample2 = [
+      "1913-04-01-", "1913-04-02-", "1913-04-03-", "1913-04-04-", "1913-04-05%", "1913-04-07-", "1913-04-08-", "1913-04-09-"
+    ]
+
+    def test_indian_date_1
+      cc     = When.Calendar('HinduLuniSolar')
+      date   = When.when?('1913-03-01', {:frame=>cc})
+      assert_equal("Jyaiṣṭha Śuklapakṣa", date.name('month').to_s)
+      start  = 2448421
+      Sample1.size.times do |i|
+        assert_equal([Sample1[i], start+i], [date.to_s, date.to_i])
+        date += When.Duration('P1D')
+      end
+    end
+
+    def test_indian_date_2
+      cc     = When.Calendar('HinduLuniSolar?start_month=4')
+      date   = When.when?('1913-04-01', {:frame=>cc})
+      assert_equal("Jyaiṣṭha Śuklapakṣa", date.name('month').to_s)
+      start  = 2448421
+      Sample2.size.times do |i|
+        assert_equal([Sample2[i], start+i], [date.to_s, date.to_i])
+        date += When.Duration('P1D')
+      end
+    end
+
+    def test_indian_date_3
+      cc     = When.Calendar('HinduSolar?type=SBS')
+      date   = When.when?('1913-01-01', {:frame=>cc})
+      assert_equal([2448361, "1913-01-01", "1991-04-14"], [date.to_i, date.to_s, date.to_date.to_s])
+    end
+  end
+end

data/test/test/region/iran.rb

@@ -0,0 +1,54 @@
+# -*- coding: utf-8 -*-
+=begin
+  Copyright (C) 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 Iranian < Test::Unit::TestCase
+    def test__iranian
+      date = When.when? 'AP1391.1.1'
+      [["AP1391.01.01", 2456007], # (2012)
+       ["AP1392.01.01", 2456373], # (2013)
+       ["AP1393.01.01", 2456738], # (2014)
+       ["AP1394.01.01", 2457103], # (2015)
+       ["AP1395.01.01", 2457468], # (2016)
+       ["AP1396.01.01", 2457834], # (2017)
+       ["AP1397.01.01", 2458199], # (2018)
+       ["AP1398.01.01", 2458564], # (2019)
+       ["AP1399.01.01", 2458929], # (2020)
+       ["AP1400.01.01", 2459295], # (2021)
+       ["AP1401.01.01", 2459660], # (2022)
+       ["AP1402.01.01", 2460025], # (2023)
+       ["AP1403.01.01", 2460390], # (2024)
+       ["AP1404.01.01", 2460756], # (2025)
+       ["AP1405.01.01", 2461121], # (2026)
+       ["AP1406.01.01", 2461486], # (2027)
+       ["AP1407.01.01", 2461851], # (2028)
+       ["AP1408.01.01", 2462216], # (2029)
+       ["AP1409.01.01", 2462582], # (2030)
+       ["AP1410.01.01", 2462947], # (2031)
+       ["AP1411.01.01", 2463312], # (2032)
+       ["AP1412.01.01", 2463677], # (2033)
+       ["AP1413.01.01", 2464043], # (2034)
+       ["AP1414.01.01", 2464408], # (2035)
+       ["AP1415.01.01", 2464773], # (2036)
+       ["AP1416.01.01", 2465138], # (2037)
+       ["AP1417.01.01", 2465504], # (2038)
+       ["AP1418.01.01", 2465869], # (2039)
+       ["AP1419.01.01", 2466234], # (2040)
+       ["AP1420.01.01", 2466599], # (2041)
+       ["AP1421.01.01", 2466965], # (2042)
+       ["AP1422.01.01", 2467330], # (2043)
+       ["AP1423.01.01", 2467695], # (2044)
+       ["AP1424.01.01", 2468060]  # (2045)
+      ].each do |sample|
+        assert_equal(sample, [date.to_s, date.to_i])
+        date += When.Duration('P1Y')
+      end
+    end
+  end
+end

data/test/test/region/islamic.rb

@@ -0,0 +1,18 @@
+# -*- 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
+
+  module CalendarTypes
+    class Islamic < Test::Unit::TestCase
+      def test_nothing
+      end
+    end
+  end
+
+end

data/test/test/region/japanese.rb

@@ -0,0 +1,62 @@
+# -*- 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 Japanese < Test::Unit::TestCase
+
+    def test_japanese_epoch
+      eras = When.Resource('_e:Japanese')
+
+      sample = 
+        [["天平21(0749).04.13", "天平感宝01(0749).04.13", "天平勝宝01(0749).04.13"],
+         ["天平21(0749).04.13"],
+         ["天平感宝01(0749).04.14", "天平勝宝01(0749).04.14"],
+         ["天平感宝01(0749).04.14"],
+         ["天平勝宝01(0749).07.02"],
+         ["天平勝宝01(0749).07.02"]]
+      ['天平勝宝01.04.13', '天平勝宝01.04.14', '天平勝宝01.07.02'].each do |string|
+        assert_equal(sample.shift, ((When.when?(string) ^ eras).
+                                     delete_if {|d| !d.leaf?}).map {|d| d.to_s})
+        assert_equal(sample.shift, ((When.when?(string, {:lower=>true}) ^ eras).
+                                     delete_if {|d| !d.leaf?}).map {|d| d.to_s})
+      end
+
+      sample =
+        [["大正15(1926).12.24"],
+         ["大正15(1926).12.24"],
+         ["昭和01(1926).12.25"],
+         ["昭和01(1926).12.25"],
+         ["昭和01(1926).12.26"],
+         ["昭和01(1926).12.26"]]
+      ['大正15.12.24', '大正15.12.25', '大正15.12.26'].each do |string|
+        assert_equal(sample.shift, ((When.when?(string) ^ eras).
+                                     delete_if {|d| !d.leaf?}).map {|d| d.to_s})
+        assert_equal(sample.shift, ((When.when?(string, {:lower=>true}) ^ eras).
+                                     delete_if {|d| !d.leaf?}).map {|d| d.to_s})
+      end
+    end
+
+=begin
+    def test_japanese_date
+      jc   = When.Resource('_c:Japanese')
+      diff = []
+      open('test/region/japanese-calendar.txt', "1".respond_to?(:force_encoding) ? 'r:utf-8' : 'r') do |f|
+        while (line = f.gets)
+          next if line =~ /^ *#/
+          x, x, jdn, x, x, x, gy, gm, gd, x, x, jy, jm, jd = line.split(/ +/).map {|v| v.to_i}
+          jm, leap = (jm > 0) ? [jm, '-'] : [-jm, '=']
+          date = When.when?("%04d-%02d%s%02d" % [(gm >= jm) ? gy : gy-1, jm, leap, jd], {:frame=>jc})
+          diff << [jdn - date.to_i, date.to_s] unless jdn == date.to_i
+        end
+      end
+      assert_equal([], diff)
+    end
+=end
+  end
+end

data/test/test/region/jewish.rb

@@ -0,0 +1,61 @@
+# -*- 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 Jewish < Test::Unit::TestCase
+    def test__jewish
+      date = When.when? 'HY5700.1.1'
+      [["HY5700.01.01", 2429521],
+       ["HY5700.02.01", 2429551],
+       ["HY5700.03.01", 2429581],
+       ["HY5700.04.01", 2429611],
+       ["HY5700.05.01", 2429640],
+       ["HY5700.06*01", 2429670],
+       ["HY5700.06=01", 2429700],
+       ["HY5700.07.01", 2429729],
+       ["HY5700.08.01", 2429759],
+       ["HY5700.09.01", 2429788],
+       ["HY5700.10.01", 2429818],
+       ["HY5700.11.01", 2429847],
+       ["HY5700.12.01", 2429877]].each do |sample|
+        assert_equal(sample, [date.to_s, date.to_i])
+        date += When.Duration('P1M')
+      end
+
+      date = When.when? 'HY5773.1.1'
+      [["HY5773.01.01", 2456188],
+       ["HY5774.01.01", 2456541],
+       ["HY5775.01.01", 2456926],
+       ["HY5776.01.01", 2457280],
+       ["HY5777.01.01", 2457665],
+       ["HY5778.01.01", 2458018],
+       ["HY5779.01.01", 2458372],
+       ["HY5780.01.01", 2458757],
+       ["HY5781.01.01", 2459112],
+       ["HY5782.01.01", 2459465],
+       ["HY5783.01.01", 2459849],
+       ["HY5784.01.01", 2460204],
+       ["HY5785.01.01", 2460587],
+       ["HY5786.01.01", 2460942],
+       ["HY5787.01.01", 2461296],
+       ["HY5788.01.01", 2461681],
+       ["HY5789.01.01", 2462036],
+       ["HY5790.01.01", 2462390],
+       ["HY5791.01.01", 2462773],
+       ["HY5792.01.01", 2463128]].each do |sample|
+        assert_equal(sample, [date.to_s, date.to_i])
+        date += When.Duration('P1Y')
+      end
+
+      assert_equal("BCE3761(-3760).10.07",
+                   (When.era('BCE')[0] ^ When.Calendar('Jewish').domain.first).to_s)
+
+    end
+  end
+end