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

when_exe 0.4.2 → 0.4.3

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

@@ -1,30 +1,30 @@
-# -*- coding: utf-8 -*-
-=begin
-  Copyright (C) 2011 Takashi SUGA
-  You may use and/or modify this file according to the license
-  described in the LICENSE.txt file included in this archive.
-=end
-module MiniTest
-  class Tibetan < MiniTest::TestCase
-    Sample = [
-      "1991-05-01-", "1991-05-02-", "1991-05-03-", "1991-05-04-", "1991-05-05%", "1991-05-07-", "1991-05-08-", "1991-05-09-",
-      "1991-05-10-", "1991-05-11-", "1991-05-12-", "1991-05-13-", "1991-05-14-", "1991-05-15-", "1991-05-15=", "1991-05-16-",
-      "1991-05-17-", "1991-05-18-", "1991-05-19-", "1991-05-20-", "1991-05-21-", "1991-05-22-", "1991-05-23-", "1991-05-24-",
-      "1991-05-25-", "1991-05-26-", "1991-05-27-", "1991-05-28%", "1991-05-30-"
-    ]
-    def test_tibetan_date
-      cc     = When.Resource('_c:Tibetan')
-      date   = When.when?('1991-05-01', {:frame=>cc})
-      start  = 2448421
-      Sample.size.times do |i|
-        assert_equal([Sample[i], start+i], [date.to_s, date.to_i])
-        date += When.Duration('P1D')
-      end
-    end
-  end
-end
+# -*- coding: utf-8 -*-
+=begin
+  Copyright (C) 2011 Takashi SUGA
+  You may use and/or modify this file according to the license
+  described in the LICENSE.txt file included in this archive.
+=end
+module MiniTest
+  class Tibetan < MiniTest::TestCase
+    Sample = [
+      "1991-05-01-", "1991-05-02-", "1991-05-03-", "1991-05-04-", "1991-05-05%", "1991-05-07-", "1991-05-08-", "1991-05-09-",
+      "1991-05-10-", "1991-05-11-", "1991-05-12-", "1991-05-13-", "1991-05-14-", "1991-05-15-", "1991-05-15=", "1991-05-16-",
+      "1991-05-17-", "1991-05-18-", "1991-05-19-", "1991-05-20-", "1991-05-21-", "1991-05-22-", "1991-05-23-", "1991-05-24-",
+      "1991-05-25-", "1991-05-26-", "1991-05-27-", "1991-05-28%", "1991-05-30-"
+    ]
+    def test_tibetan_date
+      cc     = When.Resource('_c:Tibetan')
+      date   = When.when?('1991-05-01', {:frame=>cc})
+      start  = 2448421
+      Sample.size.times do |i|
+        assert_equal([Sample[i], start+i], [date.to_s, date.to_i])
+        date += When.Duration('P1D')
+      end
+    end
+  end
+end

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

