when_exe 0.3.5 → 0.3.6

data/test/test/region/french.rb

@@ -10,23 +10,23 @@ 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|
+      date = When.when? '1.1.1^^FrenchRepublican'
+      [["0001-01-01", 2375840],
+       ["0002-01-01", 2376205],
+       ["0003-01-01", 2376570],
+       ["0004-01-01", 2376936],
+       ["0005-01-01", 2377301],
+       ["0006-01-01", 2377666],
+       ["0007-01-01", 2378031],
+       ["0008-01-01", 2378397],
+       ["0009-01-01", 2378762],
+       ["0010-01-01", 2379127],
+       ["0011-01-01", 2379492],
+       ["0012-01-01", 2379858],
+       ["0013-01-01", 2380223],
+       ["0014-01-01", 2380588]].each do |sample|
         assert_equal(sample, [date.to_s, date.to_i])
-        date += When.Duration('P1Y')
+        date += When::P1Y
       end
     end
   end

data/test/test/region/iran.rb

@@ -11,40 +11,40 @@ 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)
+      [["Iranian::AH1391.01.01", 2456007], # (2012)
+       ["Iranian::AH1392.01.01", 2456373], # (2013)
+       ["Iranian::AH1393.01.01", 2456738], # (2014)
+       ["Iranian::AH1394.01.01", 2457103], # (2015)
+       ["Iranian::AH1395.01.01", 2457468], # (2016)
+       ["Iranian::AH1396.01.01", 2457834], # (2017)
+       ["Iranian::AH1397.01.01", 2458199], # (2018)
+       ["Iranian::AH1398.01.01", 2458564], # (2019)
+       ["Iranian::AH1399.01.01", 2458929], # (2020)
+       ["Iranian::AH1400.01.01", 2459295], # (2021)
+       ["Iranian::AH1401.01.01", 2459660], # (2022)
+       ["Iranian::AH1402.01.01", 2460025], # (2023)
+       ["Iranian::AH1403.01.01", 2460390], # (2024)
+       ["Iranian::AH1404.01.01", 2460756], # (2025)
+       ["Iranian::AH1405.01.01", 2461121], # (2026)
+       ["Iranian::AH1406.01.01", 2461486], # (2027)
+       ["Iranian::AH1407.01.01", 2461851], # (2028)
+       ["Iranian::AH1408.01.01", 2462216], # (2029)
+       ["Iranian::AH1409.01.01", 2462582], # (2030)
+       ["Iranian::AH1410.01.01", 2462947], # (2031)
+       ["Iranian::AH1411.01.01", 2463312], # (2032)
+       ["Iranian::AH1412.01.01", 2463677], # (2033)
+       ["Iranian::AH1413.01.01", 2464043], # (2034)
+       ["Iranian::AH1414.01.01", 2464408], # (2035)
+       ["Iranian::AH1415.01.01", 2464773], # (2036)
+       ["Iranian::AH1416.01.01", 2465138], # (2037)
+       ["Iranian::AH1417.01.01", 2465504], # (2038)
+       ["Iranian::AH1418.01.01", 2465869], # (2039)
+       ["Iranian::AH1419.01.01", 2466234], # (2040)
+       ["Iranian::AH1420.01.01", 2466599], # (2041)
+       ["Iranian::AH1421.01.01", 2466965], # (2042)
+       ["Iranian::AH1422.01.01", 2467330], # (2043)
+       ["Iranian::AH1423.01.01", 2467695], # (2044)
+       ["Iranian::AH1424.01.01", 2468060]  # (2045)
       ].each do |sample|
         assert_equal(sample, [date.to_s, date.to_i])
         date += When.Duration('P1Y')

data/test/test/region/japanese.rb

@@ -10,6 +10,8 @@ module Test
 
   class Japanese < Test::Unit::TestCase
 
+    include When::CalendarNote::Japanese::Index
+
     def test_japanese_epoch
       eras = When.Resource('_e:Japanese')
 
@@ -149,21 +151,21 @@ module Test
          2449525..2449526].each do |range|
           range.each do |jdn|
             (When.when?(jdn) ^ When.CalendarEra('Japanese')).each do |date|
