when_exe 0.4.2 → 0.5.0

data/test/test/region/swedish.rb

@@ -1,45 +1,45 @@
-# -*- 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 Swedish < MiniTest::TestCase
-    def test__swedish_date
-
-      dates = []
-      jdns  = []
-      [2342042, 2346424].each do |base|
-        (-3..+3).each do |diff|
-          jdn    = base + diff
-          jdate  = When::Julian  ^ jdn
-          s1date = When::Swedish ^ jdn
-          s2date = When.tm_pos(*(s1date.cal_date + [{:frame=>When::Swedish}]))
-          dates << s1date.to_s
-          jdns  << [s1date.to_s == s2date.to_s, s1date.to_i == jdn, s2date.to_i == jdn].uniq
-        end
-      end
-
-      assert_equal(%w(1700-02-26 1700-02-27 1700-02-28 1700-03-01 1700-03-02 1700-03-03 1700-03-04
-                      1712-02-26 1712-02-27 1712-02-28 1712-02-29 1712-02-30 1712-03-01 1712-03-02), dates)
-      assert_equal([[true]], jdns.uniq)
-    end
-
-    def test__swedish_easter
-
-      dates = []
-      civil = When.Calendar('Civil?old=Swedish&reform_date=1753-03-01')
-      ((1700..1711).to_a + (1740..1752).to_a+[1802,1805,1818]).each do |year|
-         dates << When.tm_pos(year, {:frame=>civil}).easter.to_s
-      end
-      assert_equal(%w(1700-04-01 1701-04-21 1702-04-06 1703-03-29 1704-04-17 1705-04-02 1706-03-25
-                      1707-04-14 1708-04-05 1709-04-18 1710-04-10 1711-03-26 1740-04-06 1741-03-22
-                      1742-03-14 1743-04-03 1744-03-18 1745-04-07 1746-03-30 1747-03-22 1748-04-03
-                      1749-03-26 1750-03-18 1751-03-31 1752-03-22 1802-04-25 1805-04-21 1818-03-29), dates)
-    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 Swedish < MiniTest::TestCase
+    def test__swedish_date
+
+      dates = []
+      jdns  = []
+      [2342042, 2346424].each do |base|
+        (-3..+3).each do |diff|
+          jdn    = base + diff
+          jdate  = When::Julian  ^ jdn
+          s1date = When::Swedish ^ jdn
+          s2date = When.tm_pos(*(s1date.cal_date + [{:frame=>When::Swedish}]))
+          dates << s1date.to_s
+          jdns  << [s1date.to_s == s2date.to_s, s1date.to_i == jdn, s2date.to_i == jdn].uniq
+        end
+      end
+
+      assert_equal(%w(1700-02-26 1700-02-27 1700-02-28 1700-03-01 1700-03-02 1700-03-03 1700-03-04
+                      1712-02-26 1712-02-27 1712-02-28 1712-02-29 1712-02-30 1712-03-01 1712-03-02), dates)
+      assert_equal([[true]], jdns.uniq)
+    end
+
+    def test__swedish_easter
+
+      dates = []
+      civil = When.Calendar('Civil?old=Swedish&reform_date=1753-03-01')
+      ((1700..1711).to_a + (1740..1752).to_a+[1802,1805,1818]).each do |year|
+         dates << When.tm_pos(year, {:frame=>civil}).easter.to_s
+      end
+      assert_equal(%w(1700-04-01 1701-04-21 1702-04-06 1703-03-29 1704-04-17 1705-04-02 1706-03-25
+                      1707-04-14 1708-04-05 1709-04-18 1710-04-10 1711-03-26 1740-04-06 1741-03-22
+                      1742-03-14 1743-04-03 1744-03-18 1745-04-07 1746-03-30 1747-03-22 1748-04-03
+                      1749-03-26 1750-03-18 1751-03-31 1752-03-22 1802-04-25 1805-04-21 1818-03-29), dates)
+    end
+  end
+end

