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/ephemeris.rb CHANGED Viewed

@@ -1,115 +1,115 @@
-# -*- 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::Ephemeris
-  class Ephemeris < MiniTest::TestCase
-    def test_nothing
-    end
-  end
-  class CelestialObject < MiniTest::TestCase
-    def test_nothing
-    end
-  end
-  class Star < MiniTest::TestCase
-    def test_nothing
-    end
-    # 恒星
-    class Fixed < MiniTest::TestCase
-      def test__access_hr
-        polaris = When::Resource('_sc:HR0424')
-        assert_equal("Alp UMi", polaris.bayer_name)
-      end
-    end
-    # 春分点
-    class Vernal < MiniTest::TestCase
-      def test_nothing
-      end
-    end
-    # 北極
-    class Pole < MiniTest::TestCase
-      def test_nothing
-      end
-    end
-  end
-  class Planet < MiniTest::TestCase
-    def test_nothing
-    end
-  end
-  class Coords < MiniTest::TestCase
-    def test_nothing
-    end
-  end
-  class Formula < MiniTest::TestCase
-    def test__sunrise
-      assert_raises(NoMethodError) { When.when?('2012-11-15').sunrise }
-      assert_equal(nil, When.when?('2013-06-21T+09:00', :long=>135, :lat=>70).sunrise)
-      if Object.const_defined?(:TZInfo)
-        assert_equal(0, /2012-11-15T06:16/ =~ When.when?('2012-11-15', :tz=>'Asia/Tokyo').sunrise.to_s)
-        assert_equal(0, /2012-11-15T06:16/ =~ When.when?('2012-11-15', :tz=>'Asia/Tokyo', :location=>'_l:long=139.7414&lat=35.6581').sunrise.to_s)
-      else
-        puts
-        puts "Tests for TZInfo have been skipped at line #{__LINE__} of #{__FILE__.split(/\//)[-1]}."
-      end
-      assert_equal(0, /2012-11-15T06:16/ =~ When.when?('2012-11-15T+09:00', :long=>139.7414, :lat=>35.6581).sunrise.to_s)
-      assert_equal(0, /2012-11-14T21:16/ =~ When.when?('2012-11-15', :long=>139.7414, :lat=>35.6581).sunrise.to_s)
-      today = '2014-3-4'
-      location = When.Location('long=139.413012E&lat=35.412222N')
-      assert_equal(0, /2014-03-03T21:07/ =~ When.when?(today, {:location=>location}).sunrise.to_s)
-      When::Coordinates::Spatial.default_location = location
-      assert_equal(0, /2014-03-03T21:07/ =~ When.when?(today).sunrise.to_s)
-      When::TM::Clock.local_time = '+09:00'
-      assert_equal(0, /2014-03-04T06:07/ =~ When.when?(today).sunrise.to_s)
-    end
-    def test__lunisolar_location
-      formula1 = When.Resource('_ep:Formula?formula=1L')
-      formula2 = When.Resource('_ep:Formula?formula=12S')
-      date = When.when?('2014-08-01', :clock=>'+09:00')
-      assert_equal('2014-07-27T07:41+09:00', formula1.nearest_past(date).floor(When::MINUTE).to_s)
-      assert_equal('2014-07-23T06:41+09:00', formula2.nearest_past(date).floor(When::MINUTE).to_s)
-      assert_equal('2014-07-07T13:15+09:00', formula2.nearest_past(date, 0.5).floor(When::MINUTE).to_s)
-    end
-  end
-  if Object.const_defined?(:TZInfo)
-    class Note < MiniTest::TestCase
-      def test__tide
-        sample = [%w(2013-10-02T02:58+09:00 _n:Ephemeris/Notes::day::Tide::Low_Tide),
-                  %w(2013-10-02T09:09+09:00 _n:Ephemeris/Notes::day::Tide::High_Tide),
-                  %w(2013-10-02T15:20+09:00 _n:Ephemeris/Notes::day::Tide::Low_Tide),
-                  %w(2013-10-02T21:32+09:00 _n:Ephemeris/Notes::day::Tide::High_Tide)]
-        note = When.CalendarNote('Ephemeris?interval=0.0')
-        date = When.when?('2013-10-02', :tz=>'Asia/Tokyo')
-        note.tide(date).each do |d|
-          assert_equal(sample.shift, [d.floor(When::MINUTE).to_s, d.events[0].iri(true)])
-        end
-      end
-    end
-  else
-    puts "Tests for TZInfo have been skipped at line #{__LINE__} of #{__FILE__.split(/\//)[-1]}."
-  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::Ephemeris
+  class Ephemeris < MiniTest::TestCase
+    def test_nothing
+    end
+  end
+  class CelestialObject < MiniTest::TestCase
+    def test_nothing
+    end
+  end
+  class Star < MiniTest::TestCase
+    def test_nothing
+    end
+    # 恒星
+    class Fixed < MiniTest::TestCase
+      def test__access_hr
+        polaris = When::Resource('_sc:HR0424')
+        assert_equal("Alp UMi", polaris.bayer_name)
+      end
+    end
+    # 春分点
+    class Vernal < MiniTest::TestCase
+      def test_nothing
+      end
+    end
+    # 北極
+    class Pole < MiniTest::TestCase
+      def test_nothing
+      end
+    end
+  end
+  class Planet < MiniTest::TestCase
+    def test_nothing
+    end
+  end
+  class Coords < MiniTest::TestCase
+    def test_nothing
+    end
+  end
+  class Formula < MiniTest::TestCase
+    def test__sunrise
+      assert_raises(NoMethodError) { When.when?('2012-11-15').sunrise }
+      assert_equal(nil, When.when?('2013-06-21T+09:00', :long=>135, :lat=>70).sunrise)
+      if Object.const_defined?(:TZInfo)
+        assert_equal(0, /2012-11-15T06:16/ =~ When.when?('2012-11-15', :tz=>'Asia/Tokyo').sunrise.to_s)
+        assert_equal(0, /2012-11-15T06:16/ =~ When.when?('2012-11-15', :tz=>'Asia/Tokyo', :location=>'_l:long=139.7414&lat=35.6581').sunrise.to_s)
+      else
+        puts
+        puts "Tests for TZInfo have been skipped at line #{__LINE__} of #{__FILE__.split(/\//)[-1]}."
+      end
+      assert_equal(0, /2012-11-15T06:16/ =~ When.when?('2012-11-15T+09:00', :long=>139.7414, :lat=>35.6581).sunrise.to_s)
+      assert_equal(0, /2012-11-14T21:16/ =~ When.when?('2012-11-15', :long=>139.7414, :lat=>35.6581).sunrise.to_s)
+      today = '2014-3-4'
+      location = When.Location('long=139.413012E&lat=35.412222N')
+      assert_equal(0, /2014-03-03T21:07/ =~ When.when?(today, {:location=>location}).sunrise.to_s)
+      When::Coordinates::Spatial.default_location = location
+      assert_equal(0, /2014-03-03T21:07/ =~ When.when?(today).sunrise.to_s)
+      When::TM::Clock.local_time = '+09:00'
+      assert_equal(0, /2014-03-04T06:07/ =~ When.when?(today).sunrise.to_s)
+    end
+    def test__lunisolar_location
+      formula1 = When.Resource('_ep:Formula?formula=1L')
+      formula2 = When.Resource('_ep:Formula?formula=12S')
+      date = When.when?('2014-08-01', :clock=>'+09:00')
+      assert_equal('2014-07-27T07:41+09:00', formula1.nearest_past(date).floor(When::MINUTE).to_s)
+      assert_equal('2014-07-23T06:41+09:00', formula2.nearest_past(date).floor(When::MINUTE).to_s)
+      assert_equal('2014-07-07T13:15+09:00', formula2.nearest_past(date, 0.5).floor(When::MINUTE).to_s)
+    end
+  end
+  if Object.const_defined?(:TZInfo)
+    class Note < MiniTest::TestCase
+      def test__tide
+        sample = [%w(2013-10-02T02:58+09:00 _n:Ephemeris/Notes::day::Tide::Low_Tide),
+                  %w(2013-10-02T09:09+09:00 _n:Ephemeris/Notes::day::Tide::High_Tide),
+                  %w(2013-10-02T15:20+09:00 _n:Ephemeris/Notes::day::Tide::Low_Tide),
+                  %w(2013-10-02T21:32+09:00 _n:Ephemeris/Notes::day::Tide::High_Tide)]
+        note = When.CalendarNote('Ephemeris?interval=0.0')
+        date = When.when?('2013-10-02', :tz=>'Asia/Tokyo')
+        note.tide(date).each do |d|
+          assert_equal(sample.shift, [d.floor(When::MINUTE).to_s, d.events[0].iri(true)])
+        end
+      end
+    end
+  else
+    puts "Tests for TZInfo have been skipped at line #{__LINE__} of #{__FILE__.split(/\//)[-1]}."
+  end
+end

