when_exe 0.4.2 → 0.4.3

data/test/test/region/armenian.rb

@@ -1,20 +1,20 @@
-# -*- 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
-
-  class Armenian < MiniTest::TestCase
-    def test__armenian
-      date = When.when?('1-1-1^^Armenian')
-      assert_equal(["0001-01-01", "0552-07-11"], [date.to_s, (When::Julian ^ date).to_s])
-
-      date = When.when?('1462-1-1^^Armenian')
-      assert_equal(["1462-01-01", "2012-07-24"], [date.to_s, (When::Gregorian ^ date).to_s])
-    end
-  end
-end
+# -*- 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
+
+  class Armenian < MiniTest::TestCase
+    def test__armenian
+      date = When.when?('1-1-1^^Armenian')
+      assert_equal(["0001-01-01", "0552-07-11"], [date.to_s, (When::Julian ^ date).to_s])
+
+      date = When.when?('1462-1-1^^Armenian')
+      assert_equal(["1462-01-01", "2012-07-24"], [date.to_s, (When::Gregorian ^ date).to_s])
+    end
+  end
+end

data/test/test/region/bahai.rb

@@ -1,58 +1,58 @@
-# -*- 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
-
-  class Bahai < MiniTest::TestCase
-    def test_bahai
-      date = When.when? '1.9.1.1.1^^Bahai?location=(_co:Iranian::Tehran)'
-      [["01.09.01.01.01", "1996-03-20", 2450163],
-       ["01.09.02.01.01", "1997-03-20", 2450528],
-       ["01.09.03.01.01", "1998-03-21", 2450894],
-       ["01.09.04.01.01", "1999-03-21", 2451259],
-       ["01.09.05.01.01", "2000-03-20", 2451624],
-       ["01.09.06.01.01", "2001-03-20", 2451989],
-       ["01.09.07.01.01", "2002-03-21", 2452355],
-       ["01.09.08.01.01", "2003-03-21", 2452720],
-       ["01.09.09.01.01", "2004-03-20", 2453085],
-       ["01.09.10.01.01", "2005-03-20", 2453450],
-       ["01.09.11.01.01", "2006-03-21", 2453816],
-       ["01.09.12.01.01", "2007-03-21", 2454181],
-       ["01.09.13.01.01", "2008-03-20", 2454546],
-       ["01.09.14.01.01", "2009-03-20", 2454911],
-       ["01.09.15.01.01", "2010-03-21", 2455277],
-       ["01.09.16.01.01", "2011-03-21", 2455642],
-       ["01.09.17.01.01", "2012-03-20", 2456007],
-       ["01.09.18.01.01", "2013-03-20", 2456372],
-       ["01.09.19.01.01", "2014-03-21", 2456738],
-       ["01.10.01.01.01", "2015-03-21", 2457103],
-       ["01.10.02.01.01", "2016-03-20", 2457468],
-       ["01.10.03.01.01", "2017-03-20", 2457833],
-       ["01.10.04.01.01", "2018-03-21", 2458199],
-       ["01.10.05.01.01", "2019-03-21", 2458564],
-       ["01.10.06.01.01", "2020-03-20", 2458929],
-       ["01.10.07.01.01", "2021-03-20", 2459294],
-       ["01.10.08.01.01", "2022-03-21", 2459660],
-       ["01.10.09.01.01", "2023-03-21", 2460025],
-       ["01.10.10.01.01", "2024-03-20", 2460390],
-       ["01.10.11.01.01", "2025-03-20", 2460755],
-       ["01.10.12.01.01", "2026-03-20", 2461120],
-       ["01.10.13.01.01", "2027-03-21", 2461486],
-       ["01.10.14.01.01", "2028-03-20", 2461851]].each do |sample|
-        assert_equal(sample, [date.to_s, (When::Gregorian ^ date).to_s, date.to_i])
-        date += When::P1Y
-      end
-
-      date = When.when? '2001.3.21'
-      400.times do
-        assert_equal([1,1], (When.Calendar('Bahai') ^ date).cal_date[-2..-1])
-        date += When::P1Y
-      end
-    end
-  end
-end
+# -*- 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
+
+  class Bahai < MiniTest::TestCase
+    def test_bahai
+      date = When.when? '1.9.1.1.1^^Bahai?location=(_co:Iranian::Tehran)'
+      [["01.09.01.01.01", "1996-03-20", 2450163],
+       ["01.09.02.01.01", "1997-03-20", 2450528],
+       ["01.09.03.01.01", "1998-03-21", 2450894],
+       ["01.09.04.01.01", "1999-03-21", 2451259],
+       ["01.09.05.01.01", "2000-03-20", 2451624],
+       ["01.09.06.01.01", "2001-03-20", 2451989],
+       ["01.09.07.01.01", "2002-03-21", 2452355],
+       ["01.09.08.01.01", "2003-03-21", 2452720],
+       ["01.09.09.01.01", "2004-03-20", 2453085],
+       ["01.09.10.01.01", "2005-03-20", 2453450],
+       ["01.09.11.01.01", "2006-03-21", 2453816],
+       ["01.09.12.01.01", "2007-03-21", 2454181],
+       ["01.09.13.01.01", "2008-03-20", 2454546],
+       ["01.09.14.01.01", "2009-03-20", 2454911],
+       ["01.09.15.01.01", "2010-03-21", 2455277],
+       ["01.09.16.01.01", "2011-03-21", 2455642],
+       ["01.09.17.01.01", "2012-03-20", 2456007],
+       ["01.09.18.01.01", "2013-03-20", 2456372],
+       ["01.09.19.01.01", "2014-03-21", 2456738],
+       ["01.10.01.01.01", "2015-03-21", 2457103],
+       ["01.10.02.01.01", "2016-03-20", 2457468],
+       ["01.10.03.01.01", "2017-03-20", 2457833],
+       ["01.10.04.01.01", "2018-03-21", 2458199],
+       ["01.10.05.01.01", "2019-03-21", 2458564],
+       ["01.10.06.01.01", "2020-03-20", 2458929],
+       ["01.10.07.01.01", "2021-03-20", 2459294],
+       ["01.10.08.01.01", "2022-03-21", 2459660],
+       ["01.10.09.01.01", "2023-03-21", 2460025],
+       ["01.10.10.01.01", "2024-03-20", 2460390],
+       ["01.10.11.01.01", "2025-03-20", 2460755],
+       ["01.10.12.01.01", "2026-03-20", 2461120],
+       ["01.10.13.01.01", "2027-03-21", 2461486],
+       ["01.10.14.01.01", "2028-03-20", 2461851]].each do |sample|
+        assert_equal(sample, [date.to_s, (When::Gregorian ^ date).to_s, date.to_i])
+        date += When::P1Y
+      end
+
+      date = When.when? '2001.3.21'
+      400.times do
+        assert_equal([1,1], (When.Calendar('Bahai') ^ date).cal_date[-2..-1])
+        date += When::P1Y
+      end
+    end
+  end
+end