data/test/test/region/thai.rb

@@ -1,116 +1,116 @@
-# -*- 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 MiniTest
-
-  class Thai < MiniTest::TestCase
-    def test_thai_date
-
-      date = When.Resource('_c:ThaiP') ^ 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:Thai') ^ 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:Thai')})
-      assert_equal(["1374-08&02", 2456099, "adhika Āṣāḍha Śuklapakṣa"],
-                   [date.to_s, date.to_i, date.name('Month').translate('en')])
-
-      diffs = [
-        [1840,-1], [1860, 1], [1865, 1], [1876,-1], [1880,-1], [1881,-1], [1891,29], [1901, 1],
-        [1902, 1], [1906, 1], [1910,30], [1911, 1], [1915, 1], [1916, 1], [1922, 1], [1926, 1],
-        [1927, 1], [1934, 1], [1935, 1], [1936, 1], [1963, 1], [2024,-1], [2025,-1], [2040,-1],
-        [2041,-1]]
-      (1840..2050).each do |year|
-        cdate = When.TemporalPosition(year-638, 1, 1, :frame=>'ThaiC').to_i
-        tdate = When.TemporalPosition(year-638, 1, 1, :frame=>'ThaiT').to_i
-        unless cdate == tdate
-          assert_equal(diffs.shift, [year, tdate - cdate])
-        end
-      end
-      assert_equal(0, diffs.size)
-
-      diffs = [[1961,0], [1962,0], [1963,1], [1964,1]]
-      (1961..1964).each do |year|
-        t0date = When.TemporalPosition(year-638, 1, 1, :frame=>'ThaiT').to_i
-        t1date = When.TemporalPosition(year-638, 1, 1, :frame=>'ThaiT?patch=1962A').to_i
-        assert_equal(diffs.shift, [year, t0date - t1date])
-      end
-      assert_equal(0, diffs.size)
-    end
-  end
-end
-
+# -*- 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 MiniTest
+
+  class Thai < MiniTest::TestCase
+    def test_thai_date
+
+      date = When.Resource('_c:ThaiP') ^ 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:Thai') ^ 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:Thai')})
+      assert_equal(["1374-08&02", 2456099, "adhika Āṣāḍha Śuklapakṣa"],
+                   [date.to_s, date.to_i, date.name('Month').translate('en')])
+
+      diffs = [
+        [1840,-1], [1860, 1], [1865, 1], [1876,-1], [1880,-1], [1881,-1], [1891,29], [1901, 1],
+        [1902, 1], [1906, 1], [1910,30], [1911, 1], [1915, 1], [1916, 1], [1922, 1], [1926, 1],
+        [1927, 1], [1934, 1], [1935, 1], [1936, 1], [1963, 1], [2024,-1], [2025,-1], [2040,-1],
+        [2041,-1]]
+      (1840..2050).each do |year|
+        cdate = When.TemporalPosition(year-638, 1, 1, :frame=>'ThaiC').to_i
+        tdate = When.TemporalPosition(year-638, 1, 1, :frame=>'ThaiT').to_i
+        unless cdate == tdate
+          assert_equal(diffs.shift, [year, tdate - cdate])
+        end
+      end
+      assert_equal(0, diffs.size)
+
+      diffs = [[1961,0], [1962,0], [1963,1], [1964,1]]
+      (1961..1964).each do |year|
+        t0date = When.TemporalPosition(year-638, 1, 1, :frame=>'ThaiT').to_i
+        t1date = When.TemporalPosition(year-638, 1, 1, :frame=>'ThaiT?patch=1962A').to_i
+        assert_equal(diffs.shift, [year, t0date - t1date])
+      end
+      assert_equal(0, diffs.size)
+    end
+  end
+end
+

data/test/test/region/tibetan.rb

