when_exe 0.2.100 → 0.3.1

data/test/examples/USA-DST.ics

@@ -0,0 +1,61 @@
+BEGIN:VCALENDAR
+# 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.
+VERSION:2.0
+PRODID:-//hacksw/handcal//NONSGML v1.0//EN
+BEGIN:VTIMEZONE
+TZID:America/#{C}
+LAST-MODIFIED:20050809T050000Z
+BEGIN:DAYLIGHT
+DTSTART:19670430T020000
+RRULE:FREQ=YEARLY;BYMONTH=4;BYDAY=-1SU;UNTIL=19730429T#{SZ}0000Z
+TZOFFSETFROM:-#{S}00
+TZOFFSETTO:-#{D}00
+TZNAME:#{Z}DT
+END:DAYLIGHT
+BEGIN:STANDARD
+DTSTART:19671029T020000
+RRULE:FREQ=YEARLY;BYMONTH=10;BYDAY=-1SU;UNTIL=20061029T#{DZ}0000Z
+TZOFFSETFROM:-#{D}00
+TZOFFSETTO:-#{S}00
+TZNAME:#{Z}ST
+END:STANDARD
+BEGIN:DAYLIGHT
+DTSTART:19740106T020000
+RDATE:19750223T020000
+TZOFFSETFROM:-#{S}00
+TZOFFSETTO:-#{D}00
+TZNAME:#{Z}DT
+END:DAYLIGHT
+BEGIN:DAYLIGHT
+DTSTART:19760425T020000
+RRULE:FREQ=YEARLY;BYMONTH=4;BYDAY=-1SU;UNTIL=19860427T#{SZ}0000Z
+TZOFFSETFROM:-#{S}00
+TZOFFSETTO:-#{D}00
+TZNAME:#{Z}DT
+END:DAYLIGHT
+BEGIN:DAYLIGHT
+DTSTART:19870405T020000
+RRULE:FREQ=YEARLY;BYMONTH=4;BYDAY=1SU;UNTIL=20060402T#{SZ}0000Z
+TZOFFSETFROM:-#{S}00
+TZOFFSETTO:-#{D}00
+TZNAME:#{Z}DT
+END:DAYLIGHT
+BEGIN:DAYLIGHT
+DTSTART:20070311T020000
+RRULE:FREQ=YEARLY;BYMONTH=3;BYDAY=2SU
+TZOFFSETFROM:-#{S}00
+TZOFFSETTO:-#{D}00
+TZNAME:#{Z}DT
+END:DAYLIGHT
+BEGIN:STANDARD
+DTSTART:20071104T020000
+RRULE:FREQ=YEARLY;BYMONTH=11;BYDAY=1SU
+TZOFFSETFROM:-#{D}00
+TZOFFSETTO:-#{S}00
+TZNAME:#{Z}ST
+END:STANDARD
+END:VTIMEZONE
+END:VCALENDAR

data/test/examples/geometric_complex.rb

@@ -0,0 +1,41 @@
+# -*- 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
+
+require 'pp'
+require 'when_exe'
+include When
+
+range_null = Parts::GeometricComplex.new()
+range_1_1  = Parts::GeometricComplex.new(1)
+range_1_4  = Parts::GeometricComplex.new(1,4)
+range_2_2  = Parts::GeometricComplex.new(2)
+range_2_3  = Parts::GeometricComplex.new(2,3)
+range_2_5  = Parts::GeometricComplex.new(2,5)
+range_4_4  = Parts::GeometricComplex.new(4)
+pp range_1_4
+pp range_2_3
+range_1_4.each {|x| pp x}
+pp range_4_4
+pp range_1_4 | range_2_3
+pp range_1_4.include?(range_2_2)
+pp range_1_4.include?(range_2_3)
+range_1_5 = range_1_4 | range_2_5
+pp range_1_5
+pp range_1_4.include?(range_2_5)
+pp range_1_4 | range_4_4
+pp range_1_4.include?(range_4_4)
+reverse_all  = Parts::GeometricComplex.new(true)
+reverse_1_4  = Parts::GeometricComplex.new(1,4, true)
+reverse_2_3  = Parts::GeometricComplex.new(2,3, true)
+reverse_2_5  = Parts::GeometricComplex.new(2,5, true)
+pp reverse_all
+pp reverse_1_4
+pp reverse_2_3
+pp reverse_2_3 | range_2_3
+pp reverse_1_4 | range_2_5
+