@@ -1,102 +1,102 @@
-# -*- coding: utf-8 -*-
-=begin
-  Copyright (C) 2014 Takashi SUGA
-  You may use and/or modify this file according to the license
-  described in the LICENSE.txt file included in this archive.
-=end
-module MiniTest
-  class Vietnamese < MiniTest::TestCase
-    Sample1 = [%w(紹明2.1.1                                1139-02-08 紹明02(1139).01.01),
-               %w(ベトナム?LY=VSL::李朝::紹明2.1.1         1138-02-19 ベトナム?LY=VSL::李朝::紹明02(1138).01.01),
-               %w(嗣徳2.8.1                                1849-09-17 ベトナム::阮朝::嗣徳02(1849).08.01),
-               %w(ベトナム?LY=VSL&DN=LDNK::阮朝::嗣徳2.8.1 1849-09-16 ベトナム?LY=VSL&DN=LDNK::阮朝::嗣徳02(1849).08.01),
-               %w(ベトナム::後期黎朝::福泰2.7.1            1644-08-02 ベトナム::後期黎朝::福泰02(1644).07.01),
-               %w(ベトナム::広南::阮福瀾10.7.1             1644-08-03 ベトナム::広南::<阮福瀾>10(1644).07.01),
-               %w(ベトナム::後期黎朝::慶徳4.9.1            1652-10-02 ベトナム::後期黎朝::慶徳04(1652).09.01),
-               %w(ベトナム::広南::阮福瀕4.9.1              1652-10-03 ベトナム::広南::<阮福瀕>04(1652).09.01),
-               %w(ベトナム::阮朝::建福1.1.31               1884-02-26 ベトナム::阮朝::建福01(1884).01.31)]
-    Sample2 = [%w(1659-01- 1659-01-23),
-               %w(1659-01= 1659-02-21),
-               %w(1659-02- 1659-03-23),
-               %w(1659-03- 1659-04-21),
-               %w(1659-04- 1659-05-21),
-               %w(1659-05- 1659-06-20),
-               %w(1659-06- 1659-07-19),
-               %w(1659-07- 1659-08-18),
-               %w(1659-08- 1659-09-16),
-               %w(1659-09- 1659-10-16),
-               %w(1659-10- 1659-11-14),
-               %w(1659-11- 1659-12-14),
-               %w(1659-12- 1660-01-12),
-               %w(1660-01- 1660-02-11),
-               %w(1660-02- 1660-03-11),
-               %w(1660-03- 1660-04-10),
-               %w(1660-04- 1660-05-09),
-               %w(1660-05- 1660-06-08),
-               %w(1660-06- 1660-07-07),
-               %w(1660-07- 1660-08-06),
-               %w(1660-08- 1660-09-05),
-               %w(1660-09- 1660-10-04),
-               %w(1660-10- 1660-11-03),
-               %w(1660-11- 1660-12-02),
-               %w(1660-12- 1661-01-01),
-               %w(1659-01- 1659-01-23),
-               %w(1659-01= 1659-02-22),
-               %w(1659-02- 1659-03-23),
-               %w(1659-03- 1659-04-21),
-               %w(1659-04- 1659-05-21),
-               %w(1659-05- 1659-06-20),
-               %w(1659-06- 1659-07-19),
-               %w(1659-07- 1659-08-18),
-               %w(1659-08- 1659-09-16),
-               %w(1659-09- 1659-10-16),
-               %w(1659-10- 1659-11-15), # 1659-11-14 ではない
-               %w(1659-11- 1659-12-14),
-               %w(1659-12- 1660-01-12),
-               %w(1660-01- 1660-02-11),
-               %w(1660-02- 1660-03-11),
-               %w(1660-03- 1660-04-10),
-               %w(1660-04- 1660-05-09),
-               %w(1660-05- 1660-06-08),
-               %w(1660-06- 1660-07-07),
-               %w(1660-07- 1660-08-06),
-               %w(1660-08- 1660-09-05),
-               %w(1660-09- 1660-10-04),
-               %w(1660-10- 1660-11-03),
-               %w(1660-11- 1660-12-03), # 1660-12-02 ではない
-               %w(1660-12- 1661-01-01)]
-    def test_vietnamese_era
-      When.CalendarEra('Vietnamese')
-      When.CalendarEra('Vietnamese?LY=VSL')
-      When.CalendarEra('Vietnamese?LY=VSL&DN=LDNK')
-      Sample1.each do |sample|
-        date = When.when?(sample[0])
-        assert_equal(sample[1..2], [date.to_date.to_s, date.to_s])
-      end
-    end
-    def test_vietnamese_date
-      When.CalendarEra('Vietnamese')
-      sample = Sample2
-      [1544, 1631].each do |epoch|
-        calendar = When.Calendar('Vietnamese' + epoch.to_s)
-        date = When.TemporalPosition(1659, 1, :frame=>calendar)
-        25.times do
-          assert_equal(sample.shift, [date.to_s, date.to_date.to_s])
-          date = date.next
-        end
-      end
-    end
-  end
-end
+# -*- coding: utf-8 -*-
+=begin
+  Copyright (C) 2014 Takashi SUGA
+  You may use and/or modify this file according to the license
+  described in the LICENSE.txt file included in this archive.
+=end
+module MiniTest
+  class Vietnamese < MiniTest::TestCase
+    Sample1 = [%w(紹明2.1.1                                1139-02-08 紹明02(1139).01.01),
+               %w(ベトナム?LY=VSL::李朝::紹明2.1.1         1138-02-19 ベトナム?LY=VSL::李朝::紹明02(1138).01.01),
+               %w(嗣徳2.8.1                                1849-09-17 ベトナム::阮朝::嗣徳02(1849).08.01),
+               %w(ベトナム?LY=VSL&DN=LDNK::阮朝::嗣徳2.8.1 1849-09-16 ベトナム?LY=VSL&DN=LDNK::阮朝::嗣徳02(1849).08.01),
+               %w(ベトナム::後期黎朝::福泰2.7.1            1644-08-02 ベトナム::後期黎朝::福泰02(1644).07.01),
+               %w(ベトナム::広南::阮福瀾10.7.1             1644-08-03 ベトナム::広南::<阮福瀾>10(1644).07.01),
+               %w(ベトナム::後期黎朝::慶徳4.9.1            1652-10-02 ベトナム::後期黎朝::慶徳04(1652).09.01),
+               %w(ベトナム::広南::阮福瀕4.9.1              1652-10-03 ベトナム::広南::<阮福瀕>04(1652).09.01),
+               %w(ベトナム::阮朝::建福1.1.31               1884-02-26 ベトナム::阮朝::建福01(1884).01.31)]
+    Sample2 = [%w(1659-01- 1659-01-23),
+               %w(1659-01= 1659-02-21),
+               %w(1659-02- 1659-03-23),
+               %w(1659-03- 1659-04-21),
+               %w(1659-04- 1659-05-21),
+               %w(1659-05- 1659-06-20),
+               %w(1659-06- 1659-07-19),
+               %w(1659-07- 1659-08-18),
+               %w(1659-08- 1659-09-16),
+               %w(1659-09- 1659-10-16),
+               %w(1659-10- 1659-11-14),
+               %w(1659-11- 1659-12-14),
+               %w(1659-12- 1660-01-12),
+               %w(1660-01- 1660-02-11),
+               %w(1660-02- 1660-03-11),
+               %w(1660-03- 1660-04-10),
+               %w(1660-04- 1660-05-09),
+               %w(1660-05- 1660-06-08),
+               %w(1660-06- 1660-07-07),
+               %w(1660-07- 1660-08-06),
+               %w(1660-08- 1660-09-05),
+               %w(1660-09- 1660-10-04),
+               %w(1660-10- 1660-11-03),
+               %w(1660-11- 1660-12-02),
+               %w(1660-12- 1661-01-01),
+               %w(1659-01- 1659-01-23),
+               %w(1659-01= 1659-02-22),
+               %w(1659-02- 1659-03-23),
+               %w(1659-03- 1659-04-21),
+               %w(1659-04- 1659-05-21),
+               %w(1659-05- 1659-06-20),
+               %w(1659-06- 1659-07-19),
+               %w(1659-07- 1659-08-18),
+               %w(1659-08- 1659-09-16),
+               %w(1659-09- 1659-10-16),
+               %w(1659-10- 1659-11-15), # 1659-11-14 ではない
+               %w(1659-11- 1659-12-14),
+               %w(1659-12- 1660-01-12),
+               %w(1660-01- 1660-02-11),
+               %w(1660-02- 1660-03-11),
+               %w(1660-03- 1660-04-10),
+               %w(1660-04- 1660-05-09),
+               %w(1660-05- 1660-06-08),
+               %w(1660-06- 1660-07-07),
+               %w(1660-07- 1660-08-06),
+               %w(1660-08- 1660-09-05),
+               %w(1660-09- 1660-10-04),
+               %w(1660-10- 1660-11-03),
+               %w(1660-11- 1660-12-03), # 1660-12-02 ではない
+               %w(1660-12- 1661-01-01)]
+    def test_vietnamese_era
+      When.CalendarEra('Vietnamese')
+      When.CalendarEra('Vietnamese?LY=VSL')
+      When.CalendarEra('Vietnamese?LY=VSL&DN=LDNK')
+      Sample1.each do |sample|
+        date = When.when?(sample[0])
+        assert_equal(sample[1..2], [date.to_date.to_s, date.to_s])
+      end
+    end
+    def test_vietnamese_date
+      When.CalendarEra('Vietnamese')
+      sample = Sample2
+      [1544, 1631].each do |epoch|
+        calendar = When.Calendar('Vietnamese' + epoch.to_s)
+        date = When.TemporalPosition(1659, 1, :frame=>calendar)
+        25.times do
+          assert_equal(sample.shift, [date.to_s, date.to_date.to_s])
+          date = date.next
+        end
+      end
+    end
+  end
+end