@@ -1,30 +1,30 @@
-# -*- 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 Tibetan < MiniTest::TestCase
-    Sample = [
-      "1991-05-01-", "1991-05-02-", "1991-05-03-", "1991-05-04-", "1991-05-05%", "1991-05-07-", "1991-05-08-", "1991-05-09-",
-      "1991-05-10-", "1991-05-11-", "1991-05-12-", "1991-05-13-", "1991-05-14-", "1991-05-15-", "1991-05-15=", "1991-05-16-",
-      "1991-05-17-", "1991-05-18-", "1991-05-19-", "1991-05-20-", "1991-05-21-", "1991-05-22-", "1991-05-23-", "1991-05-24-",
-      "1991-05-25-", "1991-05-26-", "1991-05-27-", "1991-05-28%", "1991-05-30-"
-    ]
-
-    def test_tibetan_date
-      cc     = When.Resource('_c:Tibetan')
-      date   = When.when?('1991-05-01', {:frame=>cc})
-      start  = 2448421
-      Sample.size.times do |i|
-        assert_equal([Sample[i], start+i], [date.to_s, date.to_i])
-        date += When.Duration('P1D')
-      end
-    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 Tibetan < MiniTest::TestCase
+    Sample = [
+      "1991-05-01-", "1991-05-02-", "1991-05-03-", "1991-05-04-", "1991-05-05%", "1991-05-07-", "1991-05-08-", "1991-05-09-",
+      "1991-05-10-", "1991-05-11-", "1991-05-12-", "1991-05-13-", "1991-05-14-", "1991-05-15-", "1991-05-15=", "1991-05-16-",
+      "1991-05-17-", "1991-05-18-", "1991-05-19-", "1991-05-20-", "1991-05-21-", "1991-05-22-", "1991-05-23-", "1991-05-24-",
+      "1991-05-25-", "1991-05-26-", "1991-05-27-", "1991-05-28%", "1991-05-30-"
+    ]
+
+    def test_tibetan_date
+      cc     = When.Resource('_c:Tibetan')
+      date   = When.when?('1991-05-01', {:frame=>cc})
+      start  = 2448421
+      Sample.size.times do |i|
+        assert_equal([Sample[i], start+i], [date.to_s, date.to_i])
+        date += When.Duration('P1D')
+      end
+    end
+  end
+end
+

data/test/test/region/vietnamese.rb