data/test/examples/sample.xml

@@ -0,0 +1,14 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<!-- 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. -->
+<object xmlns="http://hosi.org/When/BasicTypes/"
+          xmlns:rdfs="http://www.w3.org/2000/01/rdf-schema#"
+          xmlns:geo="http://www.w3.org/2003/01/geo/wgs84_pos#"
+          type="http://hosi.org/When/Coordinates/Spatial">
+  <rdfs:label country='Japan'>Tokyo</rdfs:label>
+  <geo:lat>N35.412011</geo:lat>
+  <geo:long>E139.421322</geo:long>
+  <geo:alt>0</geo:alt>
+  <geo:datum>JGD2000</geo:datum>
+</object>

data/test/examples/today.rb

@@ -0,0 +1,61 @@
+# -*- 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
+
+require 'pp'
+require 'when_exe'
+include When
+
+#require 'date'
+#pp now({:clock=>'+0900'}).to_date_time.strftime('%+')
+
+#=begin
+date = today
+pp [date.to_s, date.strftime('%D'), date.frame.iri, date.to_time.to_s]
+puts
+
+['Julian', 'ChineseLuniSolar?timezone=9&intercalary_span=3', 'TabularIslamic', 'Jewish', 'LongCount'].each do |calendar|
+  date = Calendar(calendar) ^ today
+  pp [date.to_s,  date.frame.iri]
+end
+puts
+
+(today ^ TM::Calendar).each do |date|
+  pp [date.to_s,  date.frame.iri]
+end
+puts
+
+pp today.month_included('SU') {|date, type|
+     case type
+     when WEEK       ; '*'
+     when YEAR,MONTH ; date.strftime("%B %Y")
+     when DAY        ; date[0]
+     else            ; ''
+     end
+   }
+puts
+
+pp when?('CE1582.10').month_included('SU') {|date, type|
+     case type
+     when WEEK       ; nil
+     when YEAR,MONTH ; date.strftime("%B %Y")
+     when DAY        ; date[0]
+     else            ; ''
+     end
+   }
+puts
+
+it = Resource("JapanHolidays.ics").enum_for(today.year_included)
+it.each do |date|
+  pp date.to_s
+end
+puts
+
+Resource("NewYork.ics")
+time = now({:clock=>'America/New_York'})
+pp [time.to_s, time.strftime('%+'), time.clock.tzname[0]]
+

data/test/test.rb

@@ -1,19 +1,54 @@
-#!/usr/bin/env ruby
-# -*- 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 COPYING file included in this archive.
-=end
-
-begin
-  require 'minitest/unit'
-  require 'minitest/autorun'
-  Test = MiniTest
-rescue LoadError
-  require 'test/unit'
-end
-
-require 'when_exe'
-require './test/tmobjects'
+#!/usr/bin/env ruby
+# -*- 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
+
+require 'pp'
+require 'date'
+begin
+  require 'minitest/unit'
+  require 'minitest/autorun'
+  Test = MiniTest
+  class Test::Unit::TestCase
+    alias :assert_raise :assert_raises
+  end
+rescue LoadError
+  require 'test/unit'
+end
+
+class Test::Unit::TestCase
+  def setup
+    When._setup_({:multi_thread=>true})
+  end
+end
+
+require 'when_exe'
+require 'when_exe/mini_application'
+#include When
+
+require './test/parts'
+require './test/basictypes'
+require './test/ephemeris'
+require './test/coordinates'
+require './test/icalendar'
+require './test/tmobjects'
+require './test/tmreference'
+require './test/tmposition'
+require './test/calendartypes'
+require './test/inspect'
+require './test/googlecalendar'
+require './test/region/m17n'
+require './test/region/residue'
+require './test/region/japanese'
+require './test/region/chinese'
+require './test/region/tibetan'
+require './test/region/thai'
+require './test/region/indian'
+require './test/region/iran'
+require './test/region/mayan'
+require './test/region/jewish'
+require './test/region/french'

data/test/test.rb.config

@@ -0,0 +1 @@
+#@:xxxxxxxx:********

data/test/test/basictypes.rb