data/test/test/region/zoroastrian.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 Zoroastrian < MiniTest::TestCase
-    def test_fasli
-      date = When.when? '1366.1.1^^Fasli?location=(_co:Iranian::Tehran)'
-      [["1366-01-01", "1996-03-20", 2450163],
-       ["1367-01-01", "1997-03-20", 2450528],
-       ["1368-01-01", "1998-03-21", 2450894],
-       ["1369-01-01", "1999-03-21", 2451259],
-       ["1370-01-01", "2000-03-20", 2451624],
-       ["1371-01-01", "2001-03-20", 2451989],
-       ["1372-01-01", "2002-03-21", 2452355],
-       ["1373-01-01", "2003-03-21", 2452720],
-       ["1374-01-01", "2004-03-20", 2453085],
-       ["1375-01-01", "2005-03-20", 2453450],
-       ["1376-01-01", "2006-03-21", 2453816],
-       ["1377-01-01", "2007-03-21", 2454181],
-       ["1378-01-01", "2008-03-20", 2454546],
-       ["1379-01-01", "2009-03-20", 2454911],
-       ["1380-01-01", "2010-03-21", 2455277],
-       ["1381-01-01", "2011-03-21", 2455642],
-       ["1382-01-01", "2012-03-20", 2456007],
-       ["1383-01-01", "2013-03-20", 2456372],
-       ["1384-01-01", "2014-03-21", 2456738],
-       ["1385-01-01", "2015-03-21", 2457103],
-       ["1386-01-01", "2016-03-20", 2457468],
-       ["1387-01-01", "2017-03-20", 2457833],
-       ["1388-01-01", "2018-03-21", 2458199],
-       ["1389-01-01", "2019-03-21", 2458564],
-       ["1390-01-01", "2020-03-20", 2458929],
-       ["1391-01-01", "2021-03-20", 2459294],
-       ["1392-01-01", "2022-03-21", 2459660],
-       ["1393-01-01", "2023-03-21", 2460025],
-       ["1394-01-01", "2024-03-20", 2460390],
-       ["1395-01-01", "2025-03-20", 2460755],
-       ["1396-01-01", "2026-03-20", 2461120],
-       ["1397-01-01", "2027-03-21", 2461486],
-       ["1398-01-01", "2028-03-20", 2461851]].each do |sample|
-        assert_equal(sample, [date.to_s, (When::Gregorian ^ date).to_s, date.to_i])
-        date += When::P1Y
-      end
-      date = When.when? '2001.3.21'
-      400.times do
-        assert_equal([1,1], (When.Calendar('Fasli') ^ date).cal_date[-2..-1])
-        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 Zoroastrian < MiniTest::TestCase
+    def test_fasli
+      date = When.when? '1366.1.1^^Fasli?location=(_co:Iranian::Tehran)'
+      [["1366-01-01", "1996-03-20", 2450163],
+       ["1367-01-01", "1997-03-20", 2450528],
+       ["1368-01-01", "1998-03-21", 2450894],
+       ["1369-01-01", "1999-03-21", 2451259],
+       ["1370-01-01", "2000-03-20", 2451624],
+       ["1371-01-01", "2001-03-20", 2451989],
+       ["1372-01-01", "2002-03-21", 2452355],
+       ["1373-01-01", "2003-03-21", 2452720],
+       ["1374-01-01", "2004-03-20", 2453085],
+       ["1375-01-01", "2005-03-20", 2453450],
+       ["1376-01-01", "2006-03-21", 2453816],
+       ["1377-01-01", "2007-03-21", 2454181],
+       ["1378-01-01", "2008-03-20", 2454546],
+       ["1379-01-01", "2009-03-20", 2454911],
+       ["1380-01-01", "2010-03-21", 2455277],
+       ["1381-01-01", "2011-03-21", 2455642],
+       ["1382-01-01", "2012-03-20", 2456007],
+       ["1383-01-01", "2013-03-20", 2456372],
+       ["1384-01-01", "2014-03-21", 2456738],
+       ["1385-01-01", "2015-03-21", 2457103],
+       ["1386-01-01", "2016-03-20", 2457468],
+       ["1387-01-01", "2017-03-20", 2457833],
+       ["1388-01-01", "2018-03-21", 2458199],
+       ["1389-01-01", "2019-03-21", 2458564],
+       ["1390-01-01", "2020-03-20", 2458929],
+       ["1391-01-01", "2021-03-20", 2459294],
+       ["1392-01-01", "2022-03-21", 2459660],
+       ["1393-01-01", "2023-03-21", 2460025],
+       ["1394-01-01", "2024-03-20", 2460390],
+       ["1395-01-01", "2025-03-20", 2460755],
+       ["1396-01-01", "2026-03-20", 2461120],
+       ["1397-01-01", "2027-03-21", 2461486],
+       ["1398-01-01", "2028-03-20", 2461851]].each do |sample|
+        assert_equal(sample, [date.to_s, (When::Gregorian ^ date).to_s, date.to_i])
+        date += When::P1Y
+      end
+      date = When.when? '2001.3.21'
+      400.times do
+        assert_equal([1,1], (When.Calendar('Fasli') ^ date).cal_date[-2..-1])
+        date += When::P1Y
+      end
+    end
+  end
+end

