[ruby-dev:23045] Re: rss/dublincore.rb: dc:date format

須藤です．

In <2f3e01c3fcf4$7b0809d0$[e-mail]>
  "[ruby-dev:23039] rss/dublincore.rb: dc:date format" on Fri, 27 Feb 2004 16:36:57 +0900,
  "NAKAMURA, Hiroshi" <[e-mail]> wrote:
> 0$ ruby -rrss/dublincore -e 'p RSS::RDF::Channel.new(true).dc_date = "2004-01-01T01:01Z"'
> (eval):7:8:in `dc_date=': value <2004-01-01T01:01Z> of tag <date> is not available. (RSS::NotAvailableValueError)
>         from -e:1
> 
> と、validateをonにした状態で、W3DTF: http://www.w3.org/TR/NOTE-datetime
> のYYYY-MM-DDThh:mmTZDをparseさせるとエラーになります。

これは，ISO 8601形式の時刻のパースをTime#iso8601に丸なげして
いて，Time#iso8601がこの形式にエラーを出すからです．
# 責任転嫁しているようですいません．

前から気づいていて最初のころはtime.rbを書き直したりしていた
んですが，最近は面倒になって放置していました．

せっかくなので書き直してみました．
以下のようになります．

  * YYYY-MM-DDThh:mm:ss => エラー
  * YYYY-MM-DDThh:mm:ss.Z => エラー
  * YYYY-MM-DDThh:mmZ => 受理

> また、最後のZがない場合に、エラーにならないようです。

YYYY-MM-DDThh:mm:ssということですよね？
最初，2004-01-01T01:01はエラーになるなぁとか思ってしまいまし
た．


Index: lib/time.rb
===================================================================
RCS file: /src/ruby/lib/time.rb,v
retrieving revision 1.18
diff -u -p -r1.18 time.rb
--- lib/time.rb	11 Feb 2004 17:36:36 -0000	1.18
+++ lib/time.rb	27 Feb 2004 14:58:27 -0000
@@ -274,11 +274,11 @@ class Time
     def xmlschema(date)
       if /\A\s*
           (-?\d+)-(\d\d)-(\d\d)
-          T
-          (\d\d):(\d\d):(\d\d)
-          (\.\d*)?
-          (Z|[+-]\d\d:\d\d)?
-          \s*\z/ix =~ date
+          (?:T
+          (\d\d):(\d\d)(?::(\d\d))?
+          (\.\d+)?
+          (Z|[+-]\d\d:\d\d)?)?
+          \s*\z/ix =~ date and (($5 and $8) or (!$5 and !$8))
 	datetime = [$1.to_i, $2.to_i, $3.to_i, $4.to_i, $5.to_i, $6.to_i] 
 	datetime << $7.to_f * 1000000 if $7
 	if $8
@@ -480,8 +480,9 @@ if __FILE__ == $0
     def test_xmlschema
       assert_equal(Time.utc(1999, 5, 31, 13, 20, 0) + 5 * 3600,
                    Time.xmlschema("1999-05-31T13:20:00-05:00"))
-      assert_equal(Time.local(2000, 1, 20, 12, 0, 0),
-                   Time.xmlschema("2000-01-20T12:00:00"))
+      assert_raise(ArgumentError) {
+        Time.xmlschema("2000-01-20T12:00:00")
+      }
       assert_equal(Time.utc(2000, 1, 20, 12, 0, 0),
                    Time.xmlschema("2000-01-20T12:00:00Z"))
       assert_equal(Time.utc(2000, 1, 20, 12, 0, 0) - 12 * 3600,
@@ -492,26 +493,42 @@ if __FILE__ == $0
                    Time.xmlschema("2000-03-04T23:00:00+03:00"))
       assert_equal(Time.utc(2000, 3, 4, 20, 0, 0),
                    Time.xmlschema("2000-03-04T20:00:00Z"))
-      assert_equal(Time.local(2000, 1, 15, 0, 0, 0),
-                   Time.xmlschema("2000-01-15T00:00:00"))
-      assert_equal(Time.local(2000, 2, 15, 0, 0, 0),
-                   Time.xmlschema("2000-02-15T00:00:00"))
-      assert_equal(Time.local(2000, 1, 15, 12, 0, 0),
-                   Time.xmlschema("2000-01-15T12:00:00"))
+      assert_raise(ArgumentError) {
+        Time.xmlschema("2000-01-15T00:00:00")
+      }
+      assert_raise(ArgumentError) {
+        Time.xmlschema("2000-02-15T00:00:00")
+      }
+      assert_raise(ArgumentError) {
+        Time.xmlschema("2000-01-15T12:00:00")
+      }
       assert_equal(Time.utc(2000, 1, 16, 12, 0, 0),
                    Time.xmlschema("2000-01-16T12:00:00Z"))
-      assert_equal(Time.local(2000, 1, 1, 12, 0, 0),
-                   Time.xmlschema("2000-01-01T12:00:00"))
+      assert_raise(ArgumentError) {
+        Time.xmlschema("2000-01-01T12:00:00")
+      }
       assert_equal(Time.utc(1999, 12, 31, 23, 0, 0),
                    Time.xmlschema("1999-12-31T23:00:00Z"))
-      assert_equal(Time.local(2000, 1, 16, 12, 0, 0),
-                   Time.xmlschema("2000-01-16T12:00:00"))
-      assert_equal(Time.local(2000, 1, 16, 0, 0, 0),
-                   Time.xmlschema("2000-01-16T00:00:00"))
+      assert_raise(ArgumentError) {
+        Time.xmlschema("2000-01-16T12:00:00")
+      }
+      assert_raise(ArgumentError) {
+        Time.xmlschema("2000-01-16T00:00:00")
+      }
       assert_equal(Time.utc(2000, 1, 12, 12, 13, 14),
                    Time.xmlschema("2000-01-12T12:13:14Z"))
       assert_equal(Time.utc(2001, 4, 17, 19, 23, 17, 300000),
 		   Time.xmlschema("2001-04-17T19:23:17.3Z"))
+      assert_raise(ArgumentError) {
+        Time.xmlschema("2001-04-17T19:23:17.Z")
+      }
+      assert_equal(Time.local(2001, 4, 17, 0, 0, 0, 0),
+                   Time.xmlschema("2001-04-17"))
+      assert_equal(Time.utc(2001, 4, 17, 19, 23, 0, 0),
+                   Time.xmlschema("2001-04-17T19:23Z"))
+      assert_raise(ArgumentError) {
+        Time.xmlschema("2001-04-17T19:23")
+      }
     end
 
     def test_encode_xmlschema