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

when_exe 0.4.2 → 0.4.3

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

Files changed (54) hide show

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

data/test/test/region/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