-              dates = When.CalendarNote('JapaneseNote').send(:_to_date_for_note, date)
+              dates = When.CalendarNote('Japanese').send(:_to_date_for_note, date)
               date  = When.when?(dates.o_date.to_cal_date.to_s,
                                {:clock=>dates.s_date.frame.time_basis})
               long  = dates.cal4note.s_terms.position(date)
               notes = date.notes(:indices => When::DAY,
-                                 :notes   => (13<<9|1<<48|1<<71),
+                                 :notes   => MD廿四節気|MD七十二候|MD六十卦|MD没|MD往亡,
                                  :locale  => 'ja').simplify[:value].compact
               result << [date.to_m17n/'ja', notes]
             end
           end
         end
         assert_equal(sample.shift, result)
-        When::CalendarNote::JapaneseNote::SolarTerms.send(:patch=, {})
+        When::CalendarNote::Japanese::SolarTerms.send(:patch=, {})
       end
-      When::CalendarNote::JapaneseNote::SolarTerms.send(:patch=, nil)
+      When::CalendarNote::Japanese::SolarTerms.send(:patch=, nil)
     end
 
     def test__lunar_phases

data/test/test/region/m17n.rb

@@ -11,7 +11,7 @@ module Test
   class M17n < Test::Unit::TestCase
 
     First = [
-      ["CalendarTerms", "CalendarTerms", ""],
+      ["Calendar", "Calendar", nil],
       ["Month",      "月", "http://ja.wikipedia.org/wiki/%E6%9C%88_(%E6%9A%A6)"],
       ["Month",      "月", "http://ja.wikipedia.org/wiki/%E6%9C%88_(%E6%9A%A6)"],
       ["January",   "1月", "http://ja.wikipedia.org/wiki/1%E6%9C%88"]
@@ -33,7 +33,7 @@ module Test
     ]
 
     def test__m17n_1
-      ['examples/Terms.m17n', '_m:CalendarTerms'].each do |head|
+      ['examples/Terms.m17n', '_m:Calendar'].each do |head|
         When.Resource(head)
 
         # pp When::Parts::Resource[head].child.map {|v| v.label}
@@ -71,8 +71,9 @@ module Test
 
       date = When.when?('CE2010.4.12')
       era  = When.era('CE')[0]
