# -*- coding: utf-8 -*-
=begin
  Copyright (C) 2011-2014 Takashi SUGA

  You may use and/or modify this file according to the license
  described in the LICENSE.txt file included in this archive.
=end

module Test

  class Chinese < Test::Unit::TestCase
    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')])
      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