data/test/test/region/balinese.rb

@@ -1,34 +1,34 @@
-# -*- 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 MiniTest
-
-  class Balenese< MiniTest::TestCase
-    def test_balinese_note
-      note   = When::CalendarNote('Balinese')
-      b_date = When::Calendar('BalineseLuniSolar2003') ^ When.when?('2012-6-19')
-      g_date = When::Calendar('Gregorian')^b_date
-      assert_equal(["Ulat/Lidi"    ], [note.hari(b_date).to_s,       note.hari(g_date).to_s      ].uniq) # hari      
-      assert_equal(["Pepet"        ], [note.dwiwara(b_date).to_s,    note.dwiwara(g_date).to_s   ].uniq) # dwiwara   
-      assert_equal(["Kajeng(2)"    ], [note.triwara(b_date).to_s,    note.triwara(g_date).to_s   ].uniq) # triwara   
-      assert_equal(["Jaya"         ], [note.tjaturwara(b_date).to_s, note.tjaturwara(g_date).to_s].uniq) # tjaturwara
-      assert_equal(["Wage(2)"      ], [note.pantjawara(b_date).to_s, note.pantjawara(g_date).to_s].uniq) # pantjawara
-      assert_equal(["Urukung(2)"   ], [note.perinkelan(b_date).to_s, note.perinkelan(g_date).to_s].uniq) # perinkelan
-      assert_equal(["Sato(2)"      ], [note.sadwara(b_date).to_s,    note.sadwara(g_date).to_s   ].uniq) # sadwara   
-      assert_equal(["Anggara(2)"   ], [note.septawara(b_date).to_s,  note.septawara(g_date).to_s ].uniq) # septawara 
-      assert_equal(["Guru"         ], [note.astawara(b_date).to_s,   note.astawara(g_date).to_s  ].uniq) # astawara  
-      assert_equal(["Dangu"        ], [note.sangawara(b_date).to_s,  note.sangawara(g_date).to_s ].uniq) # sangawara 
-      assert_equal(["Raja"         ], [note.dasawara(b_date).to_s,   note.dasawara(g_date).to_s  ].uniq) # dasawara  
-      assert_equal(["Wong(2)"      ], [note.ingkel(b_date).to_s,     note.ingkel(g_date).to_s    ].uniq) # ingkel    
-      assert_equal(["Watu-Lembu"   ], [note.watek(b_date).to_s,      note.watek(g_date).to_s     ].uniq) # watek     
-      assert_equal(["Jong Sarat(2)"], [note.lintang(b_date).to_s,    note.lintang(g_date).to_s   ].uniq) # lintang   
-      assert_equal(["Sinta(2)"     ], [note.wuku(b_date).to_s,       note.wuku(g_date).to_s      ].uniq) # wuku      
-    end
-  end
-end
-
+# -*- 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 MiniTest
+
+  class Balenese< MiniTest::TestCase
+    def test_balinese_note
+      note   = When::CalendarNote('Balinese')
+      b_date = When::Calendar('BalineseLuniSolar2003') ^ When.when?('2012-6-19')
+      g_date = When::Calendar('Gregorian')^b_date
+      assert_equal(["Ulat/Lidi"    ], [note.hari(b_date).to_s,       note.hari(g_date).to_s      ].uniq) # hari      
+      assert_equal(["Pepet"        ], [note.dwiwara(b_date).to_s,    note.dwiwara(g_date).to_s   ].uniq) # dwiwara   
+      assert_equal(["Kajeng(2)"    ], [note.triwara(b_date).to_s,    note.triwara(g_date).to_s   ].uniq) # triwara   
+      assert_equal(["Jaya"         ], [note.tjaturwara(b_date).to_s, note.tjaturwara(g_date).to_s].uniq) # tjaturwara
+      assert_equal(["Wage(2)"      ], [note.pantjawara(b_date).to_s, note.pantjawara(g_date).to_s].uniq) # pantjawara
+      assert_equal(["Urukung(2)"   ], [note.perinkelan(b_date).to_s, note.perinkelan(g_date).to_s].uniq) # perinkelan
+      assert_equal(["Sato(2)"      ], [note.sadwara(b_date).to_s,    note.sadwara(g_date).to_s   ].uniq) # sadwara   
+      assert_equal(["Anggara(2)"   ], [note.septawara(b_date).to_s,  note.septawara(g_date).to_s ].uniq) # septawara 
+      assert_equal(["Guru"         ], [note.astawara(b_date).to_s,   note.astawara(g_date).to_s  ].uniq) # astawara  
+      assert_equal(["Dangu"        ], [note.sangawara(b_date).to_s,  note.sangawara(g_date).to_s ].uniq) # sangawara 
+      assert_equal(["Raja"         ], [note.dasawara(b_date).to_s,   note.dasawara(g_date).to_s  ].uniq) # dasawara  
+      assert_equal(["Wong(2)"      ], [note.ingkel(b_date).to_s,     note.ingkel(g_date).to_s    ].uniq) # ingkel    
+      assert_equal(["Watu-Lembu"   ], [note.watek(b_date).to_s,      note.watek(g_date).to_s     ].uniq) # watek     
+      assert_equal(["Jong Sarat(2)"], [note.lintang(b_date).to_s,    note.lintang(g_date).to_s   ].uniq) # lintang   
+      assert_equal(["Sinta(2)"     ], [note.wuku(b_date).to_s,       note.wuku(g_date).to_s      ].uniq) # wuku      
+    end
+  end
+end
+