-    # assert_equal(Second.map {|v| v[0]}, era.m17n('[::_m:CalendarTerms::Month::*]').map {|v| v.to_s})
-      assert_equal(Second.map {|v| v[0]}, When.m17n('[::_m:CalendarTerms::Month::*]').map {|v| v.to_s})
+      assert_raises(NoMethodError) {When.m17n('[::_m:Calendar::Month::*]').map {|v| v.to_s}}
+      When.Resource('_m:Calendar::Month::*')
+      assert_equal(Second.map {|v| v[0]}, When.m17n('[::_m:Calendar::Month::*]').map {|v| v.to_s})
       assert_equal(["Accession", true, "http://hosi.org/When/BasicTypes/M17n/EpochEvents::Accession"],
         [era['::_m:EpochEvents::Accession'].to_s,
          era['::_m:EpochEvents::Accession'].registered?,
@@ -101,21 +102,21 @@ module Test
     end
 
     def test__m17n_3
-      january = When.Resource('_m:CalendarTerms::Month::January')
+      january = When.Resource('_m:Calendar::Month::January')
       [['en', 'January'], ['ja', '1月'], ['fr', 'janvier']].each do |sample|
         assert_equal(sample[1], january.translate(sample[0]))
       end
     end
 
     def test__m17n_4
-      january = When.Resource('_m:CalendarTerms::Month::January')
+      january = When.Resource('_m:Calendar::Month::January')
       [['en', 'January'], ['ja', '1月'], ['fr', 'janvier']].each do |sample|
         assert_equal(sample[1], january.translate(sample[0]))
       end
     end
 
     def test__m17n_5
-      month = When.Resource('_m:CalendarTerms::Month')
+      month = When.Resource('_m:Calendar::Month')
       [['en', 'Month'], ['ja', '月'], ['fr', 'Mois']].each do |sample|
         assert_equal(sample[1], month.translate(sample[0]))
       end

data/test/test/region/mayan.rb

@@ -11,28 +11,28 @@ module Test
   class Mayan < Test::Unit::TestCase
     def test__mayan_epoch
       # No offset
-      [['PHLC13.0.0.0.0', 'PHLC13(0000).00.00.00.00', 584283],
-       ['HLC0.0.0.0.1',   'HLC00.00.00.00.01',        584284],
-       ['HLC13.0.0.0.0',  'HLC13.00.00.00.00',       2456283],
-       ['HLC13.0.0.0.1',  'NLC00(0013).00.00.00.01', 2456284]].each do |sample|
+      [['PHLC13.0.0.0.0', 'PHLC13(00).00.00.00.00',  584283],
+       ['HLC0.0.0.0.1',   'HLC00.00.00.00.01',       584284],
+       ['HLC13.0.0.0.0',  'HLC13.00.00.00.00',      2456283],
+       ['HLC13.0.0.0.1',  'NLC00(13).00.00.00.01',  2456284]].each do |sample|
         date = When.when?(sample.shift)
         assert_equal(sample, [date.to_s, date.to_i])
       end
 
       # offset 0B
-      [['LongCount?Epoch=0D::PHLC13.0.0.0.0', 'LongCount?Epoch=0D::PHLC13(0000).00.00.00.00', 584283],
-       ['LongCount?Epoch=0D::HLC0.0.0.0.1',   'LongCount?Epoch=0D::HLC00.00.00.00.01',        584284],
-       ['LongCount?Epoch=0D::HLC13.0.0.0.0',  'LongCount?Epoch=0D::HLC13.00.00.00.00',       2456283],
-       ['LongCount?Epoch=0D::HLC13.0.0.0.1',  'LongCount?Epoch=0D::NLC00(0013).00.00.00.01', 2456284]].each do |sample|
+      [['LongCount?Epoch=0D::PHLC13.0.0.0.0', 'LongCount?Epoch=0D::PHLC13(00).00.00.00.00',  584283],
+       ['LongCount?Epoch=0D::HLC0.0.0.0.1',   'LongCount?Epoch=0D::HLC00.00.00.00.01',       584284],
+       ['LongCount?Epoch=0D::HLC13.0.0.0.0',  'LongCount?Epoch=0D::HLC13.00.00.00.00',      2456283],
+       ['LongCount?Epoch=0D::HLC13.0.0.0.1',  'LongCount?Epoch=0D::NLC00(13).00.00.00.01',  2456284]].each do |sample|
         date = When.when?(sample.shift)
         assert_equal(sample, [date.to_s, date.to_i])
       end
 
       # offset 2B
-      [['LongCount?Epoch=2D::PHLC13.0.0.0.0', 'LongCount?Epoch=2D::PHLC13(0000).00.00.00.00', 584285],
-       ['LongCount?Epoch=2D::HLC0.0.0.0.1',   'LongCount?Epoch=2D::HLC00.00.00.00.01',        584286],
-       ['LongCount?Epoch=2D::HLC13.0.0.0.0',  'LongCount?Epoch=2D::HLC13.00.00.00.00',       2456285],
-       ['LongCount?Epoch=2D::HLC13.0.0.0.1',  'LongCount?Epoch=2D::NLC00(0013).00.00.00.01', 2456286]].each do |sample|
+      [['LongCount?Epoch=2D::PHLC13.0.0.0.0', 'LongCount?Epoch=2D::PHLC13(00).00.00.00.00',  584285],
+       ['LongCount?Epoch=2D::HLC0.0.0.0.1',   'LongCount?Epoch=2D::HLC00.00.00.00.01',       584286],
+       ['LongCount?Epoch=2D::HLC13.0.0.0.0',  'LongCount?Epoch=2D::HLC13.00.00.00.00',      2456285],
+       ['LongCount?Epoch=2D::HLC13.0.0.0.1',  'LongCount?Epoch=2D::NLC00(13).00.00.00.01',  2456286]].each do |sample|
         date = When.when?(sample.shift)
         assert_equal(sample, [date.to_s, date.to_i])
       end

data/test/test/region/residue.rb

@@ -32,7 +32,7 @@ module Test
     end
 
     def test__kanshi
-      ['_co:CommonResidue', 'examples/Residue.m17n'].each do |iri|
+      ['_co:Common', 'examples/Residue.m17n'].each do |iri|
         assert_equal("Week", When.Resource(iri + '::Week').label)
         assert_equal("Monday", When.Resource(iri + '::Week::Monday').label)
         assert_equal(7, When.Resource(iri + '::Week::Friday').divisor)
@@ -92,24 +92,40 @@ module Test
     def test__epoch_in_CE
       cals  = [
         'Gregorian',
+      # 'Dee',
+      # 'DeeCecil',
         'Coptic?Epoch=284Y',
         'Coptic?Epoch=8Y',
         'IndianNationalSolar',
+        'Nanakshahi',
+        'RevisedBengali',
         'HinduSolar?type=SBV',
         'HinduSolar?type=SBVZ',
         'HinduSolar?type=SBS',
         'HinduSolar?type=SBSZ',
+        'HinduSolar?type=SBB',
+        'HinduSolar?type=SBBZ',
+        'HinduSolar?type=SBH',
+        'HinduSolar?type=SBHZ',
      #  'HinduLuniSolar?type=SBVA',
      #  'HinduLuniSolar?type=SBVZA',
      #  'HinduLuniSolar?type=SBSA',
      #  'HinduLuniSolar?type=SBSZA',
-        'SolarHejri',
+     #  'HinduLuniSolar?type=SBB',
+     #  'HinduLuniSolar?type=SBBZ',
+     #  'HinduLuniSolar?type=SBH',
+     #  'HinduLuniSolar?type=SBHZ',
+        'FrenchRepublican',
+        'Jalali',
+        'SolarHijri',
+        'SolarHijriAlgorithmic',
+        'Borji',
         'Jewish',
-        'ThaiB',
+        'Thai',
       # 'ThaiC',
         'Tibetan',
       ]
-      eto   = When.Resource('_co:CommonResidue::干支').to('year')
+      eto   = When.Resource('_co:Common::干支').to('year')
       today = When.when?('2012-06-13')
       assert_equal([[28, 246778, 246778]],
         cals.map { |cal|

data/test/test/region/thai.rb

@@ -11,7 +11,7 @@ module Test
   class Thai < Test::Unit::TestCase
     def test_thai_date
 
-      date = When.Resource('_c:ThaiC') ^ When.when?('2011-05-16')
+      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|
@@ -33,7 +33,7 @@ module Test
         date += When.Duration('P1M')
       end
       
-      date = When.Resource('_c:ThaiB') ^ When.when?('2011-05-16')
+      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|
@@ -85,9 +85,31 @@ module Test
         date += When.Duration('P1M')
       end
 
-      date = When.when?('1374-08&02', {:frame=>When.Resource('_c:ThaiB')})
+      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/yerm.rb

@@ -0,0 +1,146 @@
+# -*- 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 Test
+
+  class Yerm < Test::Unit::TestCase
+    Abbrs    = [[], 21, [21,14], [21,14, 5]]
+    Crecents = %w<
+      -1(02(03(04
+      20(02(03(04
+      -1-02(03(04
+      20-02(03(04
+      -1-02(03
+      20-02(03
+      -1-02
+      20-02
+      -1-
+      20-
+      -1
+         02(03(04
+            03(04
+               04
+     04)03)02)-1
+     04)03)02)20
+     04)03)02--1
+     04)03)02-20
+        03)02--1
+        03)02-20
+           02--1
+     04)03)02
+     04)03
+    >
+    Results = [
+      [[], "-1(02(03(04", "-1-02-03-04"],
+      [[], "20(02(03(04", "20-02-03-04"],
+      [[], "-1-02(03(04", "-1-02-03-04"],
+      [[], "20-02(03(04", "20-02-03-04"],
+      [[], "-1-02(03", "-1-02-03"],
+      [[], "20-02(03", "20-02-03"],
+      [[], "-1-02", "-1-02"],
+      [[], "20-02", "20-02"],
+      [[], "-1-", "-1"],
+      [[], "20-", "20"],
+      [[], "-1", "-1"],
+      [[], "02(03(04", :error],
+      [[], "03(04", :error],
+      [[], "04", :error],
+      [[], "04)03)02)-1", "-1-02-03-04"],
+      [[], "04)03)02)20", "20-02-03-04"],
+      [[], "04)03)02--1", "-1-02-03-04"],
+      [[], "04)03)02-20", "20-02-03-04"],
+      [[], "03)02--1", "-1-02-03"],
+      [[], "03)02-20", "20-02-03"],
+      [[], "02--1", "-1-02"],
+      [[], "04)03)02", :error],
+      [[], "04)03", :error],
+      [21, "-1(02(03(04", "-1-02-03-04"],
+      [21, "20(02(03(04", "20-02-03-04"],
+      [21, "-1-02(03(04", "-1-02-03-04"],
+      [21, "20-02(03(04", "20-02-03-04"],
+      [21, "-1-02(03", "-1-02-03"],
+      [21, "20-02(03", "20-02-03"],
+      [21, "-1-02", "-1-02"],
+      [21, "20-02", "20-02"],
+      [21, "-1-", "-1"],
+      [21, "20-", "20"],
+      [21, "-1", "-1"],
+      [21, "02(03(04", "21-02-03-04"],
+      [21, "03(04", :error],
+      [21, "04", :error],
+      [21, "04)03)02)-1", "-1-02-03-04"],
+      [21, "04)03)02)20", "20-02-03-04"],
+      [21, "04)03)02--1", "-1-02-03-04"],
+      [21, "04)03)02-20", "20-02-03-04"],
+      [21, "03)02--1", "-1-02-03"],
+      [21, "03)02-20", "20-02-03"],
+      [21, "02--1", "-1-02"],
+      [21, "04)03)02", "21-02-03-04"],
+      [21, "04)03", :error],
+      [[21, 14], "-1(02(03(04", "-1-02-03-04"],
+      [[21, 14], "20(02(03(04", "20-02-03-04"],
+      [[21, 14], "-1-02(03(04", "-1-02-03-04"],
+      [[21, 14], "20-02(03(04", "20-02-03-04"],
+      [[21, 14], "-1-02(03", "-1-02-03"],
+      [[21, 14], "20-02(03", "20-02-03"],
+      [[21, 14], "-1-02", "-1-02"],
+      [[21, 14], "20-02", "20-02"],
+      [[21, 14], "-1-", "-1"],
+      [[21, 14], "20-", "20"],
+      [[21, 14], "-1", "-1"],
+      [[21, 14], "02(03(04", "21-02-03-04"],
+      [[21, 14], "03(04", "21-14-03-04"],
+      [[21, 14], "04", :error],
+      [[21, 14], "04)03)02)-1", "-1-02-03-04"],
+      [[21, 14], "04)03)02)20", "20-02-03-04"],
+      [[21, 14], "04)03)02--1", "-1-02-03-04"],
+      [[21, 14], "04)03)02-20", "20-02-03-04"],
+      [[21, 14], "03)02--1", "-1-02-03"],
+      [[21, 14], "03)02-20", "20-02-03"],
+      [[21, 14], "02--1", "-1-02"],
+      [[21, 14], "04)03)02", "21-02-03-04"],
+      [[21, 14], "04)03", "21-14-03-04"],
+      [[21, 14, 5], "-1(02(03(04", "-1-02-03-04"],
+      [[21, 14, 5], "20(02(03(04", "20-02-03-04"],
+      [[21, 14, 5], "-1-02(03(04", "-1-02-03-04"],
+      [[21, 14, 5], "20-02(03(04", "20-02-03-04"],
+      [[21, 14, 5], "-1-02(03", "-1-02-03"],
+      [[21, 14, 5], "20-02(03", "20-02-03"],
+      [[21, 14, 5], "-1-02", "-1-02"],
+      [[21, 14, 5], "20-02", "20-02"],
+      [[21, 14, 5], "-1-", "-1"],
+      [[21, 14, 5], "20-", "20"],
+      [[21, 14, 5], "-1", "-1"],
+      [[21, 14, 5], "02(03(04", "21-02-03-04"],
+      [[21, 14, 5], "03(04", "21-14-03-04"],
+      [[21, 14, 5], "04", "21-14-5-04"],
+      [[21, 14, 5], "04)03)02)-1", "-1-02-03-04"],
+      [[21, 14, 5], "04)03)02)20", "20-02-03-04"],
+      [[21, 14, 5], "04)03)02--1", "-1-02-03-04"],
+      [[21, 14, 5], "04)03)02-20", "20-02-03-04"],
+      [[21, 14, 5], "03)02--1", "-1-02-03"],
+      [[21, 14, 5], "03)02-20", "20-02-03"],
+      [[21, 14, 5], "02--1", "-1-02"],
+      [[21, 14, 5], "04)03)02", "21-02-03-04"],
+      [[21, 14, 5], "04)03", "21-14-03-04"]]
+
+    def test__parse_crecents
+      results = []
+      Abbrs.each do |abbr|
+        Crecents.each do |crecent|
+          begin
+            results << [abbr, crecent, When::CalendarTypes::Yerm.parse(crecent, abbr)]
+          rescue
+            results << [abbr, crecent, :error]
+          end
+        end
+      end
+      assert_equal(Results, results)
+    end
+  end
+end