@@ -0,0 +1,368 @@
+# -*- coding: utf-8 -*-
+=begin
+  Copyright (C) 2011-2012 Takashi SUGA
+
+  You may use and/or modify this file according to the license
+  described in the LICENSE.txt file included in this archive.
+=end
+
+module Test
+
+  module BasicTypes
+
+    #
+    # ISO 8601 Date and Time Representation
+    #
+    class DateTime < Unit::TestCase
+
+      def test__to_array_assert
+       assert_raises(TypeError)     { When::BasicTypes::DateTime._to_array(1)  }
+       assert_raises(ArgumentError) { When::BasicTypes::DateTime._to_array("") }
+      end
+
+      def test__x0301_5_2_1
+        [                                                     # 5.2.1 暦日付
+         ["19850412",                [ 0, "1985-04-12"]],     #  1 完全表記 基本形式
+         ["1985-04-12",              [ 0, "1985-04-12"]],     #  1 完全表記 拡張形式
+         ["1985-04",                 [-1, "1985-04"   ]],     #  2 a) 下位省略表記 特定の月 基本形式
+         ["1985",                    [-2, "1985"      ]],     #  2 b) 下位省略表記 特定の年 基本形式
+         ["19",                      [-4, "1900"      ]],     #  2 c) 下位省略表記 特定の百年台 基本形式
+         ["850412",                  [ 0, "1985-04-12"]],     #  3 a) 上位省略表記 ある百年代の特定の日 基本形式
+         ["85-04-12",                [ 0, "1985-04-12"]],     #  3 a) 上位省略表記 ある百年代の特定の日 拡張形式
+         ["-8504",                   [-1, "1985-04"   ]],     #  3 b) 上位省略表記 ある百年代の特定の月 基本形式
+         ["-85-04",                  [-1, "1985-04"   ]],     #  3 b) 上位省略表記 ある百年代の特定の月 拡張形式
+         ["-85",                     [-2, "1985"      ]],     #  3 c) 上位省略表記 ある百年代の特定の年 基本形式
+         ["--0412",                  [ 0, "1985-04-12"]],     #  3 d) 上位省略表記 ある年の特定の月日 基本形式
+         ["--04-12",                 [ 0, "1985-04-12"]],     #  3 d) 上位省略表記 ある年の特定の月日 拡張形式
+         ["--04",                    [-1, "1985-04"   ]],     #  3 e) 上位省略表記 ある年の特定の月 基本形式
+         ["---12",                   [ 0, "1985-04-12"]],     #  3 f) 上位省略表記 ある月の特定の日 基本形式
+         ["+0019850412",             [ 0, "1985-04-12"]],     #  4 a) 拡大表記 特定の日 基本形式
+         ["+001985-04-12",           [ 0, "1985-04-12"]],     #  4 a) 拡大表記 特定の日 拡張形式
+         ["+001985-04",              [-1, "1985-04"   ]],     #  4 b) 拡大表記 特定の月 基本形式
+         ["+001985",                 [-2, "1985"      ]],     #  4 c) 拡大表記 特定の年 基本形式
+         ["+0019",                   [-4, "1900"      ]],     #  4 d) 拡大表記 特定の百年代 基本形式
+        ].each do |sample|
+          date = When.when?(sample[0], {:abbr=>[1985,4,12]})
+          assert_equal(sample[1], [date.precision, date.to_s])
+        end
+      end
+
+      def test__x0301_5_2_2
+        [                                                     # 5.2.2 年間通算日
+         ["1985102",                 [ 0, "1985-04-12"]],     #  1 完全表記 基本形式
+         ["1985-102",                [ 0, "1985-04-12"]],     #  1 完全表記 拡張形式
+         ["85102",                   [ 0, "1985-04-12"]],     #  2 a) 上位省略表記 ある百年代の特定の年日 基本形式
+         ["85-102",                  [ 0, "1985-04-12"]],     #  2 a) 上位省略表記 ある百年代の特定の年日 拡張形式
+         ["-102",                    [ 0, "1985-04-12"]],     #  2 b) 上位省略表記 ある年の特定の日 基本形式
+         ["+001985102",              [ 0, "1985-04-12"]],     #  3 a) 拡大表記 特定の日 基本形式
+         ["+001985-102",             [ 0, "1985-04-12"]],     #  3 a) 拡大表記 特定の日 拡張形式
+        ].each do |sample|
+          date = When.when?(sample[0], {:abbr=>[1985,4,12]})
+          assert_equal(sample[1], [date.precision, date.to_s])
+        end
+      end
+
+      def test__x0301_5_2_3
+        [                                                     # 5.2.3 暦週日付
+         ["1985W155",                [ 0, "1985-04-12"]],     #  1 完全表記 基本形式
+         ["1985-W15-5",              [ 0, "1985-04-12"]],     #  1 完全表記 拡張形式
+         ["1985W15",    [ 0, "1985-04-08...1985-04-15"]],     #  2 a) 下位省略表記 基本形式
+         ["1985-W15",   [ 0, "1985-04-08...1985-04-15"]],     #  2 a) 下位省略表記 拡張形式
+         ["85W155",                  [ 0, "1985-04-12"]],     #  3 a) 上位省略表記 ある百年代における年週日 基本形式
+         ["85-W15-5",                [ 0, "1985-04-12"]],     #  3 a) 上位省略表記 ある百年代における年週日 拡張形式
+         ["85W15",      [ 0, "1985-04-08...1985-04-15"]],     #  3 b) 上位省略表記 ある百年代における年週 基本形式
+         ["85-W15",     [ 0, "1985-04-08...1985-04-15"]],     #  3 b) 上位省略表記 ある百年代における年週 拡張形式
+         ["-5W155",                  [ 0, "1985-04-12"]],     #  3 c) 上位省略表記 ある十年代における年週日 基本形式
+         ["-5-W15-5",                [ 0, "1985-04-12"]],     #  3 c) 上位省略表記 ある十年代における年週日 拡張形式
+         ["-5W15",      [ 0, "1985-04-08...1985-04-15"]],     #  3 d) 上位省略表記 ある十年代における年週 基本形式
+         ["-5-W15",     [ 0, "1985-04-08...1985-04-15"]],     #  3 d) 上位省略表記 ある十年代における年週 拡張形式
+         ["-W155",                   [ 0, "1985-04-12"]],     #  3 e) 上位省略表記 ある年の週日 基本形式
+         ["-W15-5",                  [ 0, "1985-04-12"]],     #  3 e) 上位省略表記 ある年の週日 拡張形式
+         ["-W15",       [ 0, "1985-04-08...1985-04-15"]],     #  3 f) 上位省略表記 ある年の週 基本形式
+         ["-W-5",                    [ 0, "1985-04-12"]],     #  3 g) 上位省略表記 ある週の日 基本形式
+         ["+001985W155",             [ 0, "1985-04-12"]],     #  4 a) 拡大表記 特定の日 基本形式
+         ["+001985-W15-5",           [ 0, "1985-04-12"]],     #  4 a) 拡大表記 特定の日 拡張形式
+         ["+001985W15", [ 0, "1985-04-08...1985-04-15"]],     #  4 b) 拡大表記 特定の週 基本形式
+         ["+001985-W15",[ 0, "1985-04-08...1985-04-15"]],     #  4 c) 拡大表記 特定の週 拡張形式
+        ].each do |sample|
+          date = When.when?(sample[0], {:abbr=>[1985,15,5]})
+          assert_equal(sample[1], [date.precision, date.to_s])
+        end
+      end
+
+      def test__x0301_5_2_4
+        [                                                     # 5.2.4 元号による日付
+         ["60.04.12",        [ 0, "S60(1985).04.12"]],        #  1 完全表記 基本形式
+         ["S60.04.12",       [ 0, "S60(1985).04.12"]],        #  1 完全表記 拡張形式
+        ].each do |sample|
+          date = When.when?(sample[0], {:era_name=>'S'})
+          assert_equal(sample[1], [date.precision, date.to_s])
+        end
+      end
+
+      def test__x0301_5_3_1
+        When::TM::Clock.local_time = When.utc
+
+        [                                                             # 5.3.1 地方時の時刻
+         ["T232050",                [ 3, "T23:20:50"          ]],     #  1 完全表記 基本形式
+         ["T23:20:50",              [ 3, "T23:20:50"          ]],     #  1 完全表記 拡張形式
+         ["T2320",                  [ 2, "T23:20"             ]],     #  2 a) 下位省略表記 特定の時分 基本形式
+         ["T23:20",                 [ 2, "T23:20"             ]],     #  2 a) 下位省略表記 特定の時分 拡張形式
+         ["T23",                    [ 1, "T23"                ]],     #  2 b) 下位省略表記 特定の時 基本形式
+        ].each do |sample|
+          date = When.when?(sample[0])
+          assert_equal(sample[1], [date.precision, date.to_s])
+        end
+
+        [                                                             #  3 小数点を用いる表記
+         ["T232050.5",   4,         [ 4, "T23:20:50.5"        ]],     #   a) 特定の時分秒及び秒の小数部分 基本形式
+         ["T152735,5",   4,         [ 4, "T15:27:35.5"        ]],     #   a) 特定の時分秒及び秒の小数部分 基本形式
+         ["T23:20:50.5", 4,         [ 4, "T23:20:50.5"        ]],     #   a) 特定の時分秒及び秒の小数部分 拡張形式
+         ["T2320.8",     3,         [ 3, "T23:20:48"          ]],     #   b) 特定の時分及び分の小数部分 基本形式
+         ["T23:20.8",    3,         [ 3, "T23:20:48"          ]],     #   b) 特定の時分及び分の小数部分 拡張形式
+         ["T23.3",       2,         [ 2, "T23:18"             ]],     #   c) 特定の時及び時の小数部分 基本形式
+        ].each do |sample|
+          date = When.when?(sample[0], {:precision=>sample[1]})
+          assert_equal(sample[2], [date.precision, date.to_s])
+        end
+
+        [                                                             #  4 上位省略表記
+         ["T-2050",                 [ 3, "T23:20:50"          ]],     #   a) ある時“hour”における特定の分秒 基本形式
+         ["T-:20:50",               [ 3, "T23:20:50"          ]],     #   a) ある時“hour”における特定の分秒 拡張形式
+         ["T-20",                   [ 2, "T23:20"             ]],     #   b) ある時“hour”における特定の分 基本形式
+         ["T--50",                  [ 3, "T23:20:50"          ]],     #   c) ある分の特定の秒 基本形式
+        ].each do |sample|
+          date = When.when?(sample[0], {:abbr=>[1985,4,12,23,20,50]})
+          assert_equal(sample[1], [date.precision, date.to_s])
+        end
+
+        [                                                             #  4 小数点を用いる上位省略表記
+         ["T-2050.5",    4,         [ 4, "T23:20:50.5"        ]],     #   a) ある時“hour”における特定の分秒 基本形式
+         ["T-2735,5",    4,         [ 4, "T23:27:35.5"        ]],     #   a) ある時“hour”における特定の分秒 基本形式
+         ["T-:20:50.5",  4,         [ 4, "T23:20:50.5"        ]],     #   a) ある時“hour”における特定の分秒 拡張形式
+         ["T-20.8",      3,         [ 3, "T23:20:48"          ]],     #   b) ある時“hour”における特定の分 基本形式
+         ["T--50.5",     4,         [ 4, "T23:20:50.5"        ]],     #   c) ある分の特定の秒 基本形式
+        ].each do |sample|
+          date = When.when?(sample[0], {:abbr=>[1985,4,12,23,20,50], :precision=>sample[1]})
+          assert_equal(sample[2], [date.precision, date.to_s])
+        end
+      end
+
+      def test__x0301_5_3_2
+        When::TM::Clock.local_time = When.Clock("+0900")
+        [                                                             # 5.3.2 夜の12時
+         ["19850412T240000",        [ 3, "1985-04-13T00:00:00"]],     #  完全表記 基本形式
+         ["1985-04-12T24:00:00",    [ 3, "1985-04-13T00:00:00"]],     #  完全表記 拡張形式
+         ["19850412T2400",          [ 2, "1985-04-13T00:00"   ]],     #  下位省略表記 基本形式
+         ["1985-04-12T24:00",       [ 2, "1985-04-13T00:00"   ]],     #  下位省略表記 拡張形式
+        ].each do |sample|
+          date = When.when?(sample[0])
+          assert_equal(sample[1], [date.precision, date.to_s])
+        end
+      end
+
+      def test__x0301_5_3_3
+        [                                                             # 5.3.3 協定世界時(UTC)の時刻
+         ["T232050Z",               [ 3, "T23:20:50Z"         ]],     #  1 完全表記 基本形式
+         ["T23:20:50Z",             [ 3, "T23:20:50Z"         ]],     #  1 完全表記 拡張形式
+         ["T2320Z",                 [ 2, "T23:20Z"            ]],     #  2 a) 下位省略表記 特定の時分 基本形式
+         ["T23:20Z",                [ 2, "T23:20Z"            ]],     #  2 a) 下位省略表記 特定の時分 拡張形式
+         ["T23Z",                   [ 1, "T23Z"               ]],     #  2 b) 下位省略表記 特定の時 基本形式
+        ].each do |sample|
+          date = When.when?(sample[0])
+          assert_equal(sample[1], [date.precision, date.to_s])
+        end
+
+        [                                                             #  3 小数点を用いる表記
+         ["T232050.5Z",  4,         [ 4, "T23:20:50.5Z"       ]],     #   a) 特定の時分秒及び秒の小数部分 基本形式
+         ["T23:20:50.5Z",4,         [ 4, "T23:20:50.5Z"       ]],     #   a) 特定の時分秒及び秒の小数部分 拡張形式
+         ["T2320.8Z",    3,         [ 3, "T23:20:48Z"         ]],     #   b) 特定の時分及び分の小数部分 基本形式
+         ["T23:20.8Z",   3,         [ 3, "T23:20:48Z"         ]],     #   b) 特定の時分及び分の小数部分 拡張形式
+         ["T23.3Z",      2,         [ 2, "T23:18Z"            ]],     #   c) 特定の時及び時の小数部分 基本形式
+        ].each do |sample|
+          date = When.when?(sample[0], {:precision=>sample[1]})
+          assert_equal(sample[2], [date.precision, date.to_s])
+        end
+
+        [                                                             #  4 上位省略表記
+         ["T-2050Z",                [ 3, "T23:20:50Z"         ]],     #   a) ある時“hour”における特定の分秒 基本形式
+         ["T-:20:50Z",              [ 3, "T23:20:50Z"         ]],     #   a) ある時“hour”における特定の分秒 拡張形式
+         ["T-20Z",                  [ 2, "T23:20Z"            ]],     #   b) ある時“hour”における特定の分 基本形式
+         ["T--50Z",                 [ 3, "T23:20:50Z"         ]],     #   c) ある分の特定の秒 基本形式
+        ].each do |sample|
+          date = When.when?(sample[0], {:abbr=>[1985,4,12,23,20,50]})
+          assert_equal(sample[1], [date.precision, date.to_s])
+        end
+
+        [                                                             #  4 小数点を用いる上位省略表記
+         ["T-2050.5Z",   4,         [ 4, "T23:20:50.5Z"       ]],     #   a) ある時“hour”における特定の分秒 基本形式
+         ["T-:20:50.5Z", 4,         [ 4, "T23:20:50.5Z"       ]],     #   a) ある時“hour”における特定の分秒 拡張形式
+         ["T-20.8Z",     3,         [ 3, "T23:20:48Z"         ]],     #   b) ある時“hour”における特定の分 基本形式
+         ["T--50.5Z",    4,         [ 4, "T23:20:50.5Z"       ]],     #   c) ある分の特定の秒 基本形式
+        ].each do |sample|
+          date = When.when?(sample[0], {:abbr=>[1985,4,12,23,20,50], :precision=>sample[1]})
+          assert_equal(sample[2], [date.precision, date.to_s])
+        end
+      end
+
+      def test__x0301_5_3_4
+        [                                                             # 5.3.4 地方時及び協定世界時
+         ["T+0100",                 [ 0, "T+01:00"            ]],     #  1 地方時と協定世界時との差(時差の表記) 基本形式
+         ["T+01",                   [ 0, "T+01:00"            ]],     #  1 地方時と協定世界時との差(時差の表記) 基本形式
+         ["T+01:00",                [ 0, "T+01:00"            ]],     #  1 地方時と協定世界時との差(時差の表記) 拡張形式
+         ["T152746+0100",           [ 3, "T15:27:46+01:00"    ]],     #  2 地方時と協定世界時との差(地方時の表記) 基本形式
+         ["T152746-0500",           [ 3, "T15:27:46-05:00"    ]],     #  2 地方時と協定世界時との差(地方時の表記) 基本形式
+         ["T152746+01",             [ 3, "T15:27:46+01:00"    ]],     #  2 地方時と協定世界時との差(地方時の表記) 基本形式
+         ["T152746-05",             [ 3, "T15:27:46-05:00"    ]],     #  2 地方時と協定世界時との差(地方時の表記) 基本形式
+         ["T15:27:46+01:00",        [ 3, "T15:27:46+01:00"    ]],     #  2 地方時と協定世界時との差(地方時の表記) 拡張形式
+         ["T15:27:46-05:00",        [ 3, "T15:27:46-05:00"    ]],     #  2 地方時と協定世界時との差(地方時の表記) 拡張形式
+         ["T15:27:46+01",           [ 3, "T15:27:46+01:00"    ]],     #  2 地方時と協定世界時との差(地方時の表記) 拡張形式
+         ["T15:27:46-05",           [ 3, "T15:27:46-05:00"    ]],     #  2 地方時と協定世界時との差(地方時の表記) 拡張形式
+        ].each do |sample|
+          date = When.when?(sample[0])
+          assert_equal(sample[1], [date.precision, date.to_s])
+        end
+      end
+
+      def test__x0301_5_4_2
+        When::TM::Clock.local_time = When.Clock("+0900")
+        [                                                             # 5.4.2 完全表記以外の表記
+         ["19850412T1015",         [ 2, "1985-04-12T10:15"       ]],  #  a) 暦日付及び地方時 基本形式
+         ["1985-04-12T10:15",      [ 2, "1985-04-12T10:15"       ]],  #  a) 暦日付及び地方時 拡張形式
+         ["1985102T1015Z",         [ 2, "1985-04-12T10:15Z"      ]],  #  b) 年間通算日及び協定世界時 基本形式
+         ["1985-102T10:15Z",       [ 2, "1985-04-12T10:15Z"      ]],  #  b) 年間通算日及び協定世界時 拡張形式
+         ["1985W155T1015+0400",    [ 2, "1985-04-12T10:15+04:00" ]],  #  c) 暦週日付,地方時,及びUTCとの差 基本形式
+         ["1985-W15-5T10:15+04:00",[ 2, "1985-04-12T10:15+04:00" ]],  #  c) 暦週日付,地方時,及びUTCとの差 拡張形式
+        ].each do |sample|
+          date = When.when?(sample[0])
+          assert_equal(sample[1], [date.precision, date.to_s])
+        end
+      end
+
+      def test__x0301_5_5_4
+        When::TM::Clock.local_time = When.Clock("+0900")                                           # 時間間隔の表記
+        [                                                                                          # 5.5.4 完全表記
+         ["19850412T232050/19850625T103000",         "1985-04-12T23:20:50..1985-06-25T10:30:00" ], #  1 始点及び終点 基本形式
+         ["1985-04-12T23:20:50/1985-06-25T10:30:00", "1985-04-12T23:20:50..1985-06-25T10:30:00" ], #  1 始点及び終点 拡張形式
+         ["P2Y10M15DT10H30M20S",                     "P2Y10M15DT10H30M20S"                      ], #  2.1 時間の単位の指示記号付
+         ["P6W",                                     "P6W"                                      ], #  2.1 時間の単位の指示記号付
+         ["P1Y6M",                                   "P1Y6M"                                    ], #  2.1 時間の単位の指示記号付
+         ["PT72H",                                   "PT72H"                                    ], #  2.1 時間の単位の指示記号付
+         ["P00021015T103020",                        "P2Y10M15DT10H30M20S"                      ], #  2.2 代用形式 基本形式
+         ["P0001-06",                                "P1Y6M"                                    ], #  2.2 代用形式 基本形式
+         ["P010600",                                 "P1Y6M"                                    ], #  2.2 代用形式 基本形式
+         ["P0002-10-15T10:30:20",                    "P2Y10M15DT10H30M20S"                      ], #  2.2 代用形式 拡張形式
+         ["19850412T232050/P1Y2M15DT12H30M0S",       "1985-04-12T23:20:50...1986-06-28T11:50:50"], #  3 始点及び時間長 基本形式
+         ["19850412T232050/P00010215T123000",        "1985-04-12T23:20:50...1986-06-28T11:50:50"], #  3 始点及び時間長 基本形式
+         ["1985-04-12T23:20:50/P1Y2M15DT12H30M0S",   "1985-04-12T23:20:50...1986-06-28T11:50:50"], #  3 始点及び時間長 拡張形式
+         ["1985-04-12T23:20:50/P0001-02-15T12:30:00","1985-04-12T23:20:50...1986-06-28T11:50:50"], #  3 始点及び時間長 拡張形式
+         ["P1Y2M15DT12H30M0S/19850412T232050",       "1984-01-28T10:50:50..1985-04-12T23:20:50" ], #  4 時間長及び終点 基本形式
+         ["P00010215T123000/19850412T232050",        "1984-01-28T10:50:50..1985-04-12T23:20:50" ], #  4 時間長及び終点 基本形式
+         ["P1Y2M15DT12H30M0S/1985-04-12T23:20:50",   "1984-01-28T10:50:50..1985-04-12T23:20:50" ], #  4 時間長及び終点 拡張形式
+         ["P0001-02-15T12:30:00/1985-04-12T23:20:50","1984-01-28T10:50:50..1985-04-12T23:20:50" ], #  4 時間長及び終点 拡張形式
+        ].each do |sample|
+          assert_equal(sample[1], When.when?(sample[0]).to_s)
+        end
+      end
+
+      def test__x0301_5_6_3
+        When::TM::Clock.local_time = When.Clock("+0900")                                           # 反復時間間隔の表記
+        [                                                                                          # 5.6.3 完全表記
+         ["R2/19850412T232050/19850625T103000",    ["1985-04-12T23:20:50","1985-06-25T10:30:00"]], #  始点及び終点
+         ["R2/P2Y10M15DT10H30M20S",                ["P2Y10M15DT10H30M20S","P2Y10M15DT10H30M20S"]], #  時間間隔
+         ["R2/19850412T232050/P1Y2M15DT12H30M0S",  ["1985-04-12T23:20:50","1986-06-28T11:50:50"]], #  始点及び時間間隔
+         ["R2/P1Y2M15DT12H30M0S/19850412T232050",  ["1984-01-28T10:50:50","1985-04-12T23:20:50"]], #  時間間隔及び終点
+        ].each do |sample|
+          event = When.when?(sample[0])
+          sample[1].each do |date|
+            assert_equal(date, event.shift.to_s)
+          end
+        end
+        [                                                                                          # 5.6.3 完全表記
+         ["R/19850412T232050/19850625T103000",     ["1985-04-12T23:20:50","1985-06-25T10:30:00"]], #  始点及び終点
+         ["R/19850412T232050/P1Y2M15DT12H30M0S",   ["1985-04-12T23:20:50","1986-06-28T11:50:50"]], #  始点及び時間間隔
+        ].each do |sample|
+          event = When.when?(sample[0]).each
+          sample[1].each do |date|
+            assert_equal(date, event.succ.to_s)
+          end
+        end
+      end
+    end
+
+    #
+    # ISO 8601 Date Representation
+    #
+    class Date < Unit::TestCase
+      def test__to_array_basic_ISO8601
+        assert_equal([nil, [1985,4,12]], When::BasicTypes::Date._to_array_basic_ISO8601('19850412'))
+        assert_equal([nil, [1985]], When::BasicTypes::Date._to_array_basic_ISO8601('1985'))
+        assert_equal([:century, [1900]], When::BasicTypes::Date._to_array_basic_ISO8601('19'))
+      end
+
+      def test__to_array_extended_ISO8601
+        assert_equal([nil, [1985,4,12]], When::BasicTypes::Date._to_array_extended_ISO8601('1985-04-12'))
+        assert_equal([nil, [1985,4]], When::BasicTypes::Date._to_array_extended_ISO8601('1985-04'))
+        # assert_equal([19,nil,nil], When::BasicTypes::Date._to_array_extended_ISO8601('19'))
+      end
+    end
+
+    #
+    # ISO 8601 Time Representation
+    #
+    class Time < Unit::TestCase
+      def test_nothing
+      end
+    end
+
+    #
+    # M17n String
+    #
+    class M17n < Unit::TestCase
+      Term1 = When::BasicTypes::M17n.new('Tokyo', 'zip')
+      Term2 = When::BasicTypes::M17n.new(<<LABEL, <<NS, <<LOCALE)
+[
+Getsuyou
+Monday
+]
+LABEL
+ISO, jwiki=http://ja.wikipedia.org/wiki/, ewiki=http://en.wikipedia.org/wiki/
+NS
+=jwiki:, en=ewiki:
+LOCALE
+      Term3 = When.Resource('_co:CommonResidue::Week::Monday::Monday')
+
+      def test__code_space
+        assert_equal('zip', Term1.codeSpace)
+        assert_equal("ISO", Term2.codeSpace)
+        assert_equal(nil, Term3.codeSpace)
+      end
+
+      def test__label
+        assert_equal("Getsuyou", Term2.label)
+        assert_equal(String, Term2.label.class)
+        assert_equal("Monday", Term3.label)
+      end
+    end
+
+    class Object < Unit::TestCase
+      def test_nothing
+      end
+    end
+
+  end
+
+  module RS
+    class Identifier < Unit::TestCase
+      def test_nothing
+      end
+    end
+  end
+
+  module EX
+    class Extent < Unit::TestCase
+      def test_nothing
+      end
+    end
+  end
+end