RubyGems - when_exe - Versions diffs - 0.4.2 → 0.4.3 - Mend

when_exe 0.4.2 → 0.4.3

This diff represents the content of publicly available package versions that have been released to one of the supported registries. The information contained in this diff is provided for informational purposes only and reflects changes between package versions as they appear in their respective public registries.

Files changed (54) hide show

checksums.yaml +4 -4
data/README.md +24 -23
data/lib/when_exe/ephemeris/moon.rb +333 -333
data/lib/when_exe/linkeddata.rb +0 -1
data/lib/when_exe/locales/encoding_conversion.rb +134 -134
data/lib/when_exe/locales/iast.rb +90 -90
data/lib/when_exe/locales/transliteration_table.rb +62 -62
data/lib/when_exe/parts/method_cash.rb +224 -224
data/lib/when_exe/region/chinese/calendars.rb +1016 -1016
data/lib/when_exe/region/geologicalage.rb +1 -1
data/lib/when_exe/region/japanese/calendars.rb +397 -397
data/lib/when_exe/region/japanese/eclipses.rb +1194 -1194
data/lib/when_exe/region/japanese/nihon_shoki.rb +70 -70
data/lib/when_exe/region/korean.rb +384 -384
data/lib/when_exe/region/ryukyu.rb +101 -101
data/lib/when_exe/tmposition.rb +2 -2
data/lib/when_exe/tmreference.rb +3 -3
data/lib/when_exe/version.rb +1 -1
data/test/scripts/geometric_complex.rb +41 -41
data/test/scripts/korea.rb +59 -59
data/test/scripts/thai.rb +36 -36
data/test/test/basictypes.rb +431 -431
data/test/test/calendarnote.rb +86 -86
data/test/test/calendartypes.rb +97 -97
data/test/test/coordinates.rb +397 -397
data/test/test/ephemeris.rb +115 -115
data/test/test/ephemeris/moon.rb +14 -14
data/test/test/ephemeris/planets.rb +14 -14
data/test/test/ephemeris/sun.rb +14 -14
data/test/test/inspect.rb +153 -153
data/test/test/parts.rb +488 -488
data/test/test/region/armenian.rb +20 -20
data/test/test/region/bahai.rb +58 -58
data/test/test/region/balinese.rb +34 -34
data/test/test/region/chinese.rb +229 -229
data/test/test/region/christian.rb +226 -226
data/test/test/region/coptic.rb +27 -27
data/test/test/region/discordian.rb +20 -20
data/test/test/region/french.rb +33 -33
data/test/test/region/geologicalage.rb +17 -17
data/test/test/region/iran.rb +54 -54
data/test/test/region/islamic.rb +54 -54
data/test/test/region/japanese.rb +261 -261
data/test/test/region/jewish.rb +63 -63
data/test/test/region/shire.rb +58 -58
data/test/test/region/swedish.rb +45 -45
data/test/test/region/thai.rb +116 -116
data/test/test/region/tibetan.rb +30 -30
data/test/test/region/vietnamese.rb +102 -102
data/test/test/region/zoroastrian.rb +58 -58
data/test/test/timestandard.rb +81 -81
data/test/test/tmobjects.rb +402 -402
data/test/test/tmreference.rb +157 -157
metadata +4 -88

data/test/test/region/jewish.rb CHANGED Viewed

@@ -1,63 +1,63 @@
-# -*- 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 Jewish < MiniTest::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)
-      date = When.when?('4861-06-21^^Jewish')
-      assert_equal('4862-06*21', (date + When::P1Y).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 Jewish < MiniTest::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)
+      date = When.when?('4861-06-21^^Jewish')
+      assert_equal('4862-06*21', (date + When::P1Y).to_s)
+    end
+  end
+end

data/test/test/region/shire.rb CHANGED Viewed

@@ -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 Shire < MiniTest::TestCase
-    def test_shire
-      date = When.when? '2001.1.1^^Shire?time_basis=+09:00'
-      [["2001-01-01", 2451901],
-       ["2002-01-01", 2452266],
-       ["2003-01-01", 2452632],
-       ["2004-01-01", 2452997],
-       ["2005-01-01", 2453362],
-       ["2006-01-01", 2453727],
-       ["2007-01-01", 2454093],
-       ["2008-01-01", 2454458],
-       ["2009-01-01", 2454823],
-       ["2010-01-01", 2455188],
-       ["2011-01-01", 2455554],
-       ["2012-01-01", 2455919],
-       ["2013-01-01", 2456284],
-       ["2014-01-01", 2456649],
-       ["2015-01-01", 2457015],
-       ["2016-01-01", 2457380],
-       ["2017-01-01", 2457745],
-       ["2018-01-01", 2458110],
-       ["2019-01-01", 2458476],
-       ["2020-01-01", 2458841],
-       ["2021-01-01", 2459206],
-       ["2022-01-01", 2459571],
-       ["2023-01-01", 2459936],
-       ["2024-01-01", 2460302],
-       ["2025-01-01", 2460667],
-       ["2026-01-01", 2461032],
-       ["2027-01-01", 2461397],
-       ["2028-01-01", 2461763],
-       ["2029-01-01", 2462128],
-       ["2030-01-01", 2462493],
-       ["2031-01-01", 2462858],
-       ["2032-01-01", 2463224],
-       ["2033-01-01", 2463589]].each do |sample|
-        assert_equal(sample, [date.to_s, date.to_i])
-        date += When::P1Y
-      end
-      date = When.when? '2001.1.1'
-      400.times do
-        assert_equal([1,9], (When.Calendar('Shire') ^ date).cal_date[1..2])
-        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 Shire < MiniTest::TestCase
+    def test_shire
+      date = When.when? '2001.1.1^^Shire?time_basis=+09:00'
+      [["2001-01-01", 2451901],
+       ["2002-01-01", 2452266],
+       ["2003-01-01", 2452632],
+       ["2004-01-01", 2452997],
+       ["2005-01-01", 2453362],
+       ["2006-01-01", 2453727],
+       ["2007-01-01", 2454093],
+       ["2008-01-01", 2454458],
+       ["2009-01-01", 2454823],
+       ["2010-01-01", 2455188],
+       ["2011-01-01", 2455554],
+       ["2012-01-01", 2455919],
+       ["2013-01-01", 2456284],
+       ["2014-01-01", 2456649],
+       ["2015-01-01", 2457015],
+       ["2016-01-01", 2457380],
+       ["2017-01-01", 2457745],
+       ["2018-01-01", 2458110],
+       ["2019-01-01", 2458476],
+       ["2020-01-01", 2458841],
+       ["2021-01-01", 2459206],
+       ["2022-01-01", 2459571],
+       ["2023-01-01", 2459936],
+       ["2024-01-01", 2460302],
+       ["2025-01-01", 2460667],
+       ["2026-01-01", 2461032],
+       ["2027-01-01", 2461397],
+       ["2028-01-01", 2461763],
+       ["2029-01-01", 2462128],
+       ["2030-01-01", 2462493],
+       ["2031-01-01", 2462858],
+       ["2032-01-01", 2463224],
+       ["2033-01-01", 2463589]].each do |sample|
+        assert_equal(sample, [date.to_s, date.to_i])
+        date += When::P1Y
+      end
+      date = When.when? '2001.1.1'
+      400.times do
+        assert_equal([1,9], (When.Calendar('Shire') ^ date).cal_date[1..2])
+        date += When::P1Y
+      end
+    end
+  end
+end

data/test/test/region/swedish.rb CHANGED Viewed

@@ -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 CHANGED Viewed

@@ -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