@@ -1,102 +1,102 @@
-# -*- 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 Vietnamese < MiniTest::TestCase
-
-    Sample1 = [%w(紹明2.1.1                                1139-02-08 紹明02(1139).01.01),
-               %w(ベトナム?LY=VSL::李朝::紹明2.1.1         1138-02-19 ベトナム?LY=VSL::李朝::紹明02(1138).01.01),
-               %w(嗣徳2.8.1                                1849-09-17 ベトナム::阮朝::嗣徳02(1849).08.01),
-               %w(ベトナム?LY=VSL&DN=LDNK::阮朝::嗣徳2.8.1 1849-09-16 ベトナム?LY=VSL&DN=LDNK::阮朝::嗣徳02(1849).08.01),
-               %w(ベトナム::後期黎朝::福泰2.7.1            1644-08-02 ベトナム::後期黎朝::福泰02(1644).07.01),
-               %w(ベトナム::広南::阮福瀾10.7.1             1644-08-03 ベトナム::広南::<阮福瀾>10(1644).07.01),
-               %w(ベトナム::後期黎朝::慶徳4.9.1            1652-10-02 ベトナム::後期黎朝::慶徳04(1652).09.01),
-               %w(ベトナム::広南::阮福瀕4.9.1              1652-10-03 ベトナム::広南::<阮福瀕>04(1652).09.01),
-               %w(ベトナム::阮朝::建福1.1.31               1884-02-26 ベトナム::阮朝::建福01(1884).01.31)]
-
-    Sample2 = [%w(1659-01- 1659-01-23),
-               %w(1659-01= 1659-02-21),
-               %w(1659-02- 1659-03-23),
-               %w(1659-03- 1659-04-21),
-               %w(1659-04- 1659-05-21),
-               %w(1659-05- 1659-06-20),
-               %w(1659-06- 1659-07-19),
-               %w(1659-07- 1659-08-18),
-               %w(1659-08- 1659-09-16),
-               %w(1659-09- 1659-10-16),
-               %w(1659-10- 1659-11-14),
-               %w(1659-11- 1659-12-14),
-               %w(1659-12- 1660-01-12),
-               %w(1660-01- 1660-02-11),
-               %w(1660-02- 1660-03-11),
-               %w(1660-03- 1660-04-10),
-               %w(1660-04- 1660-05-09),
-               %w(1660-05- 1660-06-08),
-               %w(1660-06- 1660-07-07),
-               %w(1660-07- 1660-08-06),
-               %w(1660-08- 1660-09-05),
-               %w(1660-09- 1660-10-04),
-               %w(1660-10- 1660-11-03),
-               %w(1660-11- 1660-12-02),
-               %w(1660-12- 1661-01-01),
-
-               %w(1659-01- 1659-01-23),
-               %w(1659-01= 1659-02-22),
-               %w(1659-02- 1659-03-23),
-               %w(1659-03- 1659-04-21),
-               %w(1659-04- 1659-05-21),
-               %w(1659-05- 1659-06-20),
-               %w(1659-06- 1659-07-19),
-               %w(1659-07- 1659-08-18),
-               %w(1659-08- 1659-09-16),
-               %w(1659-09- 1659-10-16),
-               %w(1659-10- 1659-11-15), # 1659-11-14 ではない
-               %w(1659-11- 1659-12-14),
-               %w(1659-12- 1660-01-12),
-               %w(1660-01- 1660-02-11),
-               %w(1660-02- 1660-03-11),
-               %w(1660-03- 1660-04-10),
-               %w(1660-04- 1660-05-09),
-               %w(1660-05- 1660-06-08),
-               %w(1660-06- 1660-07-07),
-               %w(1660-07- 1660-08-06),
-               %w(1660-08- 1660-09-05),
-               %w(1660-09- 1660-10-04),
-               %w(1660-10- 1660-11-03),
-               %w(1660-11- 1660-12-03), # 1660-12-02 ではない
-               %w(1660-12- 1661-01-01)]
-
-    def test_vietnamese_era
-
-      When.CalendarEra('Vietnamese')
-      When.CalendarEra('Vietnamese?LY=VSL')
-      When.CalendarEra('Vietnamese?LY=VSL&DN=LDNK')
-
-      Sample1.each do |sample|
-        date = When.when?(sample[0])
-        assert_equal(sample[1..2], [date.to_date.to_s, date.to_s])
-      end
-    end
-
-    def test_vietnamese_date
-
-      When.CalendarEra('Vietnamese')
-
-      sample = Sample2
-      [1544, 1631].each do |epoch|
-        calendar = When.Calendar('Vietnamese' + epoch.to_s)
-        date = When.TemporalPosition(1659, 1, :frame=>calendar)
-        25.times do
-          assert_equal(sample.shift, [date.to_s, date.to_date.to_s])
-          date = date.next
-        end
-      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 Vietnamese < MiniTest::TestCase
+
+    Sample1 = [%w(紹明2.1.1                                1139-02-08 紹明02(1139).01.01),
+               %w(ベトナム?LY=VSL::李朝::紹明2.1.1         1138-02-19 ベトナム?LY=VSL::李朝::紹明02(1138).01.01),
+               %w(嗣徳2.8.1                                1849-09-17 ベトナム::阮朝::嗣徳02(1849).08.01),
+               %w(ベトナム?LY=VSL&DN=LDNK::阮朝::嗣徳2.8.1 1849-09-16 ベトナム?LY=VSL&DN=LDNK::阮朝::嗣徳02(1849).08.01),
+               %w(ベトナム::後期黎朝::福泰2.7.1            1644-08-02 ベトナム::後期黎朝::福泰02(1644).07.01),
+               %w(ベトナム::広南::阮福瀾10.7.1             1644-08-03 ベトナム::広南::<阮福瀾>10(1644).07.01),
+               %w(ベトナム::後期黎朝::慶徳4.9.1            1652-10-02 ベトナム::後期黎朝::慶徳04(1652).09.01),
+               %w(ベトナム::広南::阮福瀕4.9.1              1652-10-03 ベトナム::広南::<阮福瀕>04(1652).09.01),
+               %w(ベトナム::阮朝::建福1.1.31               1884-02-26 ベトナム::阮朝::建福01(1884).01.31)]
+
+    Sample2 = [%w(1659-01- 1659-01-23),
+               %w(1659-01= 1659-02-21),
+               %w(1659-02- 1659-03-23),
+               %w(1659-03- 1659-04-21),
+               %w(1659-04- 1659-05-21),
+               %w(1659-05- 1659-06-20),
+               %w(1659-06- 1659-07-19),
+               %w(1659-07- 1659-08-18),
+               %w(1659-08- 1659-09-16),
+               %w(1659-09- 1659-10-16),
+               %w(1659-10- 1659-11-14),
+               %w(1659-11- 1659-12-14),
+               %w(1659-12- 1660-01-12),
+               %w(1660-01- 1660-02-11),
+               %w(1660-02- 1660-03-11),
+               %w(1660-03- 1660-04-10),
+               %w(1660-04- 1660-05-09),
+               %w(1660-05- 1660-06-08),
+               %w(1660-06- 1660-07-07),
+               %w(1660-07- 1660-08-06),
+               %w(1660-08- 1660-09-05),
+               %w(1660-09- 1660-10-04),
+               %w(1660-10- 1660-11-03),
+               %w(1660-11- 1660-12-02),
+               %w(1660-12- 1661-01-01),
+
+               %w(1659-01- 1659-01-23),
+               %w(1659-01= 1659-02-22),
+               %w(1659-02- 1659-03-23),
+               %w(1659-03- 1659-04-21),
+               %w(1659-04- 1659-05-21),
+               %w(1659-05- 1659-06-20),
+               %w(1659-06- 1659-07-19),
+               %w(1659-07- 1659-08-18),
+               %w(1659-08- 1659-09-16),
+               %w(1659-09- 1659-10-16),
+               %w(1659-10- 1659-11-15), # 1659-11-14 ではない
+               %w(1659-11- 1659-12-14),
+               %w(1659-12- 1660-01-12),
+               %w(1660-01- 1660-02-11),
+               %w(1660-02- 1660-03-11),
+               %w(1660-03- 1660-04-10),
+               %w(1660-04- 1660-05-09),
+               %w(1660-05- 1660-06-08),
+               %w(1660-06- 1660-07-07),
+               %w(1660-07- 1660-08-06),
+               %w(1660-08- 1660-09-05),
+               %w(1660-09- 1660-10-04),
+               %w(1660-10- 1660-11-03),
+               %w(1660-11- 1660-12-03), # 1660-12-02 ではない
+               %w(1660-12- 1661-01-01)]
+
+    def test_vietnamese_era
+
+      When.CalendarEra('Vietnamese')
+      When.CalendarEra('Vietnamese?LY=VSL')
+      When.CalendarEra('Vietnamese?LY=VSL&DN=LDNK')
+
+      Sample1.each do |sample|
+        date = When.when?(sample[0])
+        assert_equal(sample[1..2], [date.to_date.to_s, date.to_s])
+      end
+    end
+
+    def test_vietnamese_date
+
+      When.CalendarEra('Vietnamese')
+
+      sample = Sample2
+      [1544, 1631].each do |epoch|
+        calendar = When.Calendar('Vietnamese' + epoch.to_s)
+        date = When.TemporalPosition(1659, 1, :frame=>calendar)
+        25.times do
+          assert_equal(sample.shift, [date.to_s, date.to_date.to_s])
+          date = date.next
+        end
+      end
+    end
+  end
+end