data/test/test/region/chinese.rb

@@ -1,229 +1,229 @@
-# -*- 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 Chinese < MiniTest::TestCase
-    def test_chinese_table
-      assert_equal({1677=>{"iJ"=>"Ij"},
-                    1698=>{"jK"=>"Jk"},
-                    1709=>{"aB"=>"Ab", "jK"=>"Jk"},
-                    1727=>{"cC"=>"Cc"},
-                    1730=>{"Cd"=>"cD"},
-                    1751=>{"Jk"=>"jK"},
-                    1778=>{"Cd"=>"cD"},
-                    1841=>{"kL"=>"Kl"}}, When.Calendar('Korean').verify(When.Calendar('Chinese1645'), 1654..1911))
-    end
-
-    def test_chinese_date
-
-      emd = When.Resource('_c:EphemerisBasedSolar?time_basis=+09:00')
-      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({'time_basis'=>'+09:00'})
-      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({'time_basis'=>'+09:00', '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')/'alias'])
-      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, 1640641, "<始皇帝>26(-220)*10.01", "十月"],
-                   [date.to_i, date.floor(When::YEAR).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
-
-    def test_daien_lunation
-      sample = [
-        2938, 2993, 2708, 2760, 2573, 2691, 2622, 
-        2626, 2637, 2523, 2551, 2637, 2625, 2886, 
-        2703, 2764, 2791, 2680, 2792, 2764, 2797, 
-        1402, 2626, 2380, 2807, 3003,   23, 2698]
-
-      %w(0765-02-01 0765-12-01 0768-09-01 0769-04-01 0769-07-01 0771-05-01 0772-04-01
-         0772-09-01 0774-06-01 0775-02-01 0776-03-01 0780-05-01 0781-09-01 0784-10=01
-         0786-03-01 0788-04-01 0791-02-01 0791-09-01 0792-05-01 0813-12-01 0816-03-01
-         0820-02-01 0820-03-01 0822-02-01 0835-04-01 0836-04-01 0841-11-01 0853-02-01).each do |ptn|
-        date = When.when?(ptn+ '^^ChineseTwin::大衍暦')
-        formula = date.frame.formula[-1]
-        m = When::Coordinates::Residue.mod(date.to_i+1) {|cn| formula.cn_to_time(cn)}
-        t = formula.cn_to_time(m[0]) + Rational(1,2)
-        assert_equal(sample.shift, (t - t.floor) * formula.denominator)
-      end
-    end
-
-    def test_solar_terms_for_chinese_true_lunation
-      date     = When.when?('1690-1-1^^JapaneseTwin::貞享暦(節月)')
-      formula = date.frame.formula[0]
-      class << formula
-        attr_reader :day_shift, :longitude_shift, :year_delta
-      end
-      assert_equal(["12S", Rational(-1,4), 2336118.19, 1.0e-06, 1684.0, 365.241696],
-        [formula.formula, formula.longitude_shift, formula.day_epoch, formula.year_delta, formula.year_epoch, formula.year_length.to_f])
-      m = When::Coordinates::Residue.mod(date.to_i+1) {|cn| formula.cn_to_time(cn)}
-      t = formula.cn_to_time(m[0]) + Rational(1,2)
-    # assert_equal(["1690-01-01", 2338355, 20278, [15.923047, 30.436807, 2338340.576953]],
-    #   [date.to_s, date.to_i, m[0], [m[1], m[2], t].map {|x| (x*1000000).round / 1000000.0}])
-
-      date     = When.when?('1801-1-1^^JapaneseTwin::寛政暦(節月)')
-      formula = date.frame.formula[0]
-      class << formula
-        attr_reader :day_epoch, :day_shift, :year_delta, :year_epoch, :year_length, :longitude_shift
-      end
-      assert_equal(["12S", Rational(-1,4), 2377390.607112, 1797.0, 365.242347071],
-        [formula.formula, formula.longitude_shift, formula.day_epoch, formula.year_epoch, formula.year_length.to_f])
-      m = When::Coordinates::Residue.mod(date.to_i+1) {|cn| formula.cn_to_time(cn)}
-      t = formula.cn_to_time(m[0]) + Rational(1,2)
-    # assert_equal(["1801-01-01", 2378897, 21610, [15.986637, 30.436862, 2378882.513363]],
-    #   [date.to_s, date.to_i, m[0], [m[1], m[2], t].map {|x| (x*1000000).round / 1000000.0}])
-    end
-
-    def test_chinese_era
-      assert_equal("慶元03(1197).01.10",          When.when?('慶元3.1.10').to_s)    # , {'period'=>/清/})
-      assert_equal("紹熙03(1192).01.10",          When.when?('紹煕3.1.10').to_s)    # , {'period'=>/清/})
-      assert_equal("康熙03(1664).01.10",          When.when?('康煕3.1.10').to_s)    # , {'period'=>/清/})
-      assert_equal("紹熙03(1192).01.10",          When.when?('紹熙3.1.10').to_s)    # , {'period'=>/清/})
-      assert_equal("崇徳03(1638).01.30",          When.when?('崇徳3.1.30', {'period'=>/清/}).to_s)
-      assert_raises(ArgumentError) {When.when?('崇徳3.1.30', {'period'=>/後金/})}
-      assert_equal("正徳16(1521).03.14",          When.TemporalPosition("正徳", 16, 3, 14, {"period"=>/明/}).to_s)
-      assert_equal("正徳16(1521).03.14",          When.when?('正徳16.3.14', {'period'=>/明/}).to_s)
-      assert_equal("中国::明::崇禎11(1638).01.30",When.when?('崇禎11.1.30', {'period'=>/明/}).to_s)
-    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 Chinese < MiniTest::TestCase
+    def test_chinese_table
+      assert_equal({1677=>{"iJ"=>"Ij"},
+                    1698=>{"jK"=>"Jk"},
+                    1709=>{"aB"=>"Ab", "jK"=>"Jk"},
+                    1727=>{"cC"=>"Cc"},
+                    1730=>{"Cd"=>"cD"},
+                    1751=>{"Jk"=>"jK"},
+                    1778=>{"Cd"=>"cD"},
+                    1841=>{"kL"=>"Kl"}}, When.Calendar('Korean').verify(When.Calendar('Chinese1645'), 1654..1911))
+    end
+
+    def test_chinese_date
+
+      emd = When.Resource('_c:EphemerisBasedSolar?time_basis=+09:00')
+      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({'time_basis'=>'+09:00'})
+      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({'time_basis'=>'+09:00', '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')/'alias'])
+      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, 1640641, "<始皇帝>26(-220)*10.01", "十月"],
+                   [date.to_i, date.floor(When::YEAR).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
+
+    def test_daien_lunation
+      sample = [
+        2938, 2993, 2708, 2760, 2573, 2691, 2622, 
+        2626, 2637, 2523, 2551, 2637, 2625, 2886, 
+        2703, 2764, 2791, 2680, 2792, 2764, 2797, 
+        1402, 2626, 2380, 2807, 3003,   23, 2698]
+
+      %w(0765-02-01 0765-12-01 0768-09-01 0769-04-01 0769-07-01 0771-05-01 0772-04-01
+         0772-09-01 0774-06-01 0775-02-01 0776-03-01 0780-05-01 0781-09-01 0784-10=01
+         0786-03-01 0788-04-01 0791-02-01 0791-09-01 0792-05-01 0813-12-01 0816-03-01
+         0820-02-01 0820-03-01 0822-02-01 0835-04-01 0836-04-01 0841-11-01 0853-02-01).each do |ptn|
+        date = When.when?(ptn+ '^^ChineseTwin::大衍暦')
+        formula = date.frame.formula[-1]
+        m = When::Coordinates::Residue.mod(date.to_i+1) {|cn| formula.cn_to_time(cn)}
+        t = formula.cn_to_time(m[0]) + Rational(1,2)
+        assert_equal(sample.shift, (t - t.floor) * formula.denominator)
+      end
+    end
+
+    def test_solar_terms_for_chinese_true_lunation
+      date     = When.when?('1690-1-1^^JapaneseTwin::貞享暦(節月)')
+      formula = date.frame.formula[0]
+      class << formula
+        attr_reader :day_shift, :longitude_shift, :year_delta
+      end
+      assert_equal(["12S", Rational(-1,4), 2336118.19, 1.0e-06, 1684.0, 365.241696],
+        [formula.formula, formula.longitude_shift, formula.day_epoch, formula.year_delta, formula.year_epoch, formula.year_length.to_f])
+      m = When::Coordinates::Residue.mod(date.to_i+1) {|cn| formula.cn_to_time(cn)}
+      t = formula.cn_to_time(m[0]) + Rational(1,2)
+    # assert_equal(["1690-01-01", 2338355, 20278, [15.923047, 30.436807, 2338340.576953]],
+    #   [date.to_s, date.to_i, m[0], [m[1], m[2], t].map {|x| (x*1000000).round / 1000000.0}])
+
+      date     = When.when?('1801-1-1^^JapaneseTwin::寛政暦(節月)')
+      formula = date.frame.formula[0]
+      class << formula
+        attr_reader :day_epoch, :day_shift, :year_delta, :year_epoch, :year_length, :longitude_shift
+      end
+      assert_equal(["12S", Rational(-1,4), 2377390.607112, 1797.0, 365.242347071],
+        [formula.formula, formula.longitude_shift, formula.day_epoch, formula.year_epoch, formula.year_length.to_f])
+      m = When::Coordinates::Residue.mod(date.to_i+1) {|cn| formula.cn_to_time(cn)}
+      t = formula.cn_to_time(m[0]) + Rational(1,2)
+    # assert_equal(["1801-01-01", 2378897, 21610, [15.986637, 30.436862, 2378882.513363]],
+    #   [date.to_s, date.to_i, m[0], [m[1], m[2], t].map {|x| (x*1000000).round / 1000000.0}])
+    end
+
+    def test_chinese_era
+      assert_equal("慶元03(1197).01.10",          When.when?('慶元3.1.10').to_s)    # , {'period'=>/清/})
+      assert_equal("紹熙03(1192).01.10",          When.when?('紹煕3.1.10').to_s)    # , {'period'=>/清/})
+      assert_equal("康熙03(1664).01.10",          When.when?('康煕3.1.10').to_s)    # , {'period'=>/清/})
+      assert_equal("紹熙03(1192).01.10",          When.when?('紹熙3.1.10').to_s)    # , {'period'=>/清/})
+      assert_equal("崇徳03(1638).01.30",          When.when?('崇徳3.1.30', {'period'=>/清/}).to_s)
+      assert_raises(ArgumentError) {When.when?('崇徳3.1.30', {'period'=>/後金/})}
+      assert_equal("正徳16(1521).03.14",          When.TemporalPosition("正徳", 16, 3, 14, {"period"=>/明/}).to_s)
+      assert_equal("正徳16(1521).03.14",          When.when?('正徳16.3.14', {'period'=>/明/}).to_s)
+      assert_equal("中国::明::崇禎11(1638).01.30",When.when?('崇禎11.1.30', {'period'=>/明/}).to_s)
+    end
+  end
+end