data/test/test/ephemeris/moon.rb CHANGED Viewed

@@ -1,14 +1,14 @@
-# -*- 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::Ephemeris
-  class Moon < MiniTest::TestCase
-    def test_nothing
-    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::Ephemeris
+  class Moon < MiniTest::TestCase
+    def test_nothing
+    end
+  end
+end

data/test/test/ephemeris/planets.rb CHANGED Viewed

@@ -1,14 +1,14 @@
-# -*- 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::Ephemeris
-  class Planets < MiniTest::TestCase
-    def test_nothing
-    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::Ephemeris
+  class Planets < MiniTest::TestCase
+    def test_nothing
+    end
+  end
+end

data/test/test/ephemeris/sun.rb CHANGED Viewed

@@ -1,14 +1,14 @@
-# -*- 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::Ephemeris
-  class Sun < MiniTest::TestCase
-    def test_nothing
-    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::Ephemeris
+  class Sun < MiniTest::TestCase
+    def test_nothing
+    end
+  end
+end

data/test/test/inspect.rb CHANGED Viewed

@@ -1,153 +1,153 @@
-# -*- 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 Inspect < MiniTest::TestCase
-    def test__strftime_1
-      ns     = 'ISO, jwiki=http://ja.wikipedia.org/wiki/, ewiki=http://en.wikipedia.org/wiki/'
-      locale = '=jwiki:, en=ewiki:'
-      term1  = When::BasicTypes::M17n.new('[月曜, Monday]',                      ns, locale)
-      term2  = When::BasicTypes::M17n.new('[です, It is]',                       ns, locale)
-      form   = When::BasicTypes::M17n.new('[%s%s%2d:, %2$s %1$s%3$2d-]', ns, locale)
-      assert_equal(["月曜です 1%", "It is Monday 1%"],
-        ['ja_JP', 'en_US'].map {|c| (form % [term1, term2, When::Coordinates::Pair.new(1,-2)]).translate(c)})
-      pair11 = When::Coordinates::Pair.new(1,1)
-      assert_equal("2:", "%d:" % pair11)
-      assert_equal("2=", "%d=" % pair11)
-      assert_equal("1=", When.m17n("%d:") % pair11)
-      date = When.when?('2011-02-28T12:34:56+09:00')
-      assert_equal(["February", {""=>"February", "ja"=>"2月"}], [date.name(-1).to_s, date.name(-1).names])
-      assert_equal("Mon Feb 28 12:34:56 +0900 2011", date.strftime('%+'))
-      date = When.when?('2011-05-17T12:34:56', {:clock=>'+09:00'})
-    # assert_equal("5月", date.strftime('%.2b').translate('ja'))
-      assert_equal("05", date.strftime('%m'))
-      assert_equal("Tue May 17 12:34:56 +0900 2011", date.strftime('%+'))
-    # assert_equal("火 5月 17 12:34:56 +0900 2011", date.strftime('%+').translate('ja'))
-      clock = When.Clock('+09:00')
-      #pp clock.to_s
-      assert_equal("+09:00", clock.label.to_s)
-      assert_equal(nil, clock.referenceEvent)
-      assert_equal("T00+09:00", clock.referenceTime.to_s)
-      assert_equal("T*15:00:00Z", clock.utcReference.to_s)
-    end
-    def test__strftime_2
-      [['%c', 'ja', '2012/04/03 10:14:00'], ['%c', 'fr', '03 avril 2012 10:14:00'],
-       ['%x', 'ja', '2012/04/03'         ], ['%x', 'fr', '03/04/2012'            ],
-       ['%X', 'ja', '10:14:00'           ], ['%X', 'fr', '10:14:00'              ]
-      ].each do |sample|
-        assert_equal(sample[2], When.when?('2012-4-3T10:14:00').
-          strftime(sample[0], sample[1]))
-      end
-    end
-    def test__strftime_3
-      [['DateTime',      'ja', '2012/04/03 10:14:00'                  ], ['DateTime',      'fr', '03 avril 2012 10:14:00'   ],
-       ['DateTimeLong',  'ja', '2012年04月03日(火) 10時14分00秒 +0000'], ['DateTimeLong',  'fr', 'mardi 03 avril 2012 10:14'],
-       ['DateTimeShort', 'ja', '12/04/03 10:14'                       ], ['DateTimeShort', 'fr', '03 avr 10:14'             ],
-       ['Date',          'ja', '2012/04/03'                           ], ['Date',          'fr', '03/04/2012'               ],
-       ['DateLong',      'ja', '2012年04月03日(火)'                   ], ['DateLong',      'fr', ' 3 avril 2012'            ],
-       ['DateShort',     'ja', '04/03'                                ], ['DateShort',     'fr', ' 3 avr'                   ],
-       ['Time',          'ja', '10:14:00'                             ], ['Time',          'fr', '10:14:00'                 ]
-      ].each do |sample|
-        assert_equal(sample[2], When.when?('2012-4-3T10:14:00').
-          strftime(When.Resource('_m:CalendarFormats::'+sample[0]), sample[1]))
-      end
-    end
-    def test__name
-      month = When.when?('AP1393.1.1T12:34:56').name('month')
-      assert_equal("فروردین", month.translate('ar'))
-    end
-    def test__coordinates
-      date = When.when?('2012.3=16T12:34:56', {:frame=>When::CalendarTypes::ChineseLuniSolar.new({'time_basis'=>'+09:00'})})
-      assert_equal(2012, date.year  )
-      assert_equal(When::Coordinates::Pair.new(3,1), date.month)
-      assert_equal(  16, date.day   )
-      assert_equal(  12, date.hour  )
-      assert_equal(  34, date.minute)
-      assert_equal(  56, date.second)
-      assert_equal(   4, date.ymon  )
-      assert_equal( 105, date.yday  )
-      assert_equal(  16, date.mday  )
-      assert_equal(   0, date.wday  )
-    end
-    def mweek(dow, day)
-      dow = (dow + 1) % 7
-      w,d = (day - 1).divmod(7)
-      (d < dow) ? w : w+1
-    end
-    def test__term
-     # [13,14,15].each do |d|
-     #   7.times do |i|
-     #      p [d, i, mweek(i, d)]
-     #   end
-     # end
-     # raise
-      format = ['%U %w %W %j', '%G-W%V-%u']
-      7.times do |i|
-        2.times do |k|
-          [ '1-1' , '1-2' , '1-3' , '1-4' , '1-5' , '1-6' , '1-7' , '1-8' ,
-           '12-24','12-25','12-26','12-27','12-28','12-29','12-30','12-31',].each do |m|
-            date1 = When.when?("#{2000+4*i+k}-#{m}")
-            expr0 = format.map {|f| date1.to_date.strftime(f)}
-            date2 = When.when?(expr0[1])
-            expr1 = format.map {|f| date1.strftime(f)}
-            expr2 = format.map {|f| date2.strftime(f)}
-            assert_equal([expr0,expr0,mweek(date1.to_i % 7, date1.day)], [expr1,expr2,date1.mweek])
-          end
-        end
-      end
-    end
-    def test__month_included
-      assert_equal([['December 2013',
-                    ['*', '-', '-', '-', '-', '-', 1, 2],
-                    ['*', 3, 4, 5, 6, 7, 8, 9],
-                    ['*', 10, 11, 12, 13, 14, 15, 16],
-                    ['*', 17, 18, 19, 20, 21, 22, 23],
-                    ['*', 24, 25, 26, 27, 28, 29, 30, 31]]],
-        When.when?('2013-12-30').month_included('WorldWeek') {|date, type|
-          case type
-          when When::YEAR  ; date.strftime('%Y')
-          when When::MONTH ; date.strftime('%B %Y')
-          when When::WEEK  ; '*'
-          when When::DAY   ; date[When::DAY]
-          else             ; '-'
-          end
-        })
-    end
-    def test__round
-      date = When.when?("2010-09-29T14:45:12.33+09:00")
-      assert_equal(%w(2010-09-29T14:45:12.33+09:00 2010-09-29T14:45:12+09:00), [date.to_s, date.to_s(3, true)])
-      date = When.when?('2013-10-28T23:59:59.999', :clock=>'+09:00', :precision=>3)
-      assert_equal(%w(2013-10-28T23:59:59+09:00    2013-10-28T24:00:00+09:00), [date.to_s, date.to_s(3, true)])
-      date = When.when?('2013-10-28T23:59:59.999', :clock=>'+09:00')
-      assert_equal(%w(2013-10-28T23:59:59.99+09:00 2013-10-28T24:00:00+09:00), [date.to_s, date.to_s(3, true)])
-      date = When.when?('2013-10-28T23:59:29.999', :clock=>'+09:00')
-      assert_equal(%w(2013-10-28T23:59:29.99+09:00 2013-10-28T23:59+09:00),    [date.to_s, date.to_s(2, true)])
-      date = When.when?('2013-10-28T23:59:30.001', :clock=>'+09:00')
-      assert_equal(%w(2013-10-28T23:59:30.00+09:00 2013-10-28T24:00+09:00),    [date.to_s, date.to_s(2, true)])
-    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 Inspect < MiniTest::TestCase
+    def test__strftime_1
+      ns     = 'ISO, jwiki=http://ja.wikipedia.org/wiki/, ewiki=http://en.wikipedia.org/wiki/'
+      locale = '=jwiki:, en=ewiki:'
+      term1  = When::BasicTypes::M17n.new('[月曜, Monday]',                      ns, locale)
+      term2  = When::BasicTypes::M17n.new('[です, It is]',                       ns, locale)
+      form   = When::BasicTypes::M17n.new('[%s%s%2d:, %2$s %1$s%3$2d-]', ns, locale)
+      assert_equal(["月曜です 1%", "It is Monday 1%"],
+        ['ja_JP', 'en_US'].map {|c| (form % [term1, term2, When::Coordinates::Pair.new(1,-2)]).translate(c)})
+      pair11 = When::Coordinates::Pair.new(1,1)
+      assert_equal("2:", "%d:" % pair11)
+      assert_equal("2=", "%d=" % pair11)
+      assert_equal("1=", When.m17n("%d:") % pair11)
+      date = When.when?('2011-02-28T12:34:56+09:00')
+      assert_equal(["February", {""=>"February", "ja"=>"2月"}], [date.name(-1).to_s, date.name(-1).names])
+      assert_equal("Mon Feb 28 12:34:56 +0900 2011", date.strftime('%+'))
+      date = When.when?('2011-05-17T12:34:56', {:clock=>'+09:00'})
+    # assert_equal("5月", date.strftime('%.2b').translate('ja'))
+      assert_equal("05", date.strftime('%m'))
+      assert_equal("Tue May 17 12:34:56 +0900 2011", date.strftime('%+'))
+    # assert_equal("火 5月 17 12:34:56 +0900 2011", date.strftime('%+').translate('ja'))
+      clock = When.Clock('+09:00')
+      #pp clock.to_s
+      assert_equal("+09:00", clock.label.to_s)
+      assert_equal(nil, clock.referenceEvent)
+      assert_equal("T00+09:00", clock.referenceTime.to_s)
+      assert_equal("T*15:00:00Z", clock.utcReference.to_s)
+    end
+    def test__strftime_2
+      [['%c', 'ja', '2012/04/03 10:14:00'], ['%c', 'fr', '03 avril 2012 10:14:00'],
+       ['%x', 'ja', '2012/04/03'         ], ['%x', 'fr', '03/04/2012'            ],
+       ['%X', 'ja', '10:14:00'           ], ['%X', 'fr', '10:14:00'              ]
+      ].each do |sample|
+        assert_equal(sample[2], When.when?('2012-4-3T10:14:00').
+          strftime(sample[0], sample[1]))
+      end
+    end
+    def test__strftime_3
+      [['DateTime',      'ja', '2012/04/03 10:14:00'                  ], ['DateTime',      'fr', '03 avril 2012 10:14:00'   ],
+       ['DateTimeLong',  'ja', '2012年04月03日(火) 10時14分00秒 +0000'], ['DateTimeLong',  'fr', 'mardi 03 avril 2012 10:14'],
+       ['DateTimeShort', 'ja', '12/04/03 10:14'                       ], ['DateTimeShort', 'fr', '03 avr 10:14'             ],
+       ['Date',          'ja', '2012/04/03'                           ], ['Date',          'fr', '03/04/2012'               ],
+       ['DateLong',      'ja', '2012年04月03日(火)'                   ], ['DateLong',      'fr', ' 3 avril 2012'            ],
+       ['DateShort',     'ja', '04/03'                                ], ['DateShort',     'fr', ' 3 avr'                   ],
+       ['Time',          'ja', '10:14:00'                             ], ['Time',          'fr', '10:14:00'                 ]
+      ].each do |sample|
+        assert_equal(sample[2], When.when?('2012-4-3T10:14:00').
+          strftime(When.Resource('_m:CalendarFormats::'+sample[0]), sample[1]))
+      end
+    end
+    def test__name
+      month = When.when?('AP1393.1.1T12:34:56').name('month')
+      assert_equal("فروردین", month.translate('ar'))
+    end
+    def test__coordinates
+      date = When.when?('2012.3=16T12:34:56', {:frame=>When::CalendarTypes::ChineseLuniSolar.new({'time_basis'=>'+09:00'})})
+      assert_equal(2012, date.year  )
+      assert_equal(When::Coordinates::Pair.new(3,1), date.month)
+      assert_equal(  16, date.day   )
+      assert_equal(  12, date.hour  )
+      assert_equal(  34, date.minute)
+      assert_equal(  56, date.second)
+      assert_equal(   4, date.ymon  )
+      assert_equal( 105, date.yday  )
+      assert_equal(  16, date.mday  )
+      assert_equal(   0, date.wday  )
+    end
+    def mweek(dow, day)
+      dow = (dow + 1) % 7
+      w,d = (day - 1).divmod(7)
+      (d < dow) ? w : w+1
+    end
+    def test__term
+     # [13,14,15].each do |d|
+     #   7.times do |i|
+     #      p [d, i, mweek(i, d)]
+     #   end
+     # end
+     # raise
+      format = ['%U %w %W %j', '%G-W%V-%u']
+      7.times do |i|
+        2.times do |k|
+          [ '1-1' , '1-2' , '1-3' , '1-4' , '1-5' , '1-6' , '1-7' , '1-8' ,
+           '12-24','12-25','12-26','12-27','12-28','12-29','12-30','12-31',].each do |m|
+            date1 = When.when?("#{2000+4*i+k}-#{m}")
+            expr0 = format.map {|f| date1.to_date.strftime(f)}
+            date2 = When.when?(expr0[1])
+            expr1 = format.map {|f| date1.strftime(f)}
+            expr2 = format.map {|f| date2.strftime(f)}
+            assert_equal([expr0,expr0,mweek(date1.to_i % 7, date1.day)], [expr1,expr2,date1.mweek])
+          end
+        end
+      end
+    end
+    def test__month_included
+      assert_equal([['December 2013',
+                    ['*', '-', '-', '-', '-', '-', 1, 2],
+                    ['*', 3, 4, 5, 6, 7, 8, 9],
+                    ['*', 10, 11, 12, 13, 14, 15, 16],
+                    ['*', 17, 18, 19, 20, 21, 22, 23],
+                    ['*', 24, 25, 26, 27, 28, 29, 30, 31]]],
+        When.when?('2013-12-30').month_included('WorldWeek') {|date, type|
+          case type
+          when When::YEAR  ; date.strftime('%Y')
+          when When::MONTH ; date.strftime('%B %Y')
+          when When::WEEK  ; '*'
+          when When::DAY   ; date[When::DAY]
+          else             ; '-'
+          end
+        })
+    end
+    def test__round
+      date = When.when?("2010-09-29T14:45:12.33+09:00")
+      assert_equal(%w(2010-09-29T14:45:12.33+09:00 2010-09-29T14:45:12+09:00), [date.to_s, date.to_s(3, true)])
+      date = When.when?('2013-10-28T23:59:59.999', :clock=>'+09:00', :precision=>3)
+      assert_equal(%w(2013-10-28T23:59:59+09:00    2013-10-28T24:00:00+09:00), [date.to_s, date.to_s(3, true)])
+      date = When.when?('2013-10-28T23:59:59.999', :clock=>'+09:00')
+      assert_equal(%w(2013-10-28T23:59:59.99+09:00 2013-10-28T24:00:00+09:00), [date.to_s, date.to_s(3, true)])
+      date = When.when?('2013-10-28T23:59:29.999', :clock=>'+09:00')
+      assert_equal(%w(2013-10-28T23:59:29.99+09:00 2013-10-28T23:59+09:00),    [date.to_s, date.to_s(2, true)])
+      date = When.when?('2013-10-28T23:59:30.001', :clock=>'+09:00')
+      assert_equal(%w(2013-10-28T23:59:30.00+09:00 2013-10-28T24:00+09:00),    [date.to_s, date.to_s(2, true)])
+    end
+  end
+end