data/test/test/timestandard.rb CHANGED Viewed

@@ -1,81 +1,81 @@
-# -*- 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::TimeStandard
-  class UniversalTime < MiniTest::TestCase
-    def view(time)
-      return time unless time.instance_of?(When::Coordinates::LeapSeconds)
-      return [time.trunk, time.branch, time.second]
-    end
-    def test__delta_t
-      date  = When.when?('2009-01-01T00:00:00Z')
-      assert_equal("2008-12-31T23:59:01Z", (date - When::TM::IntervalLength.new(60, 'second')).to_s)
-      assert_equal("2008-12-31T23:59:00Z", (date - When::Duration('PT60S')).to_s)
-      date  = When::TM::JulianDate.dynamical_time((2500000-(When::TM::JulianDate::JD19700101-0.5))*675)
-      assert_equal(2500000.0, +date)
-      assert_equal(true, +date > date.to_f)
-      date  = When::TM::JulianDate.universal_time((2500000-(When::TM::JulianDate::JD19700101-0.5))*675)
-      assert_equal(2500000.0, date.to_f)
-      assert_equal(true, +date > date.to_f)
-      assert_equal((40 + 377.0/2048), When::TimeStandard.delta_t(When.when?('1970-01-01T').to_f))
-      date  = When.when?('2008-10-31T23:59:60Z')
-      assert_equal([[2008, 11, 1], [0, 0, 0, 0]], [date.cal_date, date.clk_time.clk_time])
-      pair  = When::Coordinates::Pair.new(1,1)
-      assert_equal([-1, -1, 1], [0.9, 1, 1.1].map {|v| v<=>pair})
-      time  = When.Resource('_t:UniversalTime')
-      date0 = When.when?('2008-12-31T23:59:58Z') ^ When.Duration('1s') # Duration('PT1S')
-      [
-        "2008-12-31T23:59:58Z",
-        "2008-12-31T23:59:59Z",
-        "2008-12-31T23:59:60Z",
-        "2009-01-01T00:00:00Z",
-        "2009-01-01T00:00:01Z"
-      ].each do |sample|
-        date = date0.next
-        assert_equal([sample, true], [date.to_s, date.universal_time == time.from_dynamical_time(date.dynamical_time)])
-      end
-      it = When::V::Event.new({
-          'rrule'   => 'FREQ=MINUTELY;BYSECOND=59,60',
-          'dtstart' => '2008-12-31T23:58:59Z'
-      }).each
-      [
-        "2008-12-31T23:58:59Z",
-        "2008-12-31T23:59:59Z",
-        "2009-01-01T00:00:59Z",
-        "2009-01-01T00:01:59Z"
-      ].each do |sample|
-        assert_equal(sample, it.next.to_s)
-      end
-      it = When::V::Event.new({
-          'rrule'   => 'FREQ=1s', #;BYSECOND=59,60',
-          'dtstart' => '2008-12-31T23:59:58Z'
-      }).each
-      [
-        "2008-12-31T23:59:58Z",
-        "2008-12-31T23:59:59Z",
-        "2008-12-31T23:59:60Z",
-        "2009-01-01T00:00:00Z",
-        "2009-01-01T00:00:01Z"
-      ].each do |sample|
-        assert_equal(sample, it.next.to_s)
-      end
-    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::TimeStandard
+  class UniversalTime < MiniTest::TestCase
+    def view(time)
+      return time unless time.instance_of?(When::Coordinates::LeapSeconds)
+      return [time.trunk, time.branch, time.second]
+    end
+    def test__delta_t
+      date  = When.when?('2009-01-01T00:00:00Z')
+      assert_equal("2008-12-31T23:59:01Z", (date - When::TM::IntervalLength.new(60, 'second')).to_s)
+      assert_equal("2008-12-31T23:59:00Z", (date - When::Duration('PT60S')).to_s)
+      date  = When::TM::JulianDate.dynamical_time((2500000-(When::TM::JulianDate::JD19700101-0.5))*675)
+      assert_equal(2500000.0, +date)
+      assert_equal(true, +date > date.to_f)
+      date  = When::TM::JulianDate.universal_time((2500000-(When::TM::JulianDate::JD19700101-0.5))*675)
+      assert_equal(2500000.0, date.to_f)
+      assert_equal(true, +date > date.to_f)
+      assert_equal((40 + 377.0/2048), When::TimeStandard.delta_t(When.when?('1970-01-01T').to_f))
+      date  = When.when?('2008-10-31T23:59:60Z')
+      assert_equal([[2008, 11, 1], [0, 0, 0, 0]], [date.cal_date, date.clk_time.clk_time])
+      pair  = When::Coordinates::Pair.new(1,1)
+      assert_equal([-1, -1, 1], [0.9, 1, 1.1].map {|v| v<=>pair})
+      time  = When.Resource('_t:UniversalTime')
+      date0 = When.when?('2008-12-31T23:59:58Z') ^ When.Duration('1s') # Duration('PT1S')
+      [
+        "2008-12-31T23:59:58Z",
+        "2008-12-31T23:59:59Z",
+        "2008-12-31T23:59:60Z",
+        "2009-01-01T00:00:00Z",
+        "2009-01-01T00:00:01Z"
+      ].each do |sample|
+        date = date0.next
+        assert_equal([sample, true], [date.to_s, date.universal_time == time.from_dynamical_time(date.dynamical_time)])
+      end
+      it = When::V::Event.new({
+          'rrule'   => 'FREQ=MINUTELY;BYSECOND=59,60',
+          'dtstart' => '2008-12-31T23:58:59Z'
+      }).each
+      [
+        "2008-12-31T23:58:59Z",
+        "2008-12-31T23:59:59Z",
+        "2009-01-01T00:00:59Z",
+        "2009-01-01T00:01:59Z"
+      ].each do |sample|
+        assert_equal(sample, it.next.to_s)
+      end
+      it = When::V::Event.new({
+          'rrule'   => 'FREQ=1s', #;BYSECOND=59,60',
+          'dtstart' => '2008-12-31T23:59:58Z'
+      }).each
+      [
+        "2008-12-31T23:59:58Z",
+        "2008-12-31T23:59:59Z",
+        "2008-12-31T23:59:60Z",
+        "2009-01-01T00:00:00Z",
+        "2009-01-01T00:00:01Z"
+      ].each do |sample|
+        assert_equal(sample, it.next.to_s)
+      end
+    end
+  end
+end