when_exe 0.4.1 → 0.4.2

data/test/test/region/indian.rb

@@ -1,85 +1,90 @@
-# -*- 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 Indian < MiniTest::TestCase
-    Sample1 = [
-      "1913-03-01-", "1913-03-02-", "1913-03-03-", "1913-03-04-", "1913-03-05%", "1913-03-07-", "1913-03-08-", "1913-03-09-",
-      "1913-03-10-", "1913-03-11-", "1913-03-12-", "1913-03-13-", "1913-03-14-", "1913-03-15-", "1913-03-15=", "1913-03<01-",
-      "1913-03<02-", "1913-03<03-", "1913-03<04-", "1913-03<05-", "1913-03<06-", "1913-03<07-", "1913-03<08-", "1913-03<09-",
-      "1913-03<10-", "1913-03<11-", "1913-03<12-", "1913-03<13%", "1913-03<15-", "1913-04-01-", "1913-04-02-", "1913-04-03-",
-      "1913-04-04-", "1913-04-05-", "1913-04-06-", "1913-04-07-", "1913-04-08-", "1913-04-09-", "1913-04-10-", "1913-04-11-",
-      "1913-04-12-", "1913-04-13-", "1913-04-14-", "1913-04-15-", "1913-04<01-", "1913-04<02-", "1913-04<03-", "1913-04<04-",
-      "1913-04<05-", "1913-04<06-", "1913-04<07-", "1913-04<08-", "1913-04<09-", "1913-04<10-", "1913-04<11-", "1913-04<12-",
-      "1913-04<13-", "1913-04<14-", "1913-04<15%", "1913-05-02-"
-    ]
-
-    Sample2 = [
-      "1913-04-01-", "1913-04-02-", "1913-04-03-", "1913-04-04-", "1913-04-05%", "1913-04-07-", "1913-04-08-", "1913-04-09-"
-    ]
-
-    def test_indian_date_1
-      cc     = When.Calendar('HinduLuniSolar')
-      date   = When.when?('1913-03-01', {:frame=>cc})
-      assert_equal("Jyaiṣṭha Śuklapakṣa", date.name('month').to_s)
-      start  = 2448421
-      Sample1.size.times do |i|
-        assert_equal([Sample1[i], start+i], [date.to_s, date.to_i])
-        date += When.Duration('P1D')
-      end
-    end
-
-    def test_indian_date_2
-      cc     = When.Calendar('HinduLuniSolar?start_month=4')
-      date   = When.when?('1913-04-01', {:frame=>cc})
-      assert_equal("Jyaiṣṭha Śuklapakṣa", date.name('month').to_s)
-      start  = 2448421
-      Sample2.size.times do |i|
-        assert_equal([Sample2[i], start+i], [date.to_s, date.to_i])
-        date += When.Duration('P1D')
-      end
-    end
-
-    def test_indian_date_3
-      cc     = When.Calendar('HinduSolar?type=SBS')
-      date   = When.when?('1913-01-01', {:frame=>cc})
-      assert_equal([2448361, "1913-01-01", "1991-04-14"], [date.to_i, date.to_s, date.to_date.to_s])
-      dates   = When::CalendarNote::HinduNote::Dates.new(date)
-      assert_equal(2448361, dates.to_i)
-      assert_equal('Prajāpati', When.CalendarNote('HinduNote').samvatsara(dates)/'en')
-    end
-
-    def test_indian_date_4
-      date = When.when? '2001.2.28'
-      assert_equal('1922-12-09', (When::IndianNationalSolar ^ date).to_s)
-      399.times do
-        date += When::P1Y
-        assert_equal([12,9], (When::IndianNationalSolar ^ date).cal_date[-2..-1])
-      end
-    end
-
-    def test_indian_date_5
-      date = When.when? '2014.3.14'
-      assert_equal('0546-01-01', (When::Nanakshahi ^ date).to_s)
-      399.times do
-        date += When::P1Y
-        assert_equal([1,1], (When::Nanakshahi ^ date).cal_date[-2..-1])
-      end
-    end
-
-    def test_indian_date_6
-      date = When.when? '2014.4.14'
-      assert_equal('1421-01-01', (When::RevisedBengali ^ date).to_s)
-      399.times do
-        date += When::P1Y
-        assert_equal([1,1], (When::RevisedBengali ^ date).cal_date[-2..-1])
-      end
-    end
-  end
-end
+# -*- coding: utf-8 -*-
+=begin
+  Copyright (C) 2011-2015 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 Indian < MiniTest::TestCase
+    Sample1 = [
+      "1913-03-01-", "1913-03-02-", "1913-03-03-", "1913-03-04-", "1913-03-05%", "1913-03-07-", "1913-03-08-", "1913-03-09-",
+      "1913-03-10-", "1913-03-11-", "1913-03-12-", "1913-03-13-", "1913-03-14-", "1913-03-15-", "1913-03-15=", "1913-03<01-",
+      "1913-03<02-", "1913-03<03-", "1913-03<04-", "1913-03<05-", "1913-03<06-", "1913-03<07-", "1913-03<08-", "1913-03<09-",
+      "1913-03<10-", "1913-03<11-", "1913-03<12-", "1913-03<13%", "1913-03<15-", "1913-04-01-", "1913-04-02-", "1913-04-03-",
+      "1913-04-04-", "1913-04-05-", "1913-04-06-", "1913-04-07-", "1913-04-08-", "1913-04-09-", "1913-04-10-", "1913-04-11-",
+      "1913-04-12-", "1913-04-13-", "1913-04-14-", "1913-04-15-", "1913-04<01-", "1913-04<02-", "1913-04<03-", "1913-04<04-",
+      "1913-04<05-", "1913-04<06-", "1913-04<07-", "1913-04<08-", "1913-04<09-", "1913-04<10-", "1913-04<11-", "1913-04<12-",
+      "1913-04<13-", "1913-04<14-", "1913-04<15%", "1913-05-02-"
+    ]
+
+    Sample2 = [
+      "1913-04-01-", "1913-04-02-", "1913-04-03-", "1913-04-04-", "1913-04-05%", "1913-04-07-", "1913-04-08-", "1913-04-09-"
+    ]
+
+    def test_indian_date_1
+      cc     = When.Calendar('HinduLuniSolar')
+      date   = When.when?('1913-03-01', {:frame=>cc})
+      assert_equal("Jyaiṣṭha Śuklapakṣa", date.name('month').to_s)
+      start  = 2448421
+      Sample1.size.times do |i|
+        assert_equal([Sample1[i], start+i], [date.to_s, date.to_i])
+        date += When.Duration('P1D')
+      end
+    end
+
+    def test_indian_date_2
+      cc     = When.Calendar('HinduLuniSolar?start_month=4')
+      date   = When.when?('1913-04-01', {:frame=>cc})
+      assert_equal("Jyaiṣṭha Śuklapakṣa", date.name('month').to_s)
+      start  = 2448421
+      Sample2.size.times do |i|
+        assert_equal([Sample2[i], start+i], [date.to_s, date.to_i])
+        date += When.Duration('P1D')
+      end
+    end
+
+    def test_indian_date_3
+      cc     = When.Calendar('HinduSolar?type=SBS')
+      date   = When.when?('1913-01-01', {:frame=>cc})
+      assert_equal([2448361, "1913-01-01", "1991-04-14"], [date.to_i, date.to_s, date.to_date.to_s])
+      dates   = When::CalendarNote::HinduNote::Dates.new(date)
+      assert_equal(2448361, dates.to_i)
+      assert_equal('Prajāpati', When.CalendarNote('HinduNote').samvatsara(dates)/'en')
+    end
+
+    def test_indian_date_4
+      date = When.when? '2001.2.28'
+      assert_equal('1922-12-09', (When::IndianNationalSolar ^ date).to_s)
+      399.times do
+        date += When::P1Y
+        assert_equal([12,9], (When::IndianNationalSolar ^ date).cal_date[-2..-1])
+      end
+    end
+
+    def test_indian_date_5
+      date = When.when? '2014.3.14'
+      assert_equal('0546-01-01', (When::Nanakshahi ^ date).to_s)
+      399.times do
+        date += When::P1Y
+        assert_equal([1,1], (When::Nanakshahi ^ date).cal_date[-2..-1])
+      end
+    end
+
+    def test_indian_date_6
+      date = When.when? '2014.4.14'
+      assert_equal('1421-01-01', (When::RevisedBengali ^ date).to_s)
+      399.times do
+        date += When::P1Y
+        assert_equal([1,1], (When::RevisedBengali ^ date).cal_date[-2..-1])
+      end
+    end
+
+    def test_indian_date_7
+      date = When.when? '1936-11%3C08-%5E%5eHinduLuniSolar?note=HinduNote&location=(_co:Indian::Chennai)&start_month=5&type=SBSA'
+      assert_equal('1936-11<08-', date.to_s)
+    end
+  end
+end

data/test/test/region/m17n.rb

@@ -12,9 +12,9 @@ module MiniTest
 
     First = [
       ["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"]
+      ["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"]
     ]
 
     Second = [
@@ -117,7 +117,7 @@ module MiniTest
 
     def test__m17n_5
       month = When.Resource('_m:Calendar::Month')
-      [['en', 'Month'], ['ja', '月'], ['fr', 'Mois']].each do |sample|
+      [['en', 'month name'], ['ja', '月の名前']].each do |sample|
         assert_equal(sample[1], month.translate(sample[0]))
       end
     end
@@ -133,7 +133,7 @@ module MiniTest
 
        ['1985-1-1',
          {:calendar=>["Gregorian"], :sdn=>2446067, :cal_date=>[1985, 1, 1],
-          :notes=>[[{:note=>"Month", :value=>"January"}],[{:note=>"Week", :value=>"Tuesday(1)"}]], :locale=>'en'}],
+          :notes=>[[{:note=>"month name", :value=>"January"}],[{:note=>"Week", :value=>"Tuesday(1)"}]], :locale=>'en'}],
 
        ['明治7.5.7',
          {:calendar=>["明治",1867], :sdn=>2405651, :cal_date=>[7, 5, 7],
@@ -153,7 +153,7 @@ module MiniTest
 
        ['CE-2010.06.08T12:00:00+09:00',
          {:calendar=>["BeforeCommonEra", 1, true], :sdn=>987064, :cal_date=>[-2011, 6, 8],
-          :notes=>[[{:note=>"Month", :value=>"June"}],[]], :locale=>'en',
+          :notes=>[[{:note=>"month name", :value=>"June"}],[]], :locale=>'en',
           :clk_time=>[987064, 12, 0, 0]}],
 
        [11,
@@ -184,7 +184,7 @@ module MiniTest
                     :Precision=>0,
                     :Sdn=>2456388,
                     :Calendar=>["Gregorian"],
-                    :Notes=>[[{:Note=>"Month", :Value=>"April"}],
+                    :Notes=>[[{:Note=>"month name", :Value=>"April"}],
                              [{:Note=>"Week", :Value=>"Friday(4)"}]],
                     :CalDate=>[2013, 4, 5]},
                     When.when?('2013-4-5').to_h(:method=>:to_m17n, :locale=>'en', :camel=>true))

data/test/test/region/mayan.rb

@@ -1,195 +1,195 @@
-# -*- 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 Mayan < MiniTest::TestCase
-    def test__mayan_epoch
-      # No offset
-      [['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(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(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
-    end
-
-    def test__mayan_period
-      date   = When.when?('HLC0.0.0.0.1')
-      period = When.Duration('P2X1X3Y4M5D')
-      assert_equal('HLC02.01.03.04.06', (date + period).to_s)
-    end
-
-    def test__haab
-      # No offset
-      haab = When.Resource("_co:Mayan::Haab'")
-      assert_equal("ハアブ", haab.label.translate('ja'))
-      assert_equal("http://en.wikipedia.org/wiki/Haab'", haab.label.reference)
-      pop = When.Resource("_co:Mayan::Haab'::Pop")
-      assert_equal("Pop", pop.label.translate('en'))
-      assert_equal("http://en.wikipedia.org/wiki/File:Maya-Pop.jpg", pop.label.reference)
-      date0 = When.when?('2011-05-16T12:34:56Z')
-      sample = [
-        "2012-04-12T12:34:56Z",
-        "2012-04-13T12:34:56Z",
-        "2012-04-14T12:34:56Z"
-      ]
-      [10,11,12].each do |i|
-        assert_equal(sample.shift, (date0 & pop[i]).to_s)
-      end
-      assert_equal(42, When.when?('2011-05-15') % haab)
-      h = haab % When.when?('2011-05-15')
-      assert_equal(["Sip", 2], [h.label.to_s, h.difference])
-
-      # offset 0B
-      haab = When.Resource("_co:Mayan?Epoch=0D::Haab'")
-      assert_equal("ハアブ", haab.label.translate('ja'))
-      assert_equal("http://en.wikipedia.org/wiki/Haab'", haab.label.reference)
-      pop = When.Resource("_co:Mayan?Epoch=0D::Haab'::Pop")
-      assert_equal("Pop", pop.label.translate('en'))
-      assert_equal("http://en.wikipedia.org/wiki/File:Maya-Pop.jpg", pop.label.reference)
-      date0 = When.when?('2011-05-16T12:34:56Z')
-      sample = [
-        "2012-04-12T12:34:56Z",
-        "2012-04-13T12:34:56Z",
-        "2012-04-14T12:34:56Z"
-      ]
-      [10,11,12].each do |i|
-        assert_equal(sample.shift, (date0 & pop[i]).to_s)
-      end
-      assert_equal(42, When.when?('2011-05-15') % haab)
-      h = haab % When.when?('2011-05-15')
-      assert_equal(["Sip", 2], [h.label.to_s, h.difference])
-
-      # offset 2B
-      haab = When.Resource("_co:Mayan?Epoch=2D::Haab'")
-      assert_equal("ハアブ", haab.label.translate('ja'))
-      assert_equal("http://en.wikipedia.org/wiki/Haab'", haab.label.reference)
-      pop = When.Resource("_co:Mayan?Epoch=2D::Haab'::Pop")
-      assert_equal("Pop", pop.label.translate('en'))
-      assert_equal("http://en.wikipedia.org/wiki/File:Maya-Pop.jpg", pop.label.reference)
-      date0 = When.when?('2011-05-16T12:34:56Z')
-      sample = [
-        "2012-04-14T12:34:56Z",
-        "2012-04-15T12:34:56Z",
-        "2012-04-16T12:34:56Z"
-      ]
-      [10,11,12].each do |i|
-        assert_equal(sample.shift, (date0 & pop[i]).to_s)
-      end
-      assert_equal(42, When.when?('2011-05-17') % haab)
-      h = haab % When.when?('2011-05-17')
-      assert_equal(["Sip", 2], [h.label.to_s, h.difference])
-    end
-
-    def test__tzolkin
-      # No offset
-      trecena = When.Resource("_co:Mayan::Trecena")
-      assert_equal("トレセナ", trecena.label.translate('ja'))
-      assert_equal("http://en.wikipedia.org/wiki/Trecena", trecena.label.reference)
-      assert_equal(2, When.when?('2011-05-15') % trecena)
-
-
-      tzolkin = When.Resource("_co:Mayan::Tzolk'in")
-      assert_equal("ツォルキン", tzolkin.label.translate('ja'))
-      assert_equal("http://en.wikipedia.org/wiki/Tzolk'in", tzolkin.label.reference)
-      ajaw = When.Resource("_co:Mayan::Tzolk'in::Ajaw")
-      assert_equal("Ajaw", ajaw.label.translate('en'))
-      assert_equal("http://en.wikipedia.org/wiki/File:MAYA-g-log-cal-D20-Ajaw-cdxW.png", ajaw.label.reference('alias'))
-      date0 = When.when?('2011-05-16T12:34:56Z')
-      sample = [
-        "2011-05-21T12:34:56Z",
-        "2011-05-21T12:34:56Z",
-        "2011-05-21T12:34:56Z"
-      ]
-      [10,11,12].each do |i|
-        assert_equal(sample.shift, (date0 & ajaw).to_s)
-      end
-      assert_equal(13, When.when?('2011-05-15') % tzolkin)
-      assert_equal('Ix', (tzolkin % When.when?('2011-05-15')).label.to_s)
-      if ::Object.const_defined?(:Date) && Date.respond_to?(:civil)
-        assert_equal('Ix', (tzolkin % Date.new(2011,5,15)).label.to_s)
-      end
-
-      # offset 0B
-      trecena = When.Resource("_co:Mayan?Epoch=0D::Trecena")
-      assert_equal("トレセナ", trecena.label.translate('ja'))
-      assert_equal("http://en.wikipedia.org/wiki/Trecena", trecena.label.reference)
-      assert_equal(2, When.when?('2011-05-15') % trecena)
-
-
-      tzolkin = When.Resource("_co:Mayan?Epoch=0D::Tzolk'in")
-      assert_equal("ツォルキン", tzolkin.label.translate('ja'))
-      assert_equal("http://en.wikipedia.org/wiki/Tzolk'in", tzolkin.label.reference)
-      ajaw = When.Resource("_co:Mayan?Epoch=0D::Tzolk'in::Ajaw")
-      assert_equal("Ajaw", ajaw.label.translate('en'))
-      assert_equal("http://en.wikipedia.org/wiki/File:MAYA-g-log-cal-D20-Ajaw-cdxW.png", ajaw.label.reference('alias'))
-      date0 = When.when?('2011-05-16T12:34:56Z')
-      sample = [
-        "2011-05-21T12:34:56Z",
-        "2011-05-21T12:34:56Z",
-        "2011-05-21T12:34:56Z"
-      ]
-      [10,11,12].each do |i|
-        assert_equal(sample.shift, (date0 & ajaw).to_s)
-      end
-      assert_equal(13, When.when?('2011-05-15') % tzolkin)
-      assert_equal('Ix', (tzolkin % When.when?('2011-05-15')).label.to_s)
-      if ::Object.const_defined?(:Date) && Date.respond_to?(:civil)
-        assert_equal('Ix', (tzolkin % Date.new(2011,5,15)).label.to_s)
-      end
-
-      # offset 2B
-      trecena = When.Resource("_co:Mayan?Epoch=2D::Trecena")
-      assert_equal("トレセナ", trecena.label.translate('ja'))
-      assert_equal("http://en.wikipedia.org/wiki/Trecena", trecena.label.reference)
-      assert_equal(2, When.when?('2011-05-17') % trecena)
-
-
-      tzolkin = When.Resource("_co:Mayan?Epoch=2D::Tzolk'in")
-      assert_equal("ツォルキン", tzolkin.label.translate('ja'))
-      assert_equal("http://en.wikipedia.org/wiki/Tzolk'in", tzolkin.label.reference)
-      ajaw = When.Resource("_co:Mayan?Epoch=2D::Tzolk'in::Ajaw")
-      assert_equal("Ajaw", ajaw.label.translate('en'))
-      assert_equal("http://en.wikipedia.org/wiki/File:MAYA-g-log-cal-D20-Ajaw-cdxW.png", ajaw.label.reference('alias'))
-      date0 = When.when?('2011-05-16T12:34:56Z')
-      sample = [
-        "2011-05-23T12:34:56Z",
-        "2011-05-23T12:34:56Z",
-        "2011-05-23T12:34:56Z"
-      ]
-      [10,11,12].each do |i|
-        assert_equal(sample.shift, (date0 & ajaw).to_s)
-      end
-      assert_equal(13, When.when?('2011-05-17') % tzolkin)
-      assert_equal('Ix', (tzolkin % When.when?('2011-05-17')).label.to_s)
-      if ::Object.const_defined?(:Date) && Date.respond_to?(:civil)
-        assert_equal('Ix', (tzolkin % Date.new(2011,5,17)).label.to_s)
-      end
-    end
-  end
-end
+# -*- coding: utf-8 -*-
+=begin
+  Copyright (C) 2011-2015 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 Mayan < MiniTest::TestCase
+    def test__mayan_epoch
+      # No offset
+      [['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(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(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
+    end
+
+    def test__mayan_period
+      date   = When.when?('HLC0.0.0.0.1')
+      period = When.Duration('P2X1X3Y4M5D')
+      assert_equal('HLC02.01.03.04.06', (date + period).to_s)
+    end
+
+    def test__haab
+      # No offset
+      haab = When.Resource("_co:Mayan::Haab'")
+      assert_equal("ハアブ", haab.label.translate('ja'))
+      assert_equal("http://en.wikipedia.org/wiki/Haab'", haab.label.reference)
+      pop = When.Resource("_co:Mayan::Haab'::Pop")
+      assert_equal("Pop", pop.label.translate('en'))
+      assert_equal("http://en.wikipedia.org/wiki/File:Maya-Pop.jpg", pop.label.reference)
+      date0 = When.when?('2011-05-16T12:34:56Z')
+      sample = [
+        "2012-04-12T12:34:56Z",
+        "2012-04-13T12:34:56Z",
+        "2012-04-14T12:34:56Z"
+      ]
+      [10,11,12].each do |i|
+        assert_equal(sample.shift, (date0 & pop[i]).to_s)
+      end
+      assert_equal(42, When.when?('2011-05-15') % haab)
+      h = haab % When.when?('2011-05-15')
+      assert_equal(["Sip", 2], [h.label.to_s, h.difference])
+
+      # offset 0B
+      haab = When.Resource("_co:Mayan?Epoch=0D::Haab'")
+      assert_equal("ハアブ", haab.label.translate('ja'))
+      assert_equal("http://en.wikipedia.org/wiki/Haab'", haab.label.reference)
+      pop = When.Resource("_co:Mayan?Epoch=0D::Haab'::Pop")
+      assert_equal("Pop", pop.label.translate('en'))
+      assert_equal("http://en.wikipedia.org/wiki/File:Maya-Pop.jpg", pop.label.reference)
+      date0 = When.when?('2011-05-16T12:34:56Z')
+      sample = [
+        "2012-04-12T12:34:56Z",
+        "2012-04-13T12:34:56Z",
+        "2012-04-14T12:34:56Z"
+      ]
+      [10,11,12].each do |i|
+        assert_equal(sample.shift, (date0 & pop[i]).to_s)
+      end
+      assert_equal(42, When.when?('2011-05-15') % haab)
+      h = haab % When.when?('2011-05-15')
+      assert_equal(["Sip", 2], [h.label.to_s, h.difference])
+
+      # offset 2B
+      haab = When.Resource("_co:Mayan?Epoch=2D::Haab'")
+      assert_equal("ハアブ", haab.label.translate('ja'))
+      assert_equal("http://en.wikipedia.org/wiki/Haab'", haab.label.reference)
+      pop = When.Resource("_co:Mayan?Epoch=2D::Haab'::Pop")
+      assert_equal("Pop", pop.label.translate('en'))
+      assert_equal("http://en.wikipedia.org/wiki/File:Maya-Pop.jpg", pop.label.reference)
+      date0 = When.when?('2011-05-16T12:34:56Z')
+      sample = [
+        "2012-04-14T12:34:56Z",
+        "2012-04-15T12:34:56Z",
+        "2012-04-16T12:34:56Z"
+      ]
+      [10,11,12].each do |i|
+        assert_equal(sample.shift, (date0 & pop[i]).to_s)
+      end
+      assert_equal(42, When.when?('2011-05-17') % haab)
+      h = haab % When.when?('2011-05-17')
+      assert_equal(["Sip", 2], [h.label.to_s, h.difference])
+    end
+
+    def test__tzolkin
+      # No offset
+      trecena = When.Resource("_co:Mayan::Trecena::Trecena")
+      assert_equal("トレセナ", trecena.label.translate('ja'))
+      assert_equal("http://en.wikipedia.org/wiki/Trecena", trecena.label.reference)
+      assert_equal(2, When.when?('2011-05-15') % trecena)
+
+
+      tzolkin = When.Resource("_co:Mayan::Tzolk'in")
+      assert_equal("ツォルキン", tzolkin.label.translate('ja'))
+      assert_equal("http://en.wikipedia.org/wiki/Tzolk'in", tzolkin.label.reference)
+      ajaw = When.Resource("_co:Mayan::Tzolk'in::Ajaw")
+      assert_equal("Ajaw", ajaw.label.translate('en'))
+      assert_equal("http://en.wikipedia.org/wiki/File:MAYA-g-log-cal-D20-Ajaw-cdxW.png", ajaw.label.reference('alias'))
+      date0 = When.when?('2011-05-16T12:34:56Z')
+      sample = [
+        "2011-05-21T12:34:56Z",
+        "2011-05-21T12:34:56Z",
+        "2011-05-21T12:34:56Z"
+      ]
+      [10,11,12].each do |i|
+        assert_equal(sample.shift, (date0 & ajaw).to_s)
+      end
+      assert_equal(13, When.when?('2011-05-15') % tzolkin)
+      assert_equal('Ix', (tzolkin % When.when?('2011-05-15')).label.to_s)
+      if ::Object.const_defined?(:Date) && Date.respond_to?(:civil)
+        assert_equal('Ix', (tzolkin % Date.new(2011,5,15)).label.to_s)
+      end
+
+      # offset 0B
+      trecena = When.Resource("_co:Mayan?Epoch=0D::Trecena::Trecena")
+      assert_equal("トレセナ", trecena.label.translate('ja'))
+      assert_equal("http://en.wikipedia.org/wiki/Trecena", trecena.label.reference)
+      assert_equal(2, When.when?('2011-05-15') % trecena)
+
+
+      tzolkin = When.Resource("_co:Mayan?Epoch=0D::Tzolk'in")
+      assert_equal("ツォルキン", tzolkin.label.translate('ja'))
+      assert_equal("http://en.wikipedia.org/wiki/Tzolk'in", tzolkin.label.reference)
+      ajaw = When.Resource("_co:Mayan?Epoch=0D::Tzolk'in::Ajaw")
+      assert_equal("Ajaw", ajaw.label.translate('en'))
+      assert_equal("http://en.wikipedia.org/wiki/File:MAYA-g-log-cal-D20-Ajaw-cdxW.png", ajaw.label.reference('alias'))
+      date0 = When.when?('2011-05-16T12:34:56Z')
+      sample = [
+        "2011-05-21T12:34:56Z",
+        "2011-05-21T12:34:56Z",
+        "2011-05-21T12:34:56Z"
+      ]
+      [10,11,12].each do |i|
+        assert_equal(sample.shift, (date0 & ajaw).to_s)
+      end
+      assert_equal(13, When.when?('2011-05-15') % tzolkin)
+      assert_equal('Ix', (tzolkin % When.when?('2011-05-15')).label.to_s)
+      if ::Object.const_defined?(:Date) && Date.respond_to?(:civil)
+        assert_equal('Ix', (tzolkin % Date.new(2011,5,15)).label.to_s)
+      end
+
+      # offset 2B
+      trecena = When.Resource("_co:Mayan?Epoch=2D::Trecena::Trecena")
+      assert_equal("トレセナ", trecena.label.translate('ja'))
+      assert_equal("http://en.wikipedia.org/wiki/Trecena", trecena.label.reference)
+      assert_equal(2, When.when?('2011-05-17') % trecena)
+
+
+      tzolkin = When.Resource("_co:Mayan?Epoch=2D::Tzolk'in")
+      assert_equal("ツォルキン", tzolkin.label.translate('ja'))
+      assert_equal("http://en.wikipedia.org/wiki/Tzolk'in", tzolkin.label.reference)
+      ajaw = When.Resource("_co:Mayan?Epoch=2D::Tzolk'in::Ajaw")
+      assert_equal("Ajaw", ajaw.label.translate('en'))
+      assert_equal("http://en.wikipedia.org/wiki/File:MAYA-g-log-cal-D20-Ajaw-cdxW.png", ajaw.label.reference('alias'))
+      date0 = When.when?('2011-05-16T12:34:56Z')
+      sample = [
+        "2011-05-23T12:34:56Z",
+        "2011-05-23T12:34:56Z",
+        "2011-05-23T12:34:56Z"
+      ]
+      [10,11,12].each do |i|
+        assert_equal(sample.shift, (date0 & ajaw).to_s)
+      end
+      assert_equal(13, When.when?('2011-05-17') % tzolkin)
+      assert_equal('Ix', (tzolkin % When.when?('2011-05-17')).label.to_s)
+      if ::Object.const_defined?(:Date) && Date.respond_to?(:civil)
+        assert_equal('Ix', (tzolkin % Date.new(2011,5,17)).label.to_s)
+      end
+    end
+  end
+end