[前][次][番号順一覧][スレッド一覧]

ruby-changes:8083

From: tadf <ko1@a...>
Date: Sun, 28 Sep 2008 19:08:12 +0900 (JST)
Subject: [ruby-changes:8083] Ruby:r19609 (trunk): * test/date/*.rb: imported a date test suite ruby 1.9 limited ed.

tadf	2008-09-28 19:06:13 +0900 (Sun, 28 Sep 2008)

  New Revision: 19609

  http://svn.ruby-lang.org/cgi-bin/viewvc.cgi?view=rev&revision=19609

  Log:
    * test/date/*.rb: imported a date test suite ruby 1.9 limited ed.

  Added directories:
    trunk/test/date/
  Added files:
    trunk/test/date/test_date.rb
    trunk/test/date/test_date_arith.rb
    trunk/test/date/test_date_attr.rb
    trunk/test/date/test_date_base.rb
    trunk/test/date/test_date_marshal.rb
    trunk/test/date/test_date_new.rb
    trunk/test/date/test_date_parse.rb
    trunk/test/date/test_date_strftime.rb
    trunk/test/date/test_date_strptime.rb
  Modified files:
    trunk/ChangeLog

Index: ChangeLog
===================================================================
--- ChangeLog	(revision 19608)
+++ ChangeLog	(revision 19609)
@@ -1,3 +1,7 @@
+Sun Sep 28 19:04:03 2008  Tadayoshi Funaba  <tadf@d...>
+
+	* test/date/*.rb: imported a date test suite ruby 1.9 limited ed.
+
 Sun Sep 28 18:40:49 2008  Nobuyoshi Nakada  <nobu@r...>
 
 	* lib/mini/test.rb (MINI_DIR): loaded path is expanded.
Index: test/date/test_date_arith.rb
===================================================================
--- test/date/test_date_arith.rb	(revision 0)
+++ test/date/test_date_arith.rb	(revision 19609)
@@ -0,0 +1,286 @@
+require 'test/unit'
+require 'date'
+
+class TestDateArith < Test::Unit::TestCase
+
+  def new_offset
+    d = DateTime.new(2002, 3, 14)
+    assert_equal(Rational(9, 24), d.new_offset(Rational(9, 24)).offset)
+    assert_equal(Rational(9, 24), d.new_offset('+0900').offset)
+  end
+
+  def test__plus
+    d = Date.new(2000,2,29) + -1
+    assert_equal([2000, 2, 28], [d.year, d.mon, d.mday])
+    d = Date.new(2000,2,29) + 0
+    assert_equal([2000, 2, 29], [d.year, d.mon, d.mday])
+    d = Date.new(2000,2,29) + 1
+    assert_equal([2000, 3, 1], [d.year, d.mon, d.mday])
+
+    d = DateTime.new(2000,2,29) + 1.to_r/2
+    assert_equal([2000, 2, 29, 12, 0, 0],
+		 [d.year, d.mon, d.mday, d.hour, d.min, d.sec])
+  end
+
+  def test__plus__ex
+    e = TypeError
+    assert_raise(e) do
+      Date.new(2000,2,29) + 'foo'
+    end
+    assert_raise(e) do
+      DateTime.new(2000,2,29) + 'foo'
+    end
+    assert_raise(e) do
+      Date.new(2000,2,29) + Time.mktime(2000,2,29)
+    end
+    assert_raise(e) do
+      DateTime.new(2000,2,29) + Time.mktime(2000,2,29)
+    end
+  end
+
+  def test__minus
+    d = Date.new(2000,3,1) - -1
+    assert_equal([2000, 3, 2], [d.year, d.mon, d.mday])
+    d = Date.new(2000,3,1) - 0
+    assert_equal([2000, 3, 1], [d.year, d.mon, d.mday])
+    d = Date.new(2000,3,1) - 1
+    assert_equal([2000, 2, 29], [d.year, d.mon, d.mday])
+
+    d = Date.new(2000,3,1) - Date.new(2000,2,29)
+    assert_equal(1, d)
+    d = Date.new(2000,2,29) - Date.new(2000,3,1)
+    assert_equal(-1, d)
+
+    d = DateTime.new(2000,3,1) - 1.to_r/2
+    assert_equal([2000, 2, 29, 12, 0, 0],
+		 [d.year, d.mon, d.mday, d.hour, d.min, d.sec])
+  end
+
+  def test__minus__ex
+    e = TypeError
+    assert_raise(e) do
+      Date.new(2000,2,29) - 'foo'
+    end
+    assert_raise(e) do
+      DateTime.new(2000,2,29) - 'foo'
+    end
+    assert_raise(e) do
+      Date.new(2000,2,29) - Time.mktime(2000,2,29)
+    end
+    assert_raise(e) do
+      DateTime.new(2000,2,29) - Time.mktime(2000,2,29)
+    end
+  end
+
+  def test__compare
+    assert_equal(0, (Date.new(2000,1,1) <=> Date.new(2000,1,1)))
+    assert_equal(-1, (Date.new(2000,1,1) <=> Date.new(2000,1,2)))
+    assert_equal(1, (Date.new(2000,1,2) <=> Date.new(2000,1,1)))
+    assert_equal(0, (Date.new(2001,1,4,Date::JULIAN) <=>
+		     Date.new(2001,1,17, Date::GREGORIAN)))
+    assert_equal(0, (DateTime.new(2001,1,4,0,0,0,0,Date::JULIAN) <=>
+		     DateTime.new(2001,1,17,0,0,0,0,Date::GREGORIAN)))
+  end
+
+  def test_prev
+    d = Date.new(2000,1,1)
+    assert_raise(NoMethodError) do
+      d.prev
+    end
+  end
+
+  def test_prev_day
+    d = Date.new(2001,1,1).prev_day
+    assert_equal([2000, 12, 31], [d.year, d.mon, d.mday])
+    d = Date.new(2001,1,1).prev_day(2)
+    assert_equal([2000, 12, 30], [d.year, d.mon, d.mday])
+    d = Date.new(2000,12,31).prev_day(-2)
+    assert_equal([2001, 1, 2], [d.year, d.mon, d.mday])
+
+    d = DateTime.new(2000,3,1).prev_day(1.to_r/2)
+    assert_equal([2000, 2, 29, 12, 0, 0], [d.year, d.mon, d.mday, d.hour, d.min, d.sec])
+  end
+
+  def test_prev_month
+    d = Date.new(2000,1,31) << -1
+    assert_equal([2000, 2, 29], [d.year, d.mon, d.mday])
+    d = Date.new(2000,1,31) << 1
+    assert_equal([1999, 12, 31], [d.year, d.mon, d.mday])
+    d = Date.new(2000,1,31) << 12
+    assert_equal([1999, 1, 31], [d.year, d.mon, d.mday])
+    d = Date.new(2000,1,31) << 14
+    assert_equal([1998, 11, 30], [d.year, d.mon, d.mday])
+
+  end
+
+  def test_prev_month__2
+    d = Date.new(2000,1,31).prev_month(-1)
+    assert_equal([2000, 2, 29], [d.year, d.mon, d.mday])
+    d = Date.new(2000,1,31).prev_month
+    assert_equal([1999, 12, 31], [d.year, d.mon, d.mday])
+    d = Date.new(2000,1,31).prev_month(12)
+    assert_equal([1999, 1, 31], [d.year, d.mon, d.mday])
+    d = Date.new(2000,1,31).prev_month(14)
+    assert_equal([1998, 11, 30], [d.year, d.mon, d.mday])
+  end
+
+  def test_prev_year
+    d = Date.new(2000,1,31).prev_year(-1)
+    assert_equal([2001, 1, 31], [d.year, d.mon, d.mday])
+    d = Date.new(2000,1,31).prev_year
+    assert_equal([1999, 1, 31], [d.year, d.mon, d.mday])
+    d = Date.new(2000,1,31).prev_year(10)
+    assert_equal([1990, 1, 31], [d.year, d.mon, d.mday])
+    d = Date.new(2000,1,31).prev_year(100)
+    assert_equal([1900, 1, 31], [d.year, d.mon, d.mday])
+  end
+
+  def test_next
+    d = Date.new(2000,12,31).next
+    assert_equal([2001, 1, 1], [d.year, d.mon, d.mday])
+    d = Date.new(2000,12,31).succ
+    assert_equal([2001, 1, 1], [d.year, d.mon, d.mday])
+
+    d = Date.today
+    d2 = d.next
+    assert_equal(d, (d2 - 1))
+    d = Date.today
+    d2 = d.succ
+    assert_equal(d, (d2 - 1))
+
+    d = DateTime.now
+    d2 = d.next
+    assert_equal(d, (d2 - 1))
+    d = DateTime.now
+    d2 = d.succ
+    assert_equal(d, (d2 - 1))
+  end
+
+  def test_next_day
+    d = Date.new(2000,12,31).next_day
+    assert_equal([2001, 1, 1], [d.year, d.mon, d.mday])
+    d = Date.new(2000,12,31).next_day(2)
+    assert_equal([2001, 1, 2], [d.year, d.mon, d.mday])
+    d = Date.new(2001,1,1).next_day(-2)
+    assert_equal([2000, 12, 30], [d.year, d.mon, d.mday])
+
+    d = DateTime.new(2000,2,29).next_day(1.to_r/2)
+    assert_equal([2000, 2, 29, 12, 0, 0], [d.year, d.mon, d.mday, d.hour, d.min, d.sec])
+  end
+
+  def test_next_month
+    d = Date.new(2000,1,31) >> -1
+    assert_equal([1999, 12, 31], [d.year, d.mon, d.mday])
+    d = Date.new(2000,1,31) >> 1
+    assert_equal([2000, 2, 29], [d.year, d.mon, d.mday])
+    d = Date.new(2000,1,31) >> 12
+    assert_equal([2001, 1, 31], [d.year, d.mon, d.mday])
+    d = Date.new(2000,1,31) >> 13
+    assert_equal([2001, 2, 28], [d.year, d.mon, d.mday])
+  end
+
+  def test_next_month__2
+    d = Date.new(2000,1,31).next_month(-1)
+    assert_equal([1999, 12, 31], [d.year, d.mon, d.mday])
+    d = Date.new(2000,1,31).next_month
+    assert_equal([2000, 2, 29], [d.year, d.mon, d.mday])
+    d = Date.new(2000,1,31).next_month(12)
+    assert_equal([2001, 1, 31], [d.year, d.mon, d.mday])
+    d = Date.new(2000,1,31).next_month(13)
+    assert_equal([2001, 2, 28], [d.year, d.mon, d.mday])
+  end
+
+  def test_next_year
+    d = Date.new(2000,1,31).next_year(-1)
+    assert_equal([1999, 1, 31], [d.year, d.mon, d.mday])
+    d = Date.new(2000,1,31).next_year
+    assert_equal([2001, 1, 31], [d.year, d.mon, d.mday])
+    d = Date.new(2000,1,31).next_year(10)
+    assert_equal([2010, 1, 31], [d.year, d.mon, d.mday])
+    d = Date.new(2000,1,31).next_year(100)
+    assert_equal([2100, 1, 31], [d.year, d.mon, d.mday])
+  end
+
+  def test_downto
+    p = Date.new(2001,1,14)
+    q = Date.new(2001,1,7)
+    i = 0
+    p.downto(q) do |d|
+      i += 1
+    end
+    assert_equal(8, i)
+  end
+
+  def test_downto__noblock
+    p = Date.new(2001,1,14)
+    q = Date.new(2001,1,7)
+    e = p.downto(q)
+    assert_equal(8, e.to_a.size)
+  end
+
+  def test_upto
+    p = Date.new(2001,1,14)
+    q = Date.new(2001,1,21)
+    i = 0
+    p.upto(q) do |d|
+      i += 1
+    end
+    assert_equal(8, i)
+  end
+
+  def test_upto__noblock
+    p = Date.new(2001,1,14)
+    q = Date.new(2001,1,21)
+    e = p.upto(q)
+    assert_equal(8, e.to_a.size)
+  end
+
+  def test_step
+    p = Date.new(2001,1,14)
+    q = Date.new(2001,1,21)
+    i = 0
+    p.step(q, 2) do |d|
+      i += 1
+    end
+    assert_equal(4, i)
+
+    i = 0
+    p.step(q) do |d|
+      i += 1
+    end
+    assert_equal(8, i)
+  end
+
+  def test_step__noblock
+    p = Date.new(2001,1,14)
+    q = Date.new(2001,1,21)
+    e = p.step(q, 2)
+    assert_equal(4, e.to_a.size)
+
+    e = p.step(q)
+    assert_equal(8, e.to_a.size)
+  end
+
+=begin
+  def test_step__inf
+    p = Date.new(2001,1,14)
+    q = Date.new(2001,1,21)
+    inf = 1.0/0
+
+    if inf.infinite?
+      [p, q].each do |a|
+	[p, q].each do |b|
+	  [inf, -inf].each do |c|
+	    i = 0
+	    a.step(b, c) do |d|
+	      i += 1
+	    end
+	    assert_equal(0, i)
+	  end
+	end
+      end
+    end
+  end
+=end
+
+end

Property changes on: test/date/test_date_arith.rb
___________________________________________________________________
Name: svn:mime-type
   + text/plain
Name: svn:eol-style
   + LF

Index: test/date/test_date_marshal.rb
===================================================================
--- test/date/test_date_marshal.rb	(revision 0)
+++ test/date/test_date_marshal.rb	(revision 19609)
@@ -0,0 +1,29 @@
+require 'test/unit'
+require 'date'
+
+class TestDateMarshal < Test::Unit::TestCase
+
+  def test_marshal
+    d = Date.new
+    m = Marshal.dump(d)
+    d2 = Marshal.load(m)
+    assert_equal(d, d2)
+    assert_equal(d.start, d2.start)
+    assert_instance_of(String, d2.to_s)
+
+    d = Date.today
+    m = Marshal.dump(d)
+    d2 = Marshal.load(m)
+    assert_equal(d, d2)
+    assert_equal(d.start, d2.start)
+    assert_instance_of(String, d2.to_s)
+
+    d = DateTime.now
+    m = Marshal.dump(d)
+    d2 = Marshal.load(m)
+    assert_equal(d, d2)
+    assert_equal(d.start, d2.start)
+    assert_instance_of(String, d2.to_s)
+  end
+
+end

Property changes on: test/date/test_date_marshal.rb
___________________________________________________________________
Name: svn:mime-type
   + text/plain
Name: svn:eol-style
   + LF

Index: test/date/test_date_strptime.rb
===================================================================
--- test/date/test_date_strptime.rb	(revision 0)
+++ test/date/test_date_strptime.rb	(revision 19609)
@@ -0,0 +1,469 @@
+require 'test/unit'
+require 'date'
+
+class TestDateStrptime < Test::Unit::TestCase
+
+  STRFTIME_2001_02_03 = {
+    '%A'=>['Saturday',{:wday=>6}],
+    '%a'=>['Sat',{:wday=>6}],
+    '%B'=>['February',{:mon=>2}],
+    '%b'=>['Feb',{:mon=>2}],
+    '%c'=>['Sat Feb  3 00:00:00 2001',
+      {:wday=>6,:mon=>2,:mday=>3,:hour=>0,:min=>0,:sec=>0,:year=>2001}],
+    '%d'=>['03',{:mday=>3}],
+    '%e'=>[' 3',{:mday=>3}],
+    '%H'=>['00',{:hour=>0}],
+    '%I'=>['12',{:hour=>0}],
+    '%j'=>['034',{:yday=>34}],
+    '%M'=>['00',{:min=>0}],
+    '%m'=>['02',{:mon=>2}],
+    '%p'=>['AM',{}],
+    '%S'=>['00',{:sec=>0}],
+    '%U'=>['04',{:wnum0=>4}],
+    '%W'=>['05',{:wnum1=>5}],
+    '%X'=>['00:00:00',{:hour=>0,:min=>0,:sec=>0}],
+    '%x'=>['02/03/01',{:mon=>2,:mday=>3,:year=>2001}],
+    '%Y'=>['2001',{:year=>2001}],
+    '%y'=>['01',{:year=>2001}],
+    '%Z'=>['+00:00',{:zone=>'+00:00',:offset=>0}],
+    '%%'=>['%',{}],
+    '%C'=>['20',{}],
+    '%D'=>['02/03/01',{:mon=>2,:mday=>3,:year=>2001}],
+    '%F'=>['2001-02-03',{:year=>2001,:mon=>2,:mday=>3}],
+    '%G'=>['2001',{:cwyear=>2001}],
+    '%g'=>['01',{:cwyear=>2001}],
+    '%h'=>['Feb',{:mon=>2}],
+    '%k'=>[' 0',{:hour=>0}],
+    '%L'=>['000',{:sec_fraction=>0}],
+    '%l'=>['12',{:hour=>0}],
+    '%N'=>['000000000',{:sec_fraction=>0}],
+    '%n'=>["\n",{}],
+    '%P'=>['am',{}],
+    '%Q'=>['981158400000',{:seconds=>981158400.to_r}],
+    '%R'=>['00:00',{:hour=>0,:min=>0}],
+    '%r'=>['12:00:00 AM',{:hour=>0,:min=>0,:sec=>0}],
+    '%s'=>['981158400',{:seconds=>981158400}],
+    '%T'=>['00:00:00',{:hour=>0,:min=>0,:sec=>0}],
+    '%t'=>["\t",{}],
+    '%u'=>['6',{:cwday=>6}],
+    '%V'=>['05',{:cweek=>5}],
+    '%v'=>[' 3-Feb-2001',{:mday=>3,:mon=>2,:year=>2001}],
+    '%z'=>['+0000',{:zone=>'+0000',:offset=>0}],
+    '%+'=>['Sat Feb  3 00:00:00 +00:00 2001',
+      {:wday=>6,:mon=>2,:mday=>3,
+	:hour=>0,:min=>0,:sec=>0,:zone=>'+00:00',:offset=>0,:year=>2001}],
+  }
+
+  STRFTIME_2001_02_03_CVS19 = {
+  }
+
+  STRFTIME_2001_02_03_GNUext = {
+    '%:z'=>['+00:00',{:zone=>'+00:00',:offset=>0}],
+    '%::z'=>['+00:00:00',{:zone=>'+00:00:00',:offset=>0}],
+    '%:::z'=>['+00',{:zone=>'+00',:offset=>0}],
+  }
+
+  STRFTIME_2001_02_03.update(STRFTIME_2001_02_03_CVS19)
+  STRFTIME_2001_02_03.update(STRFTIME_2001_02_03_GNUext)
+
+  def test__strptime
+    STRFTIME_2001_02_03.each do |f, s|
+      if (f == '%I' and s[0] == '12') or
+	 (f == '%l' and s[0] == '12') # hour w/o merid
+	s[1][:hour] = 12
+      end
+      assert_equal(s[1], Date._strptime(s[0], f), [f, s].inspect)
+      case f[-1,1]
+      when 'c', 'C', 'x', 'X', 'y', 'Y'
+	f2 = f.sub(/\A%/, '%E')
+	assert_equal(s[1], Date._strptime(s[0], f2), [f2, s].inspect)
+      else
+	f2 = f.sub(/\A%/, '%E')
+	assert_equal(nil, Date._strptime(s[0], f2), [f2, s].inspect)
+	assert_equal({}, Date._strptime(f2, f2), [f2, s].inspect)
+      end
+      case f[-1,1]
+      when 'd', 'e', 'H', 'I', 'm', 'M', 'S', 'u', 'U', 'V', 'w', 'W', 'y'
+	f2 = f.sub(/\A%/, '%O')
+	assert_equal(s[1], Date._strptime(s[0], f2), [f2, s].inspect)
+      else
+	f2 = f.sub(/\A%/, '%O')
+	assert_equal(nil, Date._strptime(s[0], f2), [f2, s].inspect)
+	assert_equal({}, Date._strptime(f2, f2), [f2, s].inspect)
+      end
+    end
+  end
+
+  def test__strptime__2
+    h = Date._strptime('2001-02-03')
+    assert_equal([2001,2,3], h.values_at(:year,:mon,:mday))
+
+    h = DateTime._strptime('2001-02-03T12:13:14Z')
+    assert_equal([2001,2,3,12,13,14],
+		 h.values_at(:year,:mon,:mday,:hour,:min,:sec))
+
+    assert_equal({}, Date._strptime('', ''))
+    assert_equal({:leftover=>"\s"*3}, Date._strptime("\s"*3, ''))
+    assert_equal({:leftover=>'x'}, Date._strptime("\nx", "\n"))
+    assert_equal({}, Date._strptime('', "\s"*3))
+    assert_equal({}, Date._strptime("\s"*3, "\s"*3))
+    assert_equal({}, Date._strptime("\tfoo\n\000\r", "\tfoo\n\000\r"))
+    assert_equal({}, Date._strptime("foo\n\nbar", "foo\sbar"))
+    assert_equal({}, Date._strptime("%\n", "%\n")) # gnu
+    assert_equal({}, Date._strptime('%%', '%%%'))
+    assert_equal({:wday=>6}, Date._strptime('Saturday'*1024 + ',', '%A'*1024 + ','))
+    assert_equal({:wday=>6}, Date._strptime('Saturday'*1024 + ',', '%a'*1024 + ','))
+    assert_equal({}, Date._strptime('Anton von Webern', 'Anton von Webern'))
+  end
+
+  def test__strptime__3
+    [
+     # iso8601
+     [['2001-02-03', '%Y-%m-%d'], [2001,2,3,nil,nil,nil,nil,nil,nil]],
+     [['2001-02-03T23:59:60', '%Y-%m-%dT%H:%M:%S'], [2001,2,3,23,59,60,nil,nil,nil]],
+     [['2001-02-03T23:59:60+09:00', '%Y-%m-%dT%H:%M:%S%Z'], [2001,2,3,23,59,60,'+09:00',9*3600,nil]],
+     [['-2001-02-03T23:59:60+09:00', '%Y-%m-%dT%H:%M:%S%Z'], [-2001,2,3,23,59,60,'+09:00',9*3600,nil]],
+     [['+012345-02-03T23:59:60+09:00', '%Y-%m-%dT%H:%M:%S%Z'], [12345,2,3,23,59,60,'+09:00',9*3600,nil]],
+     [['-012345-02-03T23:59:60+09:00', '%Y-%m-%dT%H:%M:%S%Z'], [-12345,2,3,23,59,60,'+09:00',9*3600,nil]],
+
+     # ctime(3), asctime(3)
+     [['Thu Jul 29 14:47:19 1999', '%c'], [1999,7,29,14,47,19,nil,nil,4]],
+     [['Thu Jul 29 14:47:19 -1999', '%c'], [-1999,7,29,14,47,19,nil,nil,4]],
+
+     # date(1)
+     [['Thu Jul 29 16:39:41 EST 1999', '%a %b %d %H:%M:%S %Z %Y'], [1999,7,29,16,39,41,'EST',-5*3600,4]],
+     [['Thu Jul 29 16:39:41 MET DST 1999', '%a %b %d %H:%M:%S %Z %Y'], [1999,7,29,16,39,41,'MET DST',2*3600,4]],
+     [['Thu Jul 29 16:39:41 AMT 1999', '%a %b %d %H:%M:%S %Z %Y'], [1999,7,29,16,39,41,'AMT',nil,4]],
+     [['Thu Jul 29 16:39:41 AMT -1999', '%a %b %d %H:%M:%S %Z %Y'], [-1999,7,29,16,39,41,'AMT',nil,4]],
+     [['Thu Jul 29 16:39:41 GMT+09 1999', '%a %b %d %H:%M:%S %Z %Y'], [1999,7,29,16,39,41,'GMT+09',9*3600,4]],
+     [['Thu Jul 29 16:39:41 GMT+0908 1999', '%a %b %d %H:%M:%S %Z %Y'], [1999,7,29,16,39,41,'GMT+0908',9*3600+8*60,4]],
+     [['Thu Jul 29 16:39:41 GMT+090807 1999', '%a %b %d %H:%M:%S %Z %Y'], [1999,7,29,16,39,41,'GMT+090807',9*3600+8*60+7,4]],
+     [['Thu Jul 29 16:39:41 GMT-09 1999', '%a %b %d %H:%M:%S %Z %Y'], [1999,7,29,16,39,41,'GMT-09',-9*3600,4]],
+     [['Thu Jul 29 16:39:41 GMT-09:08 1999', '%a %b %d %H:%M:%S %Z %Y'], [1999,7,29,16,39,41,'GMT-09:08',-9*3600-8*60,4]],
+     [['Thu Jul 29 16:39:41 GMT-09:08:07 1999', '%a %b %d %H:%M:%S %Z %Y'], [1999,7,29,16,39,41,'GMT-09:08:07',-9*3600-8*60-7,4]],
+     [['Thu Jul 29 16:39:41 GMT-3.5 1999', '%a %b %d %H:%M:%S %Z %Y'], [1999,7,29,16,39,41,'GMT-3.5',-3*3600-30*60,4]],
+     [['Thu Jul 29 16:39:41 GMT-3,5 1999', '%a %b %d %H:%M:%S %Z %Y'], [1999,7,29,16,39,41,'GMT-3,5',-3*3600-30*60,4]],
+     [['Thu Jul 29 16:39:41 Mountain Daylight Time 1999', '%a %b %d %H:%M:%S %Z %Y'], [1999,7,29,16,39,41,'Mountain Daylight Time',-6*3600,4]],
+     [['Thu Jul 29 16:39:41 E. Australia Standard Time 1999', '%a %b %d %H:%M:%S %Z %Y'], [1999,7,29,16,39,41,'E. Australia Standard Time',10*3600,4]],
+
+     # rfc822
+     [['Thu, 29 Jul 1999 09:54:21 UT', '%a, %d %b %Y %H:%M:%S %Z'], [1999,7,29,9,54,21,'UT',0,4]],
+     [['Thu, 29 Jul 1999 09:54:21 GMT', '%a, %d %b %Y %H:%M:%S %Z'], [1999,7,29,9,54,21,'GMT',0,4]],
+     [['Thu, 29 Jul 1999 09:54:21 PDT', '%a, %d %b %Y %H:%M:%S %Z'], [1999,7,29,9,54,21,'PDT',-7*3600,4]],
+     [['Thu, 29 Jul 1999 09:54:21 z', '%a, %d %b %Y %H:%M:%S %Z'], [1999,7,29,9,54,21,'z',0,4]],
+     [['Thu, 29 Jul 1999 09:54:21 +0900', '%a, %d %b %Y %H:%M:%S %Z'], [1999,7,29,9,54,21,'+0900',9*3600,4]],
+     [['Thu, 29 Jul 1999 09:54:21 +0430', '%a, %d %b %Y %H:%M:%S %Z'], [1999,7,29,9,54,21,'+0430',4*3600+30*60,4]],
+     [['Thu, 29 Jul 1999 09:54:21 -0430', '%a, %d %b %Y %H:%M:%S %Z'], [1999,7,29,9,54,21,'-0430',-4*3600-30*60,4]],
+     [['Thu, 29 Jul -1999 09:54:21 -0430', '%a, %d %b %Y %H:%M:%S %Z'], [-1999,7,29,9,54,21,'-0430',-4*3600-30*60,4]],
+
+     # etc
+     [['06-DEC-99', '%d-%b-%y'], [1999,12,6,nil,nil,nil,nil,nil,nil]],
+     [['sUnDay oCtoBer 31 01', '%A %B %d %y'], [2001,10,31,nil,nil,nil,nil,nil,0]],
+     [["October\t\n\v\f\r 15,\t\n\v\f\r99", '%B %d, %y'], [1999,10,15,nil,nil,nil,nil,nil,nil]],
+     [["October\t\n\v\f\r 15,\t\n\v\f\r99", '%B%t%d,%n%y'], [1999,10,15,nil,nil,nil,nil,nil,nil]],
+
+     [['09:02:11 AM', '%I:%M:%S %p'], [nil,nil,nil,9,2,11,nil,nil,nil]],
+     [['09:02:11 A.M.', '%I:%M:%S %p'], [nil,nil,nil,9,2,11,nil,nil,nil]],
+     [['09:02:11 PM', '%I:%M:%S %p'], [nil,nil,nil,21,2,11,nil,nil,nil]],
+     [['09:02:11 P.M.', '%I:%M:%S %p'], [nil,nil,nil,21,2,11,nil,nil,nil]],
+
+     [['12:33:44 AM', '%r'], [nil,nil,nil,0,33,44,nil,nil,nil]],
+     [['01:33:44 AM', '%r'], [nil,nil,nil,1,33,44,nil,nil,nil]],
+     [['11:33:44 AM', '%r'], [nil,nil,nil,11,33,44,nil,nil,nil]],
+     [['12:33:44 PM', '%r'], [nil,nil,nil,12,33,44,nil,nil,nil]],
+     [['01:33:44 PM', '%r'], [nil,nil,nil,13,33,44,nil,nil,nil]],
+     [['11:33:44 PM', '%r'], [nil,nil,nil,23,33,44,nil,nil,nil]],
+
+     [['11:33:44 PM AMT', '%I:%M:%S %p %Z'], [nil,nil,nil,23,33,44,'AMT',nil,nil]],
+     [['11:33:44 P.M. AMT', '%I:%M:%S %p %Z'], [nil,nil,nil,23,33,44,'AMT',nil,nil]],
+
+     [['fri1feb034pm+5', '%a%d%b%y%H%p%Z'], [2003,2,1,16,nil,nil,'+5',5*3600,5]]
+    ].each do |x, y|
+      h = Date._strptime(*x)
+      a = h.values_at(:year,:mon,:mday,:hour,:min,:sec,:zone,:offset,:wday)
+      if y[1] == -1
+	a[1] = -1
+	a[2] = h[:yday]
+      end
+      assert_equal(y, a, [x, y, a].inspect)
+    end
+  end
+
+  def test__strptime__width
+    [
+     [['99', '%y'], [1999,nil,nil,nil,nil,nil,nil,nil,nil]],
+     [['01', '%y'], [2001,nil,nil,nil,nil,nil,nil,nil,nil]],
+     [['19 99', '%C %y'], [1999,nil,nil,nil,nil,nil,nil,nil,nil]],
+     [['20 01', '%C %y'], [2001,nil,nil,nil,nil,nil,nil,nil,nil]],
+     [['1999', '%C%y'], [1999,nil,nil,nil,nil,nil,nil,nil,nil]],
+     [['2001', '%C%y'], [2001,nil,nil,nil,nil,nil,nil,nil,nil]],
+
+     [['20060806', '%Y'], [20060806,nil,nil,nil,nil,nil,nil,nil,nil]],
+     [['20060806', "%Y\s"], [20060806,nil,nil,nil,nil,nil,nil,nil,nil]],
+     [['20060806', '%Y%m%d'], [2006,8,6,nil,nil,nil,nil,nil,nil]],
+     [['2006908906', '%Y9%m9%d'], [2006,8,6,nil,nil,nil,nil,nil,nil]],
+     [['12006 08 06', '%Y %m %d'], [12006,8,6,nil,nil,nil,nil,nil,nil]],
+     [['12006-08-06', '%Y-%m-%d'], [12006,8,6,nil,nil,nil,nil,nil,nil]],
+     [['200608 6', '%Y%m%e'], [2006,8,6,nil,nil,nil,nil,nil,nil]],
+
+     [['2006333', '%Y%j'], [2006,-1,333,nil,nil,nil,nil,nil,nil]],
+     [['20069333', '%Y9%j'], [2006,-1,333,nil,nil,nil,nil,nil,nil]],
+     [['12006 333', '%Y %j'], [12006,-1,333,nil,nil,nil,nil,nil,nil]],
+     [['12006-333', '%Y-%j'], [12006,-1,333,nil,nil,nil,nil,nil,nil]],
+
+     [['232425', '%H%M%S'], [nil,nil,nil,23,24,25,nil,nil,nil]],
+     [['23924925', '%H9%M9%S'], [nil,nil,nil,23,24,25,nil,nil,nil]],
+     [['23 24 25', '%H %M %S'], [nil,nil,nil,23,24,25,nil,nil,nil]],
+     [['23:24:25', '%H:%M:%S'], [nil,nil,nil,23,24,25,nil,nil,nil]],
+     [[' 32425', '%k%M%S'], [nil,nil,nil,3,24,25,nil,nil,nil]],
+     [[' 32425', '%l%M%S'], [nil,nil,nil,3,24,25,nil,nil,nil]],
+
+     [['FriAug', '%a%b'], [nil,8,nil,nil,nil,nil,nil,nil,5]],
+     [['FriAug', '%A%B'], [nil,8,nil,nil,nil,nil,nil,nil,5]],
+     [['FridayAugust', '%A%B'], [nil,8,nil,nil,nil,nil,nil,nil,5]],
+     [['FridayAugust', '%a%b'], [nil,8,nil,nil,nil,nil,nil,nil,5]]
+    ].each do |x, y|
+      h = Date._strptime(*x)
+      a = h.values_at(:year,:mon,:mday,:hour,:min,:sec,:zone,:offset,:wday)
+      if y[1] == -1
+	a[1] = -1
+	a[2] = h[:yday]
+      end
+      assert_equal(y, a, [x, y, a].inspect)
+    end
+  end
+
+  def test__strptime__fail
+    assert_not_nil(Date._strptime('2001.', '%Y.'))
+    assert_not_nil(Date._strptime("2001.\s", '%Y.'))
+    assert_not_nil(Date._strptime('2001.', "%Y.\s"))
+    assert_not_nil(Date._strptime("2001.\s", "%Y.\s"))
+
+    assert_nil(Date._strptime('2001', '%Y.'))
+    assert_nil(Date._strptime("2001\s", '%Y.'))
+    assert_nil(Date._strptime('2001', "%Y.\s"))
+    assert_nil(Date._strptime("2001\s", "%Y.\s"))
+
+    assert_nil(Date._strptime('2001-13-31', '%Y-%m-%d'))
+    assert_nil(Date._strptime('2001-12-00', '%Y-%m-%d'))
+    assert_nil(Date._strptime('2001-12-32', '%Y-%m-%d'))
+    assert_nil(Date._strptime('2001-12-00', '%Y-%m-%e'))
+    assert_nil(Date._strptime('2001-12-32', '%Y-%m-%e'))
+    assert_nil(Date._strptime('2001-12-31', '%y-%m-%d'))
+
+    assert_nil(Date._strptime('2004-000', '%Y-%j'))
+    assert_nil(Date._strptime('2004-367', '%Y-%j'))
+    assert_nil(Date._strptime('2004-366', '%y-%j'))
+
+    assert_not_nil(Date._strptime('24:59:59', '%H:%M:%S'))
+    assert_not_nil(Date._strptime('24:59:59', '%k:%M:%S'))
+    assert_not_nil(Date._strptime('24:59:60', '%H:%M:%S'))
+    assert_not_nil(Date._strptime('24:59:60', '%k:%M:%S'))
+
+    assert_nil(Date._strptime('24:60:59', '%H:%M:%S'))
+    assert_nil(Date._strptime('24:60:59', '%k:%M:%S'))
+    assert_nil(Date._strptime('24:59:61', '%H:%M:%S'))
+    assert_nil(Date._strptime('24:59:61', '%k:%M:%S'))
+    assert_nil(Date._strptime('00:59:59', '%I:%M:%S'))
+    assert_nil(Date._strptime('13:59:59', '%I:%M:%S'))
+    assert_nil(Date._strptime('00:59:59', '%l:%M:%S'))
+    assert_nil(Date._strptime('13:59:59', '%l:%M:%S'))
+
+    assert_not_nil(Date._strptime('0', '%U'))
+    assert_nil(Date._strptime('54', '%U'))
+    assert_not_nil(Date._strptime('0', '%W'))
+    assert_nil(Date._strptime('54', '%W'))
+    assert_nil(Date._strptime('0', '%V'))
+    assert_nil(Date._strptime('54', '%V'))
+    assert_nil(Date._strptime('0', '%u'))
+    assert_not_nil(Date._strptime('7', '%u'))
+    assert_not_nil(Date._strptime('0', '%w'))
+    assert_nil(Date._strptime('7', '%w'))
+
+    assert_nil(Date._strptime('Sanday', '%A'))
+    assert_nil(Date._strptime('Jenuary', '%B'))
+    assert_not_nil(Date._strptime('Sundai', '%A'))
+    assert_not_nil(Date._strptime('Januari', '%B'))
+    assert_nil(Date._strptime('Sundai,', '%A,'))
+    assert_nil(Date._strptime('Januari,', '%B,'))
+  end
+
+  def test_strptime
+    assert_equal(Date.new, Date.strptime)
+    d = Date.new(2002,3,14)
+    assert_equal(d, Date.strptime(d.to_s))
+    assert_equal(Date.new(2002,3,14), Date.strptime('2002-03-14'))
+
+    d = DateTime.new(2002,3,14,11,22,33, 0)
+    assert_equal(d, DateTime.strptime(d.to_s))
+    assert_equal(DateTime.new(2002,3,14,11,22,33, 0),
+		 DateTime.strptime('2002-03-14T11:22:33Z'))
+    assert_equal(DateTime.new(2002,3,14,11,22,33, 0),
+		 DateTime.strptime('2002-03-14T11:22:33Z', '%Y-%m-%dT%H:%M:%S%Z'))
+    assert_equal(DateTime.new(2002,3,14,11,22,33, 9.to_r/24),
+		 DateTime.strptime('2002-03-14T11:22:33+09:00', '%Y-%m-%dT%H:%M:%S%Z'))
+    assert_equal(DateTime.new(2002,3,14,11,22,33, -9.to_r/24),
+		 DateTime.strptime('2002-03-14T11:22:33-09:00', '%FT%T%Z'))
+    assert_equal(DateTime.new(2002,3,14,11,22,33, -9.to_r/24) + 123456789.to_r/1000000000/86400,
+		 DateTime.strptime('2002-03-14T11:22:33.123456789-09:00', '%FT%T.%N%Z'))
+  end
+
+  def test_strptime__2
+    n = 10**9
+    (Date.new(2006,6,1)..Date.new(2007,6,1)).each do |d|
+      [
+       '%Y %m %d',
+       '%C %y %m %d',
+
+       '%Y %j',
+       '%C %y %j',
+
+       '%G %V %w',
+       '%G %V %u',
+       '%C %g %V %w',
+       '%C %g %V %u',
+
+       '%Y %U %w',
+       '%Y %U %u',
+       '%Y %W %w',
+       '%Y %W %u',
+       '%C %y %U %w',
+       '%C %y %U %u',
+       '%C %y %W %w',
+       '%C %y %W %u',
+       ].each do |fmt|
+	s = d.strftime(fmt)
+	d2 = Date.strptime(s, fmt)
+	assert_equal(d, d2, [fmt, d.to_s, d2.to_s].inspect)
+      end
+
+      [
+       '%Y %m %d %H %M %S',
+       '%Y %m %d %H %M %S %N',
+       '%C %y %m %d %H %M %S',
+       '%C %y %m %d %H %M %S %N',
+
+       '%Y %j %H %M %S',
+       '%Y %j %H %M %S %N',
+       '%C %y %j %H %M %S',
+       '%C %y %j %H %M %S %N',
+
+       '%s',
+       '%s %N',
+       '%Q',
+       '%Q %N',
+      ].each do |fmt|
+	s = d.strftime(fmt)
+	d2 = DateTime.strptime(s, fmt)
+	assert_equal(d, d2, [fmt, d.to_s, d2.to_s].inspect)
+      end
+    end
+  end
+
+  def test_strptime__minus
+    d = DateTime.strptime('-1', '%s')
+    assert_equal([1969, 12, 31, 23, 59, 59],
+		 [d.year, d.mon, d.mday, d.hour, d.min, d.sec])
+    d = DateTime.strptime('-86400', '%s')
+    assert_equal([1969, 12, 31, 0, 0, 0],
+		 [d.year, d.mon, d.mday, d.hour, d.min, d.sec])
+
+    d = DateTime.strptime('-999', '%Q')
+    assert_equal([1969, 12, 31, 23, 59, 59, 1.to_r/10**3],
+		 [d.year, d.mon, d.mday, d.hour, d.min, d.sec, d.sec_fraction])
+    d = DateTime.strptime('-1000', '%Q')
+    assert_equal([1969, 12, 31, 23, 59, 59, 0],
+		 [d.year, d.mon, d.mday, d.hour, d.min, d.sec, d.sec_fraction])
+  end
+
+  def test_strptime__comp
+    n = DateTime.now
+
+    d = DateTime.strptime('073', '%j')
+    assert_equal([n.year, 73, 0, 0, 0],
+		 [d.year, d.yday, d.hour, d.min, d.sec])
+    d = DateTime.strptime('13', '%d')
+    assert_equal([n.year, n.mon, 13, 0, 0, 0],
+		 [d.year, d.mon, d.mday, d.hour, d.min, d.sec])
+
+    d = DateTime.strptime('Mar', '%b')
+    assert_equal([n.year, 3, 1, 0, 0, 0],
+		 [d.year, d.mon, d.mday, d.hour, d.min, d.sec])
+    d = DateTime.strptime('2004', '%Y')
+    assert_equal([2004, 1, 1, 0, 0, 0],
+		 [d.year, d.mon, d.mday, d.hour, d.min, d.sec])
+
+    d = DateTime.strptime('Mar 13', '%b %d')
+    assert_equal([n.year, 3, 13, 0, 0, 0],
+		 [d.year, d.mon, d.mday, d.hour, d.min, d.sec])
+    d = DateTime.strptime('Mar 2004', '%b %Y')
+    assert_equal([2004, 3, 1, 0, 0, 0],
+		 [d.year, d.mon, d.mday, d.hour, d.min, d.sec])
+    d = DateTime.strptime('23:55', '%H:%M')
+    assert_equal([n.year, n.mon, n.mday, 23, 55, 0],
+		 [d.year, d.mon, d.mday, d.hour, d.min, d.sec])
+    d = DateTime.strptime('23:55:30', '%H:%M:%S')
+    assert_equal([n.year, n.mon, n.mday, 23, 55, 30],
+		 [d.year, d.mon, d.mday, d.hour, d.min, d.sec])
+
+    d = DateTime.strptime('Sun 23:55', '%a %H:%M')
+    d2 = d - d.wday
+    assert_equal([d2.year, d2.mon, d2.mday, 23, 55, 0],
+		 [d.year, d.mon, d.mday, d.hour, d.min, d.sec])
+    d = DateTime.strptime('Aug 23:55', '%b %H:%M')
+    assert_equal([n.year, 8, 1, 23, 55, 0],
+		 [d.year, d.mon, d.mday, d.hour, d.min, d.sec])
+
+    d = DateTime.strptime('2004', '%G')
+    assert_equal([2004, 1, 1, 0, 0, 0],
+		 [d.cwyear, d.cweek, d.cwday, d.hour, d.min, d.sec])
+    d = DateTime.strptime('11', '%V')
+    assert_equal([n.cwyear, 11, 1, 0, 0, 0],
+		 [d.cwyear, d.cweek, d.cwday, d.hour, d.min, d.sec])
+    d = DateTime.strptime('6', '%u')
+    assert_equal([n.cwyear, n.cweek, 6, 0, 0, 0],
+		 [d.cwyear, d.cweek, d.cwday, d.hour, d.min, d.sec])
+
+    d = DateTime.strptime('11-6', '%V-%u')
+    assert_equal([n.cwyear, 11, 6, 0, 0, 0],
+		 [d.cwyear, d.cweek, d.cwday, d.hour, d.min, d.sec])
+    d = DateTime.strptime('2004-11', '%G-%V')
+    assert_equal([2004, 11, 1, 0, 0, 0],
+		 [d.cwyear, d.cweek, d.cwday, d.hour, d.min, d.sec])
+
+    d = DateTime.strptime('11-6', '%U-%w')
+    assert_equal([n.year, 11, 6, 0, 0, 0],
+		 [d.year, d.strftime('%U').to_i, d.wday, d.hour, d.min, d.sec])
+    d = DateTime.strptime('2004-11', '%Y-%U')
+    assert_equal([2004, 11, 0, 0, 0, 0],
+		 [d.year, d.strftime('%U').to_i, d.wday, d.hour, d.min, d.sec])
+
+    d = DateTime.strptime('11-6', '%W-%w')
+    assert_equal([n.year, 11, 6, 0, 0, 0],
+		 [d.year, d.strftime('%W').to_i, d.wday, d.hour, d.min, d.sec])
+    d = DateTime.strptime('2004-11', '%Y-%W')
+    assert_equal([2004, 11, 0, 0, 0, 0],
+		 [d.year, d.strftime('%W').to_i, d.wday, d.hour, d.min, d.sec])
+  end
+
+  def test_strptime__d_to_s
+    d = Date.new(2002,3,14)
+    assert_equal(d, Date.strptime(d.to_s))
+
+    d = DateTime.new(2002,3,14,11,22,33, 9.to_r/24)
+    assert_equal(d, DateTime.strptime(d.to_s))
+  end
+
+  def test_strptime__ex
+    assert_raise(ArgumentError) do
+      Date.strptime('2001-02-29', '%F')
+    end
+    assert_raise(ArgumentError) do
+      DateTime.strptime('2001-02-29T23:59:60', '%FT%T')
+    end
+    assert_raise(ArgumentError) do
+      Date.strptime('23:55', '%H:%M')
+    end
+  end
+
+end

Property changes on: test/date/test_date_strptime.rb
___________________________________________________________________
Name: svn:mime-type
   + text/plain
Name: svn:eol-style
   + LF

Index: test/date/test_date_new.rb
===================================================================
--- test/date/test_date_new.rb	(revision 0)
+++ test/date/test_date_new.rb	(revision 19609)
@@ -0,0 +1,276 @@
+require 'test/unit'
+require 'date'
+
+class TestDateNew < Test::Unit::TestCase
+
+  def test_jd
+    d = Date.jd
+    dt = DateTime.jd
+    assert_equal([-4712, 1, 1], [d.year, d.mon, d.mday])
+    assert_equal([-4712, 1, 1], [dt.year, dt.mon, dt.mday])
+    assert_equal([0, 0, 0], [dt.hour, dt.min, dt.sec])
+
+    d2 = Date.jd
+    dt2 = DateTime.jd
+    assert_equal(d, d2)
+    assert_equal(dt, dt2)
+
+    d = Date.jd(0)
+    assert_equal([-4712, 1, 1], [d.year, d.mon, d.mday])
+    d = DateTime.jd(0, 0,0,0, 0)
+    assert_equal([-4712, 1, 1, 0, 0, 0, 0],
+		 [d.year, d.mon, d.mday, d.hour, d.min, d.sec, d.offset])
+    d = DateTime.jd(0, 0,0,0, '+0900')
+    assert_equal([-4712, 1, 1, 0, 0, 0, 9.to_r/24],
+		 [d.year, d.mon, d.mday, d.hour, d.min, d.sec, d.offset])
+  end
+
+  def test_jd__ex
+    assert_raise(ArgumentError) do
+      DateTime.jd(0, 23,59,60,0)
+    end
+  end
+
+  def test_ordinal
+    d = Date.ordinal
+    dt = DateTime.ordinal
+    assert_equal([-4712, 1, 1], [d.year, d.mon, d.mday])
+    assert_equal([-4712, 1, 1], [dt.year, dt.mon, dt.mday])
+    assert_equal([0, 0, 0], [dt.hour, dt.min, dt.sec])
+
+    d2 = Date.ordinal
+    dt2 = DateTime.ordinal
+    assert_equal(d, d2)
+    assert_equal(dt, dt2)
+
+    d = Date.ordinal(-4712,1)
+    assert_equal([-4712, 1, 1], [d.year, d.mon, d.mday])
+
+    d = Date.ordinal(-4712,1.0)
+    assert_equal([-4712, 1, 1], [d.year, d.mon, d.mday])
+
+    d = DateTime.ordinal(-4712,1, 0,0,0, 0)
+    assert_equal([-4712, 1, 1, 0, 0, 0, 0],
+		 [d.year, d.mon, d.mday, d.hour, d.min, d.sec, d.offset])
+    d = DateTime.ordinal(-4712,1, 0,0,0, '+0900')
+    assert_equal([-4712, 1, 1, 0, 0, 0, 9.to_r/24],
+		 [d.year, d.mon, d.mday, d.hour, d.min, d.sec, d.offset])
+  end
+
+  def test_ordinal__neg
+    d = Date.ordinal(-1,-1)
+    assert_equal([-1, 365], [d.year, d.yday])
+
+    d = DateTime.ordinal(-1,-1, -1,-1,-1, 0)
+    assert_equal([-1, 365, 23, 59, 59, 0],
+		 [d.year, d.yday, d.hour, d.min, d.sec, d.offset])
+  end
+
+  def test_ordinal__ex
+    assert_raise(ArgumentError) do
+      Date.ordinal(2001,1.1)
+    end
+    assert_raise(ArgumentError) do
+      Date.ordinal(2001,366)
+    end
+    assert_raise(ArgumentError) do
+      DateTime.ordinal(2001,365, 23,59,60, 0)
+    end
+  end
+
+  def test_civil
+    d = Date.civil
+    dt = DateTime.civil
+    assert_equal([-4712, 1, 1], [d.year, d.mon, d.mday])
+    assert_equal([-4712, 1, 1], [dt.year, dt.mon, dt.mday])
+    assert_equal([0, 0, 0], [dt.hour, dt.min, dt.sec])
+
+    d2 = Date.civil
+    dt2 = DateTime.civil
+    assert_equal(d, d2)
+    assert_equal(dt, dt2)
+
+    d = Date.civil(-4712,1,1)
+    assert_equal([-4712, 1, 1], [d.year, d.mon, d.mday])
+
+    d = Date.civil(-4712,1,1.0)
+    assert_equal([-4712, 1, 1], [d.year, d.mon, d.mday])
+
+    d = DateTime.civil(-4712,1,1, 0,0,0, 0)
+    assert_equal([-4712, 1, 1, 0, 0, 0, 0],
+		 [d.year, d.mon, d.mday, d.hour, d.min, d.sec, d.offset])
+    d = DateTime.civil(-4712,1,1, 0,0,0, '+0900')
+    assert_equal([-4712, 1, 1, 0, 0, 0, 9.to_r/24],
+		 [d.year, d.mon, d.mday, d.hour, d.min, d.sec, d.offset])
+
+
+    d = DateTime.civil(2001,2,3 + 1.to_r/2)
+    assert_equal([2001, 2, 3, 12, 0, 0, 0],
+		 [d.year, d.mon, d.mday, d.hour, d.min, d.sec, d.offset])
+    d = DateTime.civil(2001,2,3, 4 + 1.to_r/2)
+    assert_equal([2001, 2, 3, 4, 30, 0, 0],
+		 [d.year, d.mon, d.mday, d.hour, d.min, d.sec, d.offset])
+    d = DateTime.civil(2001,2,3, 4,5 + 1.to_r/2)
+    assert_equal([2001, 2, 3, 4, 5, 30, 0],
+		 [d.year, d.mon, d.mday, d.hour, d.min, d.sec, d.offset])
+    d = DateTime.civil(2001,2,3, 4,5,6 + 1.to_r/2)
+    assert_equal([2001, 2, 3, 4, 5, 6, 0],
+		 [d.year, d.mon, d.mday, d.hour, d.min, d.sec, d.offset])
+    assert_equal(1.to_r/2, d.sec_fraction)
+  end
+
+  def test_civil__neg
+    d = Date.civil(-1,-1,-1)
+    assert_equal([-1, 12, 31], [d.year, d.mon, d.mday])
+
+    d = DateTime.civil(-1,-1,-1, -1,-1,-1, 0)
+    assert_equal([-1, 12, 31, 23, 59, 59, 0],
+		 [d.year, d.mon, d.mday, d.hour, d.min, d.sec, d.offset])
+  end
+
+  def test_civil__ex
+    assert_raise(ArgumentError) do
+      Date.civil(2001,2,1.1)
+    end
+    assert_raise(ArgumentError) do
+      Date.civil(2001,2,29)
+    end
+    assert_raise(ArgumentError) do
+      DateTime.civil(2001,2,28, 23,59,60, 0)
+    end
+    assert_raise(ArgumentError) do
+      DateTime.civil(2001,2,28, 24,59,59, 0)
+    end
+  end
+
+  def test_civil__reform
+    d = Date.jd(Date::ENGLAND, Date::ENGLAND)
+    dt = DateTime.jd(Date::ENGLAND, 0,0,0,0, Date::ENGLAND)
+    assert_equal([1752, 9, 14], [d.year, d.mon, d.mday])
+    assert_equal([1752, 9, 14], [dt.year, dt.mon, dt.mday])
+    d -= 1
+    dt -= 1
+    assert_equal([1752, 9, 2], [d.year, d.mon, d.mday])
+    assert_equal([1752, 9, 2], [dt.year, dt.mon, dt.mday])
+
+    d = Date.jd(Date::ITALY, Date::ITALY)
+    dt = DateTime.jd(Date::ITALY, 0,0,0,0, Date::ITALY)
+    assert_equal([1582, 10, 15], [d.year, d.mon, d.mday])
+    assert_equal([1582, 10, 15], [dt.year, dt.mon, dt.mday])
+    d -= 1
+    dt -= 1
+    assert_equal([1582, 10, 4], [d.year, d.mon, d.mday])
+    assert_equal([1582, 10, 4], [dt.year, dt.mon, dt.mday])
+  end
+
+  def test_commercial
+    d = Date.commercial
+    dt = DateTime.commercial
+    assert_equal([-4712, 1, 1], [d.year, d.mon, d.mday])
+    assert_equal([-4712, 1, 1], [dt.year, dt.mon, dt.mday])
+    assert_equal([0, 0, 0], [dt.hour, dt.min, dt.sec])
+
+    d2 = Date.commercial
+    dt2 = DateTime.commercial
+    assert_equal(d, d2)
+    assert_equal(dt, dt2)
+
+    d = Date.commercial(1582,40,5)
+    assert_equal([1582, 10, 15], [d.year, d.mon, d.mday])
+
+    d = Date.commercial(1582,40,5.0)
+    assert_equal([1582, 10, 15], [d.year, d.mon, d.mday])
+
+    d = DateTime.commercial(1582,40,5, 0,0,0, 0)
+    assert_equal([1582, 10, 15, 0, 0, 0, 0],
+		 [d.year, d.mon, d.mday, d.hour, d.min, d.sec, d.offset])
+    d = DateTime.commercial(1582,40,5, 0,0,0, '+0900')
+    assert_equal([1582, 10, 15, 0, 0, 0, 9.to_r/24],
+		 [d.year, d.mon, d.mday, d.hour, d.min, d.sec, d.offset])
+  end
+
+  def test_commercial__neg
+    d = Date.commercial(1998,-1,-1)
+    assert_equal([1999, 1, 3], [d.year, d.mon, d.mday])
+
+    d = DateTime.commercial(1998,-1,-1, -1,-1,-1, 0)
+    assert_equal([1999, 1, 3, 23, 59, 59, 0],
+		 [d.year, d.mon, d.mday, d.hour, d.min, d.sec, d.offset])
+  end
+
+  def test_commercial__ex
+    assert_raise(ArgumentError) do
+      Date.commercial(1997,1,1.1)
+    end
+    assert_raise(ArgumentError) do
+      Date.commercial(1997,53,1)
+    end
+    assert_raise(ArgumentError) do
+      DateTime.commercial(1997,52,1, 23,59,60, 0)
+    end
+  end
+
+  def test_weeknum
+    d = Date.__send__(:weeknum)
+    dt = DateTime.__send__(:weeknum)
+    assert_equal([-4712, 1, 1], [d.year, d.mon, d.mday])
+    assert_equal([-4712, 1, 1], [dt.year, dt.mon, dt.mday])
+    assert_equal([0, 0, 0], [dt.hour, dt.min, dt.sec])
+
+    d = Date.__send__(:weeknum, 2002,11,4, 0)
+    assert_equal(2452355, d.jd)
+
+    d = DateTime.__send__(:weeknum, 2002,11,4, 0, 11,22,33)
+    assert_equal(2452355, d.jd)
+    assert_equal([11,22,33], [d.hour, d.min, d.sec])
+
+    assert_raise(ArgumentError) do
+      Date.__send__(:weeknum, 1999,53,0, 0)
+    end
+    assert_raise(ArgumentError) do
+      Date.__send__(:weeknum, 1999,-53,-1, 0)
+    end
+  end
+
+  def test_nth_kday
+    d = Date.__send__(:nth_kday)
+    dt = DateTime.__send__(:nth_kday)
+    assert_equal([-4712, 1, 1], [d.year, d.mon, d.mday])
+    assert_equal([-4712, 1, 1], [dt.year, dt.mon, dt.mday])
+    assert_equal([0, 0, 0], [dt.hour, dt.min, dt.sec])
+
+    d = Date.__send__(:nth_kday, 1992,2, 5,6)
+    assert_equal(2448682, d.jd)
+
+    d = DateTime.__send__(:nth_kday, 1992,2, 5,6, 11,22,33)
+    assert_equal(2448682, d.jd)
+    assert_equal([11,22,33], [d.hour, d.min, d.sec])
+
+    assert_raise(ArgumentError) do
+      Date.__send__(:nth_kday, 2006,5, 5,0)
+    end
+    assert_raise(ArgumentError) do
+      Date.__send__(:nth_kday, 2006,5, -5,0)
+    end
+  end
+
+  def test_today
+    d = Date.today
+    t = Time.now
+    t2 = Time.utc(t.year, t.mon, t.mday)
+    t3 = Time.utc(d.year, d.mon, d.mday)
+    assert_in_delta(t2, t3, 10)
+
+    assert_equal(false, DateTime.respond_to?(:today))
+  end
+
+  def test_now
+    assert_equal(false, Date.respond_to?(:now))
+
+    d = DateTime.now
+    t = Time.now
+    t2 = Time.local(d.year, d.mon, d.mday, d.hour, d.min, d.sec)
+    assert_in_delta(t, t2, 10)
+  end
+
+end

Property changes on: test/date/test_date_new.rb
___________________________________________________________________
Name: svn:mime-type
   + text/plain
Name: svn:eol-style
   + LF

Index: test/date/test_date_attr.rb
===================================================================
--- test/date/test_date_attr.rb	(revision 0)
+++ test/date/test_date_attr.rb	(revision 19609)
@@ -0,0 +1,109 @@
+require 'test/unit'
+require 'date'
+
+class TestDateAttr < Test::Unit::TestCase
+
+  def test__attr
+    date = Date.new(1965, 5, 23)
+    datetime = DateTime.new(1965, 5, 23, 22, 31, 59)
+
+    [date, datetime].each_with_index do |d, i|
+      if i == 0
+	assert_match(/\#<Date\d?: 4877807\/2,0,2299161>/,
+		     d.inspect)
+      else
+	assert_match(/\#<DateTime\d?: 210721343519\/86400,0,2299161>/,
+		     d.inspect)
+      end
+
+      if i == 0
+	assert_equal('1965-05-23', d.to_s)
+      else
+	assert_equal('1965-05-23T22:31:59+00:00', d.to_s)
+      end
+
+      assert_equal('', d.inspect.gsub!(/./,''))
+      assert_equal('', d.to_s.gsub!(/./,''))
+
+      assert_equal(2438904, d.jd)
+
+      if i == 0
+	assert_equal(0, d.day_fraction)
+      else
+	assert_equal(22.to_r/24 + 31.to_r/1440 + 59.to_r/86400, d.day_fraction)
+      end
+
+      assert_equal(38903, d.mjd)
+      assert_equal(139744, d.ld)
+
+      assert_equal(1965, d.year)
+      assert_equal(143, d.yday)
+      assert_equal(5, d.mon)
+      assert_equal(d.mon, d.month)
+      assert_equal(23, d.mday)
+      assert_equal(d.mday, d.day)
+
+      if i == 0
+	assert_equal(false, d.respond_to?(:hour))
+	assert_equal(false, d.respond_to?(:min))
+	assert_equal(false, d.respond_to?(:sec))
+	assert_equal(false, d.respond_to?(:sec_fraction))
+	assert_equal(false, d.respond_to?(:zone))
+	assert_equal(false, d.respond_to?(:offset))
+      else
+	assert_equal(22, d.hour)
+	assert_equal(31, d.min)
+	assert_equal(59, d.sec)
+	assert_equal(0, d.sec_fraction)
+	assert_equal('+00:00', d.zone)
+	assert_equal(0, d.offset)
+      end
+
+      assert_equal(1965, d.cwyear)
+      assert_equal(20, d.cweek)
+      assert_equal(7, d.cwday)
+
+      assert_equal(0, d.wday)
+      assert_equal(false, d.leap?)
+      assert_equal(false, d.julian?)
+      assert_equal(true, d.gregorian?)
+
+      assert_equal(Date::ITALY, d.start)
+      assert_equal(d.start, d.start)
+    end
+
+    d = DateTime.new(1965, 5, 23, 22, 31, 59) + 1.to_r/(86400*2)
+    assert_equal(1.to_r/2, d.sec_fraction)
+  end
+
+  def test__wday_predicate
+    d = Date.new(2005, 10, 23)
+    assert_equal(true, d.sunday?)
+    assert_equal(false, d.monday?)
+    assert_equal(false, d.tuesday?)
+    assert_equal(false, d.wednesday?)
+    assert_equal(false, d.thursday?)
+    assert_equal(false, d.friday?)
+    assert_equal(false, d.saturday?)
+
+    d = Date.new(2005, 10, 30)
+    14.times do |i|
+      assert((d + i).__send__(%w(sunday? monday? tuesday? wednesday?
+				 thursday? friday? saturday?)[i % 7]))
+    end
+  end
+
+  def test_nth_kday
+    assert_equal(false, Date.new(2001,1,14).__send__(:nth_kday?, 1,0))
+    assert_equal(true, Date.new(2001,1,14).__send__(:nth_kday?, 2,0))
+    assert_equal(false, Date.new(2001,1,14).__send__(:nth_kday?, 3,0))
+    assert_equal(false, Date.new(2001,1,14).__send__(:nth_kday?, 4,0))
+    assert_equal(false, Date.new(2001,1,14).__send__(:nth_kday?, 5,0))
+    assert_equal(false, Date.new(2001,1,14).__send__(:nth_kday?, -1,0))
+    assert_equal(false, Date.new(2001,1,14).__send__(:nth_kday?, -2,0))
+    assert_equal(true, Date.new(2001,1,14).__send__(:nth_kday?, -3,0))
+    assert_equal(false, Date.new(2001,1,14).__send__(:nth_kday?, -4,0))
+    assert_equal(false, Date.new(2001,1,14).__send__(:nth_kday?, -5,0))
+  end
+
+end

Property changes on: test/date/test_date_attr.rb
___________________________________________________________________
Name: svn:mime-type
   + text/plain
Name: svn:eol-style
   + LF

Index: test/date/test_date_base.rb
===================================================================
--- test/date/test_date_base.rb	(revision 0)
+++ test/date/test_date_base.rb	(revision 19609)
@@ -0,0 +1,435 @@
+require 'test/unit'
+require 'date'
+
+begin
+  require 'calendar'
+  include  Calendar
+rescue LoadError
+end
+
+class TestDateBase < Test::Unit::TestCase
+
+  def setup
+    if defined?(Calendar)
+      @from ||= julian_day_number_from_absolute(absolute_from_julian(1, 1, 1601))
+      @to ||= julian_day_number_from_absolute(absolute_from_julian(12, 31, 2400))
+      @from4t ||= julian_day_number_from_absolute(absolute_from_julian(1, 1, 1970))
+      @to4t ||= julian_day_number_from_absolute(absolute_from_julian(12, 31, 2037))
+    end
+  end
+
+  def test__inf
+    assert_equal(0, Date::Infinity.new(-1) <=> Date::Infinity.new(-1))
+    assert_equal(-1, Date::Infinity.new(-1) <=> Date::Infinity.new(+1))
+    assert_equal(-1, Date::Infinity.new(-1) <=> 0)
+
+    assert_equal(1, Date::Infinity.new(+1) <=> Date::Infinity.new(-1))
+    assert_equal(0, Date::Infinity.new(+1) <=> Date::Infinity.new(+1))
+    assert_equal(1, Date::Infinity.new(+1) <=> 0)
+
+    assert_equal(1, 0 <=> Date::Infinity.new(-1))
+    assert_equal(-1, 0 <=> Date::Infinity.new(+1))
+    assert_equal(0, 0 <=> 0)
+
+    assert_equal(0, Date::ITALY <=> Date::ITALY)
+    assert_equal(-1, Date::ITALY <=> Date::ENGLAND)
+    assert_equal(-1, Date::ITALY <=> Date::JULIAN)
+    assert_equal(1, Date::ITALY <=> Date::GREGORIAN)
+
+    assert_equal(1, Date::ENGLAND <=> Date::ITALY)
+    assert_equal(0, Date::ENGLAND <=> Date::ENGLAND)
+    assert_equal(-1, Date::ENGLAND <=> Date::JULIAN)
+    assert_equal(1, Date::ENGLAND <=> Date::GREGORIAN)
+
+    assert_equal(1, Date::JULIAN <=> Date::ITALY)
+    assert_equal(1, Date::JULIAN <=> Date::ENGLAND)
+    assert_equal(0, Date::JULIAN <=> Date::JULIAN)
+    assert_equal(1, Date::JULIAN <=> Date::GREGORIAN)
+
+    assert_equal(-1, Date::GREGORIAN <=> Date::ITALY)
+    assert_equal(-1, Date::GREGORIAN <=> Date::ENGLAND)
+    assert_equal(-1, Date::GREGORIAN <=> Date::JULIAN)
+    assert_equal(0, Date::GREGORIAN <=> Date::GREGORIAN)
+  end
+
+  def test_ordinal__julian
+    unless defined?(Calendar)
+      return
+    end
+    for j in @from..@to
+      m, d, y = julian_from_absolute(absolute_from_julian_day_number(j))
+      j0 = julian_day_number_from_absolute(absolute_from_julian(12, 31, y - 1))
+      j2 = julian_day_number_from_absolute(absolute_from_julian(m, d, y))
+      assert_equal(j, j2)
+      oy, od = Date.__send__(:jd_to_ordinal, j, Date::JULIAN)
+      assert_equal(y, oy)
+      assert_equal(j2 - j0, od)
+      oj = Date.__send__(:ordinal_to_jd, oy, od, Date::JULIAN)
+      assert_equal(j, oj)
+    end
+  end
+
+  def test_ordinal__gregorian
+    unless defined?(Calendar)
+      return
+    end
+    for j in @from..@to
+      m, d, y = gregorian_from_absolute(absolute_from_julian_day_number(j))
+      j0 =
+	julian_day_number_from_absolute(absolute_from_gregorian(12, 31, y - 1))
+      j2 = julian_day_number_from_absolute(absolute_from_gregorian(m, d, y))
+      assert_equal(j, j2)
+      oy, od = Date.__send__(:jd_to_ordinal, j, Date::GREGORIAN)
+      assert_equal(y, oy)
+      assert_equal(j2 - j0, od)
+      oj = Date.__send__(:ordinal_to_jd, oy, od, Date::GREGORIAN)
+      assert_equal(j, oj)
+    end
+  end
+
+  def test_civil__julian
+    unless defined?(Calendar)
+      return
+    end
+    for j in @from..@to
+      m, d, y = julian_from_absolute(absolute_from_julian_day_number(j))
+      j2 = julian_day_number_from_absolute(absolute_from_julian(m, d, y))
+      assert_equal(j2, j)
+      cy, cm, cd = Date.__send__(:jd_to_civil, j, Date::JULIAN)
+      assert_equal(y, cy)
+      assert_equal(m, cm)
+      assert_equal(d, cd)
+      cj = Date.__send__(:civil_to_jd, cy, cm, cd, Date::JULIAN)
+      assert_equal(j, cj)
+    end
+  end
+
+  def test_civil__gregorian
+    unless defined?(Calendar)
+      return
+    end
+    for j in @from..@to
+      m, d, y = gregorian_from_absolute(absolute_from_julian_day_number(j))
+      j2 = julian_day_number_from_absolute(absolute_from_gregorian(m, d, y))
+      assert_equal(j2, j)
+      cy, cm, cd = Date.__send__(:jd_to_civil, j, Date::GREGORIAN)
+      assert_equal(y, cy)
+      assert_equal(m, cm)
+      assert_equal(d, cd)
+      cj = Date.__send__(:civil_to_jd, cy, cm, cd, Date::GREGORIAN)
+      assert_equal(j, cj)
+    end
+  end
+
+  def test_commercial__gregorian
+    unless defined?(Calendar)
+      return
+    end
+    for j in @from..@to
+      w, d, y = iso_from_absolute(absolute_from_julian_day_number(j))
+      j2 = julian_day_number_from_absolute(absolute_from_iso(w, d, y))
+      assert_equal(j2, j)
+      cy, cw, cd = Date.__send__(:jd_to_commercial, j, Date::GREGORIAN)
+      assert_equal(y, cy)
+      assert_equal(w, cw)
+      assert_equal(d, cd)
+      cj = Date.__send__(:commercial_to_jd, cy, cw, cd, Date::GREGORIAN)
+      assert_equal(j, cj)
+    end
+  end
+
+  def test_weeknum
+    unless defined?(Calendar)
+      return
+    end
+    for j in @from..@to
+      for k in 0..1
+	wy, ww, wd = Date.__send__(:jd_to_weeknum, j, k, Date::GREGORIAN)
+	wj = Date.__send__(:weeknum_to_jd, wy, ww, wd, k, Date::GREGORIAN)
+	assert_equal(j, wj)
+      end
+    end
+  end
+
+  def test_weeknum__2
+    unless defined?(Calendar)
+      return
+    end
+    for j in @from4t..@to4t
+      d = Date.jd(j)
+      t = Time.mktime(d.year, d.mon, d.mday)
+      [
+       '%Y %U %w',
+       '%Y %U %u',
+       '%Y %W %w',
+       '%Y %W %u'
+      ].each do |fmt|
+	s = t.strftime(fmt)
+	d2 = Date.strptime(s, fmt)
+	assert_equal(j, d2.jd)
+      end
+    end
+  end
+
+  def test_nth_kday
+    unless defined?(Calendar)
+      return
+    end
+    for y in 1601..2401
+      for m in 1..12
+	for n in -5..5
+	  next if n == 0
+	  for k in 0..6
+	    j = julian_day_number_from_absolute(Nth_Kday(n, k, m, y))
+	    j2 =  Date.__send__(:nth_kday_to_jd, y, m, n, k, Date::GREGORIAN)
+	    assert_equal(j, j2)
+
+	    d1 =  Date.__send__(:jd_to_nth_kday, j2, Date::GREGORIAN)
+	    j3 =  Date.__send__(:nth_kday_to_jd, *d1)
+	    assert_equal(j, j3)
+	  end
+	end
+      end
+    end
+  end
+
+  def test_mjd
+    jd = Date.__send__(:mjd_to_jd, 51321)
+    mjd = Date.__send__(:jd_to_mjd, jd)
+    assert_equal(51321, mjd)
+  end
+
+  def test_ld
+    jd = Date.__send__(:ld_to_jd, 152162)
+    ld = Date.__send__(:jd_to_ld, jd)
+    assert_equal(152162, ld)
+  end
+
+  def test_wday
+    assert_equal(4, Date.__send__(:jd_to_wday, 3))
+    assert_equal(3, Date.__send__(:jd_to_wday, 2))
+    assert_equal(2, Date.__send__(:jd_to_wday, 1))
+    assert_equal(1, Date.__send__(:jd_to_wday, 0))
+    assert_equal(0, Date.__send__(:jd_to_wday, -1))
+    assert_equal(6, Date.__send__(:jd_to_wday, -2))
+    assert_equal(5, Date.__send__(:jd_to_wday, -3))
+  end
+
+  def test_leap?
+    assert_equal(true, Date.julian_leap?(1900))
+    assert_equal(false, Date.julian_leap?(1999))
+    assert_equal(true, Date.julian_leap?(2000))
+
+    assert_equal(false, Date.gregorian_leap?(1900))
+    assert_equal(false, Date.gregorian_leap?(1999))
+    assert_equal(true, Date.gregorian_leap?(2000))
+
+    assert_equal(Date.leap?(1990), Date.gregorian_leap?(1900))
+    assert_equal(Date.leap?(1999), Date.gregorian_leap?(1999))
+    assert_equal(Date.leap?(2000), Date.gregorian_leap?(2000))
+  end
+
+  def test_valid_jd
+    valid_jd_p =  :_valid_jd?
+    assert_equal(-1, Date.__send__(valid_jd_p, -1))
+    assert_equal(0, Date.__send__(valid_jd_p, 0))
+    assert_equal(1, Date.__send__(valid_jd_p, 1))
+    assert_equal(2452348, Date.__send__(valid_jd_p, 2452348))
+  end
+
+  def test_valid_ordinal
+    valid_ordinal_p = :_valid_ordinal?
+    assert_nil(Date.__send__(valid_ordinal_p, 1999,366))
+    assert_equal(2451910, Date.__send__(valid_ordinal_p, 2000,366))
+    assert_nil(Date.__send__(valid_ordinal_p, 1999,-366))
+    assert_equal(2451545, Date.__send__(valid_ordinal_p, 2000,-366))
+    assert_equal(2452275, Date.__send__(valid_ordinal_p, 2001,365))
+    assert_nil(Date.__send__(valid_ordinal_p, 2001,366))
+    assert_equal(Date.__send__(valid_ordinal_p, 2001,1),
+		 Date.__send__(valid_ordinal_p, 2001,-365))
+    assert_nil(Date.__send__(valid_ordinal_p, 2001,-366))
+    assert_equal(2452348, Date.__send__(valid_ordinal_p, 2002,73))
+  end
+
+  def test_valid_ordinal__edge
+    valid_ordinal_p = :_valid_ordinal?
+    (1601..2400).each do |y|
+      d = if Date.leap?(y) then 366 else 365 end
+      assert_not_nil(Date.__send__(valid_ordinal_p, y,d))
+      assert_nil(Date.__send__(valid_ordinal_p, y,d + 1))
+      assert_not_nil(Date.__send__(valid_ordinal_p, y,-d))
+      assert_nil(Date.__send__(valid_ordinal_p, y,-(d + 1)))
+    end
+  end
+
+  #        October 1582        
+  #   S   M  Tu   W  Th   F   S
+  #     274 275 276 277 288 289
+  # 290 291 292 293 294 295 296
+  # 297 298 299 300 301 302 303
+  # 304                        
+
+  #        October 1582        
+  #   S   M  Tu   W  Th   F   S
+  #     -92 -91 -90 -89 -78 -77
+  # -76 -75 -74 -73 -72 -71 -70
+  # -69 -68 -67 -66 -65 -64 -63
+  # -62                        
+
+  def test_valid_ordinal__italy
+    valid_ordinal_p =  :_valid_ordinal?
+    (1..355).each do |d|
+      assert_not_nil(Date.__send__(valid_ordinal_p, 1582,d,Date::ITALY))
+    end
+    (356..365).each do |d|
+      assert_nil(Date.__send__(valid_ordinal_p, 1582,d,Date::ITALY))
+    end
+  end
+
+  #       September 1752       
+  #   S   M  Tu   W  Th   F   S
+  #         245 246 258 259 260
+  # 261 262 263 264 265 266 267
+  # 268 269 270 271 272 273 274
+
+  def test_valid_ordinal__england
+    valid_ordinal_p =  :_valid_ordinal?
+    (1..355).each do |d|
+      assert_not_nil(Date.__send__(valid_ordinal_p, 1752,d,Date::ENGLAND))
+    end
+    (356..366).each do |d|
+      assert_nil(Date.__send__(valid_ordinal_p, 1752,d,Date::ENGLAND))
+    end
+  end
+
+  def test_valid_civil
+    valid_civil_p = :_valid_civil?
+    assert_nil(Date.__send__(valid_civil_p, 1999,2,29))
+    assert_equal(2451604, Date.__send__(valid_civil_p, 2000,2,29))
+    assert_nil(Date.__send__(valid_civil_p, 1999,2,-29))
+    assert_equal(2451576, Date.__send__(valid_civil_p, 2000,2,-29))
+    assert_equal(2451941, Date.__send__(valid_civil_p, 2001,1,31))
+    assert_nil(Date.__send__(valid_civil_p, 2001,1,32))
+    assert_equal(Date.__send__(valid_civil_p, 2001,1,1),
+		 Date.__send__(valid_civil_p, 2001,1,-31))
+    assert_nil(Date.__send__(valid_civil_p, 2001,1,-32))
+    assert_equal(2452348, Date.__send__(valid_civil_p, 2002,3,14))
+  end
+
+  def test_valid_civil__edge
+    valid_civil_p = :_valid_civil?
+    (1601..2400).each do |y|
+      d = if Date.leap?(y) then 29 else 28 end
+      assert_not_nil(Date.__send__(valid_civil_p, y,2,d))
+      assert_nil(Date.__send__(valid_civil_p, y,2,d + 1))
+      assert_not_nil(Date.__send__(valid_civil_p, y,2,-d))
+      assert_nil(Date.__send__(valid_civil_p, y,2,-(d + 1)))
+    end
+  end
+
+  #     October 1582    
+  #  S  M Tu  W Th  F  S
+  #     1  2  3  4 15 16
+  # 17 18 19 20 21 22 23
+  # 24 25 26 27 28 29 30
+  # 31                  
+
+  def test_valid_civil__italy
+    valid_civil_p = :_valid_civil?
+    (1..4).each do |d|
+      assert_not_nil(Date.__send__(valid_civil_p, 1582,10,d,Date::ITALY))
+    end
+    (5..14).each do |d|
+      assert_nil(Date.__send__(valid_civil_p, 1582,10,d,Date::ITALY))
+    end
+    (15..31).each do |d|
+      assert_not_nil(Date.__send__(valid_civil_p, 1582,10,d,Date::ITALY))
+    end
+    (32..100).each do |d|
+      assert_nil(Date.__send__(valid_civil_p, 1582,10,d,Date::ITALY))
+    end
+    (-31..-22).each do |d|
+      assert_nil(Date.__send__(valid_civil_p, 1582,10,d,Date::ITALY))
+    end
+    (-21..-1).each do |d|
+      assert_not_nil(Date.__send__(valid_civil_p, 1582,10,d,Date::ITALY))
+    end
+  end
+
+  #    September 1752   
+  #  S  M Tu  W Th  F  S
+  #        1  2 14 15 16
+  # 17 18 19 20 21 22 23
+  # 24 25 26 27 28 29 30
+
+  def test_valid_civil__england
+    valid_civil_p = :_valid_civil?
+    (1..2).each do |d|
+      assert_not_nil(Date.__send__(valid_civil_p, 1752,9,d,Date::ENGLAND))
+    end
+    (3..13).each do |d|
+      assert_nil(Date.__send__(valid_civil_p, 1752,9,d,Date::ENGLAND))
+    end
+    (14..30).each do |d|
+      assert_not_nil(Date.__send__(valid_civil_p, 1752,9,d,Date::ENGLAND))
+    end
+    (31..100).each do |d|
+      assert_nil(Date.__send__(valid_civil_p, 1752,9,d,Date::ENGLAND))
+    end
+    (-31..-20).each do |d|
+      assert_nil(Date.__send__(valid_civil_p, 1752,9,d,Date::ENGLAND))
+    end
+    (-19..-1).each do |d|
+      assert_not_nil(Date.__send__(valid_civil_p, 1752,9,d,Date::ENGLAND))
+    end
+  end
+
+  def test_valid_commercial
+    valid_commercial_p = :_valid_commercial?
+    assert_nil(Date.__send__(valid_commercial_p, 1999,53,1))
+    assert_equal(2453367, Date.__send__(valid_commercial_p, 2004,53,1))
+    assert_nil(Date.__send__(valid_commercial_p, 1999,-53,-1))
+    assert_equal(2453009, Date.__send__(valid_commercial_p, 2004,-53,-1))
+    assert_equal(2452348, Date.__send__(valid_commercial_p, 2002,11,4))
+  end
+
+  def test_valid_weeknum
+    valid_weeknum_p = :_valid_weeknum?
+    assert_nil(Date.__send__(valid_weeknum_p, 1999,53,0, 0))
+    assert_equal(2454101, Date.__send__(valid_weeknum_p, 2006,53,0, 0))
+    assert_nil(Date.__send__(valid_weeknum_p, 1999,-53,-1, 0))
+    assert_equal(2453743, Date.__send__(valid_weeknum_p, 2006,-53,-1, 0))
+    assert_equal(2452355, Date.__send__(valid_weeknum_p, 2002,11,4, 0))
+    assert_nil(Date.__send__(valid_weeknum_p, 1999,53,0, 1))
+    assert_equal(2454101, Date.__send__(valid_weeknum_p, 2006,52,6, 1))
+    assert_nil(Date.__send__(valid_weeknum_p, 1999,-53,-1, 1))
+    assert_equal(2453743, Date.__send__(valid_weeknum_p, 2006,-52,-2, 1))
+    assert_equal(2452355, Date.__send__(valid_weeknum_p, 2002,11,3, 1))
+  end
+
+  def test_valid_nth_kday
+    valid_nth_kday_p = :_valid_nth_kday?
+    assert_nil(Date.__send__(valid_nth_kday_p, 1992,2, 5,0))
+    assert_equal(2448682, Date.__send__(valid_nth_kday_p, 1992,2, 5,6))
+    assert_equal(2448682, Date.__send__(valid_nth_kday_p, 1992,2, 5,-1))
+    assert_equal(2448682, Date.__send__(valid_nth_kday_p, 1992,2, -1,6))
+    assert_equal(2448682, Date.__send__(valid_nth_kday_p, 1992,2, -1,-1))
+  end
+
+  def test_valid_time
+    valid_time_p = :_valid_time?
+    assert_equal(Rational(0), DateTime.__send__(valid_time_p, 0,0,0))
+    assert_nil(DateTime.__send__(valid_time_p, 25,59,59))
+    assert_nil(DateTime.__send__(valid_time_p, 23,60,59))
+    assert_nil(DateTime.__send__(valid_time_p, 23,59,60))
+    assert_equal(Rational(86399, 86400),
+		 DateTime.__send__(valid_time_p, 23,59,59))
+    assert_equal(Rational(86399, 86400),
+		 DateTime.__send__(valid_time_p, -1,-1,-1))
+    assert_equal(Rational(1), DateTime.__send__(valid_time_p, 24,0,0))
+    assert_nil(DateTime.__send__(valid_time_p, 24,0,1))
+    assert_nil(DateTime.__send__(valid_time_p, 24,1,0))
+    assert_nil(DateTime.__send__(valid_time_p, 24,1,1))
+  end
+
+end

Property changes on: test/date/test_date_base.rb
___________________________________________________________________
Name: svn:mime-type
   + text/plain
Name: svn:eol-style
   + LF

Index: test/date/test_date_parse.rb
===================================================================
--- test/date/test_date_parse.rb	(revision 0)
+++ test/date/test_date_parse.rb	(revision 19609)
@@ -0,0 +1,972 @@
+require 'test/unit'
+require 'date'
+
+class TestDateParse < Test::Unit::TestCase
+
+  def test__parse
+    [
+     # ctime(3), asctime(3)
+     [['Sat Aug 28 02:55:50 1999',false],[1999,8,28,2,55,50,nil,nil,6]],
+     [['Sat Aug 28 02:55:50 02',false],[2,8,28,2,55,50,nil,nil,6]],
+     [['Sat Aug 28 02:55:50 02',true],[2002,8,28,2,55,50,nil,nil,6]],
+     [['Sat Aug 28 02:55:50 0002',false],[2,8,28,2,55,50,nil,nil,6]],
+     [['Sat Aug 28 02:55:50 0002',true],[2,8,28,2,55,50,nil,nil,6]],
+
+     # date(1)
+     [['Sat Aug 28 02:29:34 JST 1999',false],[1999,8,28,2,29,34,'JST',9*3600,6]],
+     [['Sat Aug 28 02:29:34 MET DST 1999',false],[1999,8,28,2,29,34,'MET DST',2*3600,6]],
+     [['Sat Aug 28 02:29:34 AMT 1999',false],[1999,8,28,2,29,34,'AMT',nil,6]],
+     [['Sat Aug 28 02:29:34 PMT 1999',false],[1999,8,28,2,29,34,'PMT',nil,6]],
+     [['Sat Aug 28 02:29:34 PMT -1999',false],[-1999,8,28,2,29,34,'PMT',nil,6]],
+
+     [['Sat Aug 28 02:29:34 JST 02',false],[2,8,28,2,29,34,'JST',9*3600,6]],
+     [['Sat Aug 28 02:29:34 JST 02',true],[2002,8,28,2,29,34,'JST',9*3600,6]],
+     [['Sat Aug 28 02:29:34 JST 0002',false],[2,8,28,2,29,34,'JST',9*3600,6]],
+     [['Sat Aug 28 02:29:34 JST 0002',true],[2,8,28,2,29,34,'JST',9*3600,6]],
+
+     [['Sat Aug 28 02:29:34 GMT+09 0002',false],[2,8,28,2,29,34,'GMT+09',9*3600,6]],
+     [['Sat Aug 28 02:29:34 GMT+0900 0002',false],[2,8,28,2,29,34,'GMT+0900',9*3600,6]],
+     [['Sat Aug 28 02:29:34 GMT+09:00 0002',false],[2,8,28,2,29,34,'GMT+09:00',9*3600,6]],
+     [['Sat Aug 28 02:29:34 GMT-09 0002',false],[2,8,28,2,29,34,'GMT-09',-9*3600,6]],
+     [['Sat Aug 28 02:29:34 GMT-0900 0002',false],[2,8,28,2,29,34,'GMT-0900',-9*3600,6]],
+     [['Sat Aug 28 02:29:34 GMT-09:00 0002',false],[2,8,28,2,29,34,'GMT-09:00',-9*3600,6]],
+     [['Sat Aug 28 02:29:34 GMT-090102 0002',false],[2,8,28,2,29,34,'GMT-090102',-9*3600-60-2,6]],
+     [['Sat Aug 28 02:29:34 GMT-09:01:02 0002',false],[2,8,28,2,29,34,'GMT-09:01:02',-9*3600-60-2,6]],
+
+     [['Sat Aug 28 02:29:34 GMT Standard Time 2000',false],[2000,8,28,2,29,34,'GMT Standard Time',0*3600,6]],
+     [['Sat Aug 28 02:29:34 Mountain Standard Time 2000',false],[2000,8,28,2,29,34,'Mountain Standard Time',-7*3600,6]],
+     [['Sat Aug 28 02:29:34 Mountain Daylight Time 2000',false],[2000,8,28,2,29,34,'Mountain Daylight Time',-6*3600,6]],
+     [['Sat Aug 28 02:29:34 Mexico Standard Time 2000',false],[2000,8,28,2,29,34,'Mexico Standard Time',-6*3600,6]],
+#     [['Sat Aug 28 02:29:34 Mexico Standard Time 2 2000',false],[2000,8,28,2,29,34,'Mexico Standard Time 2',-7*3600,6]], # cp
+     [['Sat Aug 28 02:29:34 E. Australia Standard Time 2000',false],[2000,8,28,2,29,34,'E. Australia Standard Time',10*3600,6]],
+
+     # part of iso 8601
+     [['1999-05-23 23:55:21',false],[1999,5,23,23,55,21,nil,nil,nil]],
+     [['1999-05-23 23:55:21+0900',false],[1999,5,23,23,55,21,'+0900',9*3600,nil]],
+     [['1999-05-23 23:55:21-0900',false],[1999,5,23,23,55,21,'-0900',-9*3600,nil]],
+     [['1999-05-23 23:55:21+09:00',false],[1999,5,23,23,55,21,'+09:00',9*3600,nil]],
+     [['1999-05-23T23:55:21-09:00',false],[1999,5,23,23,55,21,'-09:00',-9*3600,nil]],
+     [['1999-05-23 23:55:21Z',false],[1999,5,23,23,55,21,'Z',0,nil]],
+     [['1999-05-23T23:55:21Z',false],[1999,5,23,23,55,21,'Z',0,nil]],
+     [['-1999-05-23T23:55:21Z',false],[-1999,5,23,23,55,21,'Z',0,nil]],
+     [['-1999-05-23T23:55:21Z',true],[-1999,5,23,23,55,21,'Z',0,nil]],
+     [['19990523T23:55:21Z',false],[1999,5,23,23,55,21,'Z',0,nil]],
+
+     [['+011985-04-12',false],[11985,4,12,nil,nil,nil,nil,nil,nil]],
+     [['+011985-04-12T10:15:30',false],[11985,4,12,10,15,30,nil,nil,nil]],
+     [['-011985-04-12',false],[-11985,4,12,nil,nil,nil,nil,nil,nil]],
+     [['-011985-04-12T10:15:30',false],[-11985,4,12,10,15,30,nil,nil,nil]],
+
+     [['02-04-12',false],[2,4,12,nil,nil,nil,nil,nil,nil]],
+     [['02-04-12',true],[2002,4,12,nil,nil,nil,nil,nil,nil]],
+     [['0002-04-12',false],[2,4,12,nil,nil,nil,nil,nil,nil]],
+     [['0002-04-12',true],[2,4,12,nil,nil,nil,nil,nil,nil]],
+
+     [['19990523',true],[1999,5,23,nil,nil,nil,nil,nil,nil]],
+     [['-19990523',true],[-1999,5,23,nil,nil,nil,nil,nil,nil]],
+     [['990523',true],[1999,5,23,nil,nil,nil,nil,nil,nil]],
+     [['0523',false],[nil,5,23,nil,nil,nil,nil,nil,nil]],
+     [['23',false],[nil,nil,23,nil,nil,nil,nil,nil,nil]],
+
+     [['19990523 235521',true],[1999,5,23,23,55,21,nil,nil,nil]],
+     [['990523 235521',true],[1999,5,23,23,55,21,nil,nil,nil]],
+     [['0523 2355',false],[nil,5,23,23,55,nil,nil,nil,nil]],
+     [['23 2355',false],[nil,nil,23,23,55,nil,nil,nil,nil]],
+
+     [['19990523T235521',true],[1999,5,23,23,55,21,nil,nil,nil]],
+     [['990523T235521',true],[1999,5,23,23,55,21,nil,nil,nil]],
+     [['19990523T235521.99',true],[1999,5,23,23,55,21,nil,nil,nil]],
+     [['990523T235521.99',true],[1999,5,23,23,55,21,nil,nil,nil]],
+     [['0523T2355',false],[nil,5,23,23,55,nil,nil,nil,nil]],
+
+     [['19990523T235521+0900',true],[1999,5,23,23,55,21,'+0900',9*3600,nil]],
+     [['990523T235521-0900',true],[1999,5,23,23,55,21,'-0900',-9*3600,nil]],
+     [['19990523T235521.99+0900',true],[1999,5,23,23,55,21,'+0900',9*3600,nil]],
+     [['990523T235521.99-0900',true],[1999,5,23,23,55,21,'-0900',-9*3600,nil]],
+     [['0523T2355Z',false],[nil,5,23,23,55,nil,'Z',0,nil]],
+
+     [['19990523235521.123456+0900',true],[1999,5,23,23,55,21,'+0900',9*3600,nil]],
+     [['19990523235521.123456-0900',true],[1999,5,23,23,55,21,'-0900',-9*3600,nil]],
+     [['19990523235521,123456+0900',true],[1999,5,23,23,55,21,'+0900',9*3600,nil]],
+     [['19990523235521,123456-0900',true],[1999,5,23,23,55,21,'-0900',-9*3600,nil]],
+
+     [['990523235521,123456-0900',false],[99,5,23,23,55,21,'-0900',-9*3600,nil]],
+     [['0523235521,123456-0900',false],[nil,5,23,23,55,21,'-0900',-9*3600,nil]],
+     [['23235521,123456-0900',false],[nil,nil,23,23,55,21,'-0900',-9*3600,nil]],
+     [['235521,123456-0900',false],[nil,nil,nil,23,55,21,'-0900',-9*3600,nil]],
+     [['5521,123456-0900',false],[nil,nil,nil,nil,55,21,'-0900',-9*3600,nil]],
+     [['21,123456-0900',false],[nil,nil,nil,nil,nil,21,'-0900',-9*3600,nil]],
+
+     [['3235521,123456-0900',false],[nil,nil,3,23,55,21,'-0900',-9*3600,nil]],
+     [['35521,123456-0900',false],[nil,nil,nil,3,55,21,'-0900',-9*3600,nil]],
+     [['521,123456-0900',false],[nil,nil,nil,nil,5,21,'-0900',-9*3600,nil]],
+
+     # reversed iso 8601 (?)
+     [['??-??-????',false],[1999,5,23,nil,nil,nil,nil,nil,nil]],
+     [['??-??-???? 23:55:21',false],[1999,5,23,23,55,21,nil,nil,nil]],
+     [['23-05--1999 23:55:21',false],[-1999,5,23,23,55,21,nil,nil,nil]],
+     [["23-05-'99",false],[99,5,23,nil,nil,nil,nil,nil,nil]],
+     [["23-05-'99",true],[1999,5,23,nil,nil,nil,nil,nil,nil]],
+
+     # broken iso 8601 (?)
+#     [['1999-05-23T235521Z',false],[1999,5,23,23,55,21,'Z',0,nil]], # cp
+     [['19990523T23:55:21Z',false],[1999,5,23,23,55,21,'Z',0,nil]], 
+     [['19990523235521.1234-100',true],[1999,5,23,23,55,21,'-100',-1*3600,nil]],
+     [['19990523235521.1234-10',true],[1999,5,23,23,55,21,'-10',-10*3600,nil]],
+
+     # part of jis x0301
+     [['M11.05.23',false],[1878,5,23,nil,nil,nil,nil,nil,nil]],
+     [['T11.05.23 23:55:21+0900',false],[1922,5,23,23,55,21,'+0900',9*3600,nil]],
+     [['S11.05.23 23:55:21-0900',false],[1936,5,23,23,55,21,'-0900',-9*3600,nil]],
+     [['S40.05.23 23:55:21+09:00',false],[1965,5,23,23,55,21,'+09:00',9*3600,nil]],
+     [['S40.05.23T23:55:21-09:00',false],[1965,5,23,23,55,21,'-09:00',-9*3600,nil]],
+     [['H11.05.23 23:55:21Z',false],[1999,5,23,23,55,21,'Z',0,nil]],
+     [['H11.05.23T23:55:21Z',false],[1999,5,23,23,55,21,'Z',0,nil]],
+
+     # ofx date
+     [['19990523235521',false],[1999,5,23,23,55,21,nil,nil,nil]],
+     [['19990523235521.123',false],[1999,5,23,23,55,21,nil,nil,nil]],
+     [['19990523235521.123[-9]',false],[1999,5,23,23,55,21,'-9',-(9*3600),nil]],
+     [['19990523235521.123[+9]',false],[1999,5,23,23,55,21,'+9',+(9*3600),nil]],
+     [['19990523235521.123[9]',false],[1999,5,23,23,55,21,'9',+(9*3600),nil]],
+     [['19990523235521.123[-9.50]',false],[1999,5,23,23,55,21,'-9.50',-(9*3600+30*60),nil]],
+     [['19990523235521.123[+9.50]',false],[1999,5,23,23,55,21,'+9.50',+(9*3600+30*60),nil]],
+     [['19990523235521.123[-5:EST]',false],[1999,5,23,23,55,21,'EST',-5*3600,nil]],
+     [['19990523235521.123[+9:JST]',false],[1999,5,23,23,55,21,'JST',9*3600,nil]],
+     [['19990523235521.123[+12:XXX YYY ZZZ]',false],[1999,5,23,23,55,21,'XXX YYY ZZZ',12*3600,nil]],
+#     [['235521',false],[nil,nil,nil,23,55,21,nil,nil,nil]], # cp
+     [['235521.123',false],[nil,nil,nil,23,55,21,nil,nil,nil]],
+     [['235521.123[-9]',false],[nil,nil,nil,23,55,21,'-9',-9*3600,nil]],
+     [['235521.123[+9]',false],[nil,nil,nil,23,55,21,'+9',+9*3600,nil]],
+     [['235521.123[-5:EST]',false],[nil,nil,nil,23,55,21,'EST',-5*3600,nil]],
+     [['235521.123[+9:JST]',false],[nil,nil,nil,23,55,21,'JST',+9*3600,nil]],
+
+     # rfc 2822
+     [['Sun, 22 Aug 1999 00:45:29 -0400',false],[1999,8,22,0,45,29,'-0400',-4*3600,0]],
+     [['Sun, 22 Aug 1999 00:45:29 -9959',false],[1999,8,22,0,45,29,'-9959',-(99*3600+59*60),0]],
+     [['Sun, 22 Aug 1999 00:45:29 +9959',false],[1999,8,22,0,45,29,'+9959',+(99*3600+59*60),0]],
+     [['Sun, 22 Aug 05 00:45:29 -0400',true],[2005,8,22,0,45,29,'-0400',-4*3600,0]],
+     [['Sun, 22 Aug 49 00:45:29 -0400',true],[2049,8,22,0,45,29,'-0400',-4*3600,0]],
+#     [['Sun, 22 Aug 50 00:45:29 -0400',true],[1950,8,22,0,45,29,'-0400',-4*3600,0]],
+#     [['Sun, 22 Aug 111 00:45:29 -0400',true],[2011,8,22,0,45,29,'-0400',-4*3600,0]],
+     [['Sun, 22 Aug 1999 00:45:29 GMT',false],[1999,8,22,0,45,29,'GMT',0,0]],
+     [["Sun,\00022\r\nAug\r\n1999\r\n00:45:29\r\nGMT",false],[1999,8,22,0,45,29,'GMT',0,0]],
+     [['Sun, 22 Aug 1999 00:45 GMT',false],[1999,8,22,0,45,nil,'GMT',0,0]],
+     [['Sun, 22 Aug -1999 00:45 GMT',false],[-1999,8,22,0,45,nil,'GMT',0,0]],
+     [['Sun, 22 Aug 99 00:45:29 UT',true],[1999,8,22,0,45,29,'UT',0,0]],
+     [['Sun, 22 Aug 0099 00:45:29 UT',true],[99,8,22,0,45,29,'UT',0,0]],
+
+     # rfc 850, obsoleted by rfc 1036
+     [['Tuesday, 02-Mar-99 11:20:32 GMT',true],[1999,3,2,11,20,32,'GMT',0,2]],
+
+     # W3C Working Draft - XForms - 4.8 Time
+     [['2000-01-31 13:20:00-5',false],[2000,1,31,13,20,0,'-5',-5*3600,nil]],
+
+     # [-+]\d+.\d+
+     [['2000-01-31 13:20:00-5.5',false],[2000,1,31,13,20,0,'-5.5',-5*3600-30*60,nil]],
+     [['2000-01-31 13:20:00-5,5',false],[2000,1,31,13,20,0,'-5,5',-5*3600-30*60,nil]],
+     [['2000-01-31 13:20:00+3.5',false],[2000,1,31,13,20,0,'+3.5',3*3600+30*60,nil]],
+     [['2000-01-31 13:20:00+3,5',false],[2000,1,31,13,20,0,'+3,5',3*3600+30*60,nil]],
+
+     # mil
+     [['2000-01-31 13:20:00 Z',false],[2000,1,31,13,20,0,'Z',0*3600,nil]],
+     [['2000-01-31 13:20:00 H',false],[2000,1,31,13,20,0,'H',8*3600,nil]],
+     [['2000-01-31 13:20:00 M',false],[2000,1,31,13,20,0,'M',12*3600,nil]],
+     [['2000-01-31 13:20 M',false],[2000,1,31,13,20,nil,'M',12*3600,nil]],
+     [['2000-01-31 13:20:00 S',false],[2000,1,31,13,20,0,'S',-6*3600,nil]],
+     [['2000-01-31 13:20:00 A',false],[2000,1,31,13,20,0,'A',1*3600,nil]],
+     [['2000-01-31 13:20:00 P',false],[2000,1,31,13,20,0,'P',-3*3600,nil]],
+
+     # dot
+     [['1999.5.2',false],[1999,5,2,nil,nil,nil,nil,nil,nil]],
+     [['1999.05.02',false],[1999,5,2,nil,nil,nil,nil,nil,nil]],
+     [['-1999.05.02',false],[-1999,5,2,nil,nil,nil,nil,nil,nil]],
+#     [['05.02',false],[nil,5,2,nil,nil,nil,nil,nil,nil]], # not support
+#     [[' 5. 2',false],[nil,5,2,nil,nil,nil,nil,nil,nil]], # not support
+
+     [['0099.5.2',false],[99,5,2,nil,nil,nil,nil,nil,nil]],
+     [['0099.5.2',true],[99,5,2,nil,nil,nil,nil,nil,nil]],
+
+     [["'99.5.2",false],[99,5,2,nil,nil,nil,nil,nil,nil]],
+     [["'99.5.2",true],[1999,5,2,nil,nil,nil,nil,nil,nil]],
+
+     # reversed dot
+     [['2.5.1999',false],[1999,5,2,nil,nil,nil,nil,nil,nil]],
+     [['02.05.1999',false],[1999,5,2,nil,nil,nil,nil,nil,nil]],
+     [['02.05.-1999',false],[-1999,5,2,nil,nil,nil,nil,nil,nil]],
+
+     [['2.5.0099',false],[99,5,2,nil,nil,nil,nil,nil,nil]],
+     [['2.5.0099',true],[99,5,2,nil,nil,nil,nil,nil,nil]],
+
+     [["2.5.'99",false],[99,5,2,nil,nil,nil,nil,nil,nil]],
+     [["2.5.'99",true],[1999,5,2,nil,nil,nil,nil,nil,nil]],
+
+     # vms
+     [['08-DEC-1988',false],[1988,12,8,nil,nil,nil,nil,nil,nil]],
+     [['31-JAN-1999',false],[1999,1,31,nil,nil,nil,nil,nil,nil]],
+     [['31-JAN--1999',false],[-1999,1,31,nil,nil,nil,nil,nil,nil]],
+
+     [['08-DEC-88',false],[88,12,8,nil,nil,nil,nil,nil,nil]],
+     [['08-DEC-88',true],[1988,12,8,nil,nil,nil,nil,nil,nil]],
+     [['08-DEC-0088',false],[88,12,8,nil,nil,nil,nil,nil,nil]],
+     [['08-DEC-0088',true],[88,12,8,nil,nil,nil,nil,nil,nil]],
+
+     # swaped vms
+     [['DEC-08-1988',false],[1988,12,8,nil,nil,nil,nil,nil,nil]],
+     [['JAN-31-1999',false],[1999,1,31,nil,nil,nil,nil,nil,nil]],
+     [['JAN-31--1999',false],[-1999,1,31,nil,nil,nil,nil,nil,nil]],
+     [['JAN-1999',false],[1999,1,nil,nil,nil,nil,nil,nil,nil]],
+     [['JAN--1999',false],[-1999,1,nil,nil,nil,nil,nil,nil,nil]],
+
+     # reversed vms
+     [['1988-DEC-08',false],[1988,12,8,nil,nil,nil,nil,nil,nil]],
+     [['1999-JAN-31',false],[1999,1,31,nil,nil,nil,nil,nil,nil]],
+     [['-1999-JAN-31',false],[-1999,1,31,nil,nil,nil,nil,nil,nil]],
+
+     [['0088-DEC-08',false],[88,12,8,nil,nil,nil,nil,nil,nil]],
+     [['0088-DEC-08',true],[88,12,8,nil,nil,nil,nil,nil,nil]],
+
+     [["'88/12/8",false],[88,12,8,nil,nil,nil,nil,nil,nil]],
+     [["'88/12/8",true],[1988,12,8,nil,nil,nil,nil,nil,nil]],
+
+     # non-spaced eu
+     [['08/dec/1988',false],[1988,12,8,nil,nil,nil,nil,nil,nil]],
+     [['31/jan/1999',false],[1999,1,31,nil,nil,nil,nil,nil,nil]],
+     [['31/jan/-1999',false],[-1999,1,31,nil,nil,nil,nil,nil,nil]],
+     [['08.dec.1988',false],[1988,12,8,nil,nil,nil,nil,nil,nil]],
+     [['31.jan.1999',false],[1999,1,31,nil,nil,nil,nil,nil,nil]],
+     [['31.jan.-1999',false],[-1999,1,31,nil,nil,nil,nil,nil,nil]],
+
+     # non-spaced us
+     [['dec/08/1988',false],[1988,12,8,nil,nil,nil,nil,nil,nil]],
+     [['jan/31/1999',false],[1999,1,31,nil,nil,nil,nil,nil,nil]],
+     [['jan/31/-1999',false],[-1999,1,31,nil,nil,nil,nil,nil,nil]],
+     [['jan/31',false],[nil,1,31,nil,nil,nil,nil,nil,nil]],
+     [['jan/1988',false],[1988,1,nil,nil,nil,nil,nil,nil,nil]],
+     [['dec.08.1988',false],[1988,12,8,nil,nil,nil,nil,nil,nil]],
+     [['jan.31.1999',false],[1999,1,31,nil,nil,nil,nil,nil,nil]],
+     [['jan.31.-1999',false],[-1999,1,31,nil,nil,nil,nil,nil,nil]],
+     [['jan.31',false],[nil,1,31,nil,nil,nil,nil,nil,nil]],
+     [['jan.1988',false],[1988,1,nil,nil,nil,nil,nil,nil,nil]],
+
+     # month and day of month
+     [['Jan 1',false],[nil,1,1,nil,nil,nil,nil,nil,nil]],
+     [['Jul 11',false],[nil,7,11,nil,nil,nil,nil,nil,nil]],
+     [['July 11',false],[nil,7,11,nil,nil,nil,nil,nil,nil]],
+     [['Sept 23',false],[nil,9,23,nil,nil,nil,nil,nil,nil]],
+     [['Sep. 23',false],[nil,9,23,nil,nil,nil,nil,nil,nil]],
+     [['Sept. 23',false],[nil,9,23,nil,nil,nil,nil,nil,nil]],
+     [['September 23',false],[nil,9,23,nil,nil,nil,nil,nil,nil]],
+     [['October 1st',false],[nil,10,1,nil,nil,nil,nil,nil,nil]],
+     [['October 23rd',false],[nil,10,23,nil,nil,nil,nil,nil,nil]],
+     [['October 25th 1999',false],[1999,10,25,nil,nil,nil,nil,nil,nil]],
+     [['October 25th -1999',false],[-1999,10,25,nil,nil,nil,nil,nil,nil]],
+     [['october 25th 1999',false],[1999,10,25,nil,nil,nil,nil,nil,nil]],
+     [['OCTOBER 25th 1999',false],[1999,10,25,nil,nil,nil,nil,nil,nil]],
+     [['oCtoBer 25th 1999',false],[1999,10,25,nil,nil,nil,nil,nil,nil]],
+     [['aSep 23',false],[nil,nil,23,nil,nil,nil,nil,nil,nil]],
+
+     # month and year
+     [['Sept 1990',false],[1990,9,nil,nil,nil,nil,nil,nil,nil]],
+     [["Sept '90",false],[90,9,nil,nil,nil,nil,nil,nil,nil]],
+     [["Sept '90",true],[1990,9,nil,nil,nil,nil,nil,nil,nil]],
+     [['1990/09',false],[1990,9,nil,nil,nil,nil,nil,nil,nil]],
+     [['09/1990',false],[1990,9,nil,nil,nil,nil,nil,nil,nil]],
+     [["aSep '90",false],[90,nil,nil,nil,nil,nil,nil,nil,nil]],
+
+     # year
+     [["'90",false],[90,nil,nil,nil,nil,nil,nil,nil,nil]],
+     [["'90",true],[1990,nil,nil,nil,nil,nil,nil,nil,nil]],
+
+     # month
+     [['Jun',false],[nil,6,nil,nil,nil,nil,nil,nil,nil]],
+     [['June',false],[nil,6,nil,nil,nil,nil,nil,nil,nil]],
+     [['Sep',false],[nil,9,nil,nil,nil,nil,nil,nil,nil]],
+     [['Sept',false],[nil,9,nil,nil,nil,nil,nil,nil,nil]],
+     [['September',false],[nil,9,nil,nil,nil,nil,nil,nil,nil]],
+     [['aSep',false],[nil,nil,nil,nil,nil,nil,nil,nil,nil]],
+
+     # day of month
+     [['1st',false],[nil,nil,1,nil,nil,nil,nil,nil,nil]],
+     [['2nd',false],[nil,nil,2,nil,nil,nil,nil,nil,nil]],
+     [['3rd',false],[nil,nil,3,nil,nil,nil,nil,nil,nil]],
+     [['4th',false],[nil,nil,4,nil,nil,nil,nil,nil,nil]],
+     [['29th',false],[nil,nil,29,nil,nil,nil,nil,nil,nil]],
+     [['31st',false],[nil,nil,31,nil,nil,nil,nil,nil,nil]],
+     [['1sta',false],[nil,nil,nil,nil,nil,nil,nil,nil,nil]],
+
+     # era
+     [['Sat Aug 28 02:29:34 GMT CE 2000',false],[2000,8,28,2,29,34,'GMT',0,6]],
+     [['Sat Aug 28 02:29:34 GMT C.E. 2000',false],[2000,8,28,2,29,34,'GMT',0,6]],
+     [['Sat Aug 28 02:29:34 GMT BCE 2000',false],[-1999,8,28,2,29,34,'GMT',0,6]],
+     [['Sat Aug 28 02:29:34 GMT B.C.E. 2000',false],[-1999,8,28,2,29,34,'GMT',0,6]],
+     [['Sat Aug 28 02:29:34 GMT AD 2000',false],[2000,8,28,2,29,34,'GMT',0,6]],
+     [['Sat Aug 28 02:29:34 GMT A.D. 2000',false],[2000,8,28,2,29,34,'GMT',0,6]],
+     [['Sat Aug 28 02:29:34 GMT BC 2000',false],[-1999,8,28,2,29,34,'GMT',0,6]],
+     [['Sat Aug 28 02:29:34 GMT B.C. 2000',false],[-1999,8,28,2,29,34,'GMT',0,6]],
+     [['Sat Aug 28 02:29:34 GMT 2000 BC',false],[-1999,8,28,2,29,34,'GMT',0,6]],
+     [['Sat Aug 28 02:29:34 GMT 2000 BCE',false],[-1999,8,28,2,29,34,'GMT',0,6]],
+     [['Sat Aug 28 02:29:34 GMT 2000 B.C.',false],[-1999,8,28,2,29,34,'GMT',0,6]],
+     [['Sat Aug 28 02:29:34 GMT 2000 B.C.E.',false],[-1999,8,28,2,29,34,'GMT',0,6]],
+
+     # collection
+#     [['le ler juillet 1982',false],[1982,7,1,nil,nil,nil,nil,nil,nil]], # bih 1982
+#     [['30 June 1982 , 23h 59m 59s',false],[1982,6,30,23,59,59,nil,nil,nil]], # bih 1982
+     [['Tuesday, May 18, 1999 Published at 13:36 GMT 14:36 UK',false],[1999,5,18,13,36,nil,'GMT',0,2]], # bbc.co.uk
+     [['July 20, 2000 Web posted at: 3:37 p.m. EDT (1937 GMT)',false],[2000,7,20,15,37,nil,'EDT',-4*3600,nil]], # cnn.com
+     [['12:54 p.m. EDT, September 11, 2006',false],[2006,9,11,12,54,nil,'EDT',-4*3600,nil]], # cnn.com
+     [['February 04, 2001 at 10:59 AM PST',false],[2001,2,4,10,59,nil,'PST',-8*3600,nil]], # old amazon.com
+     [['Monday May 08, @01:55PM',false],[nil,5,8,13,55,nil,nil,nil,1]], # slashdot.org
+     [['06.June 2005',false],[2005,6,6,nil,nil,nil,nil,nil,nil]], # dhl.com
+
+     # etc.
+     [['8:00 pm lt',false],[nil,nil,nil,20,0,nil,'lt',nil,nil]],
+     [['4:00 AM, Jan. 12, 1990',false],[1990,1,12,4,0,nil,nil,nil,nil]],
+     [['Jan. 12 4:00 AM 1990',false],[1990,1,12,4,0,nil,nil,nil,nil]],
+#     [['Jan. 12 4:00 -1990',false],[-1990,1,12,4,0,nil,nil,nil,nil]], # cp
+     [['1990-01-12 04:00:00+00',false],[1990,1,12,4,0,0,'+00',0,nil]],
+     [['1990-01-11 20:00:00-08',false],[1990,1,11,20,0,0,'-08',-8*3600,nil]],
+     [['1990/01/12 04:00:00',false],[1990,1,12,4,0,0,nil,nil,nil]],
+#     [['Thu Jan 11 20:00:00 1990 LT',false], [1990,1,11,20,0,0,'LT',nil,4]], # cp
+     [['Thu Jan 11 20:00:00 PST 1990',false],[1990,1,11,20,0,0,'PST',-8*3600,4]],
+     [['Fri Jan 12 04:00:00 GMT 1990',false],[1990,1,12,4,0,0,'GMT',0,5]],
+     [['Thu, 11 Jan 1990 20:00:00 -0800',false],[1990,1,11,20,0,0,'-0800',-8*3600,4]],
+     [['12-January-1990, 04:00 WET',false],[1990,1,12,4,0,nil,'WET',0*3600,nil]],
+     [['jan 2 3 am +4 5',false],[5,1,2,3,nil,nil,'+4',4*3600,nil]],
+     [['jan 2 3 am +4 5',true],[2005,1,2,3,nil,nil,'+4',4*3600,nil]],
+     [['fri1feb3bc4pm+5',false],[-2,2,1,16,nil,nil,'+5',5*3600,5]],
+     [['fri1feb3bc4pm+5',true],[-2,2,1,16,nil,nil,'+5',5*3600,5]],
+     [['03 feb 1st',false],[03,2,1,nil,nil,nil,nil,nil,nil]],
+
+     # apostrophe
+     [["July 4, '79",true],[1979,7,4,nil,nil,nil,nil,nil,nil]],
+     [["4th July '79",true],[1979,7,4,nil,nil,nil,nil,nil,nil]],
+
+     # day of week
+     [['Sunday',false],[nil,nil,nil,nil,nil,nil,nil,nil,0]],
+     [['Mon',false],[nil,nil,nil,nil,nil,nil,nil,nil,1]],
+     [['Tue',false],[nil,nil,nil,nil,nil,nil,nil,nil,2]],
+     [['Wed',false],[nil,nil,nil,nil,nil,nil,nil,nil,3]],
+     [['Thurs',false],[nil,nil,nil,nil,nil,nil,nil,nil,4]],
+     [['Friday',false],[nil,nil,nil,nil,nil,nil,nil,nil,5]],
+     [['Sat.',false],[nil,nil,nil,nil,nil,nil,nil,nil,6]],
+     [['sat.',false],[nil,nil,nil,nil,nil,nil,nil,nil,6]],
+     [['SAT.',false],[nil,nil,nil,nil,nil,nil,nil,nil,6]],
+     [['sAt.',false],[nil,nil,nil,nil,nil,nil,nil,nil,6]],
+#     [['su',false],[nil,nil,nil,nil,nil,nil,nil,nil,0]],
+#     [['mo',false],[nil,nil,nil,nil,nil,nil,nil,nil,1]],
+
+     # time
+     [['09:55',false],[nil,nil,nil,9,55,nil,nil,nil,nil]],
+     [['09:55:30',false],[nil,nil,nil,9,55,30,nil,nil,nil]],
+     [['09:55:30am',false],[nil,nil,nil,9,55,30,nil,nil,nil]],
+     [['09:55:30pm',false],[nil,nil,nil,21,55,30,nil,nil,nil]],
+     [['09:55:30a.m.',false],[nil,nil,nil,9,55,30,nil,nil,nil]],
+     [['09:55:30p.m.',false],[nil,nil,nil,21,55,30,nil,nil,nil]],
+     [['09:55:30pm GMT',false],[nil,nil,nil,21,55,30,'GMT',0,nil]],
+     [['09:55:30p.m. GMT',false],[nil,nil,nil,21,55,30,'GMT',0,nil]],
+     [['09:55+0900',false],[nil,nil,nil,9,55,nil,'+0900',9*3600,nil]],
+     [['09 AM',false],[nil,nil,nil,9,nil,nil,nil,nil,nil]],
+     [['09am',false],[nil,nil,nil,9,nil,nil,nil,nil,nil]],
+     [['09 A.M.',false],[nil,nil,nil,9,nil,nil,nil,nil,nil]],
+     [['09 PM',false],[nil,nil,nil,21,nil,nil,nil,nil,nil]],
+     [['09pm',false],[nil,nil,nil,21,nil,nil,nil,nil,nil]],
+     [['09 P.M.',false],[nil,nil,nil,21,nil,nil,nil,nil,nil]],
+
+     [['9h22m23s',false],[nil,nil,nil,9,22,23,nil,nil,nil]],
+     [['9h 22m 23s',false],[nil,nil,nil,9,22,23,nil,nil,nil]],
+     [['9h22m',false],[nil,nil,nil,9,22,nil,nil,nil,nil]],
+     [['9h 22m',false],[nil,nil,nil,9,22,nil,nil,nil,nil]],
+     [['9h',false],[nil,nil,nil,9,nil,nil,nil,nil,nil]],
+     [['9h 22m 23s am',false],[nil,nil,nil,9,22,23,nil,nil,nil]],
+     [['9h 22m 23s pm',false],[nil,nil,nil,21,22,23,nil,nil,nil]],
+     [['9h 22m am',false],[nil,nil,nil,9,22,nil,nil,nil,nil]],
+     [['9h 22m pm',false],[nil,nil,nil,21,22,nil,nil,nil,nil]],
+     [['9h am',false],[nil,nil,nil,9,nil,nil,nil,nil,nil]],
+     [['9h pm',false],[nil,nil,nil,21,nil,nil,nil,nil,nil]],
+
+     [['00:00',false],[nil,nil,nil,0,0,nil,nil,nil,nil]],
+     [['01:00',false],[nil,nil,nil,1,0,nil,nil,nil,nil]],
+     [['11:00',false],[nil,nil,nil,11,0,nil,nil,nil,nil]],
+     [['12:00',false],[nil,nil,nil,12,0,nil,nil,nil,nil]],
+     [['13:00',false],[nil,nil,nil,13,0,nil,nil,nil,nil]],
+     [['23:00',false],[nil,nil,nil,23,0,nil,nil,nil,nil]],
+     [['24:00',false],[nil,nil,nil,24,0,nil,nil,nil,nil]],
+
+     [['00:00 AM',false],[nil,nil,nil,0,0,nil,nil,nil,nil]],
+     [['12:00 AM',false],[nil,nil,nil,0,0,nil,nil,nil,nil]],
+     [['01:00 AM',false],[nil,nil,nil,1,0,nil,nil,nil,nil]],
+     [['11:00 AM',false],[nil,nil,nil,11,0,nil,nil,nil,nil]],
+     [['00:00 PM',false],[nil,nil,nil,12,0,nil,nil,nil,nil]],
+     [['12:00 PM',false],[nil,nil,nil,12,0,nil,nil,nil,nil]],
+     [['01:00 PM',false],[nil,nil,nil,13,0,nil,nil,nil,nil]],
+     [['11:00 PM',false],[nil,nil,nil,23,0,nil,nil,nil,nil]],
+
+     # pick up the rest
+     [['2000-01-02 1',false],[2000,1,2,1,nil,nil,nil,nil,nil]],
+     [['2000-01-02 23',false],[2000,1,2,23,nil,nil,nil,nil,nil]],
+     [['2000-01-02 24',false],[2000,1,2,24,nil,nil,nil,nil,nil]],
+     [['1 03:04:05',false],[nil,nil,1,3,4,5,nil,nil,nil]],
+     [['02 03:04:05',false],[nil,nil,2,3,4,5,nil,nil,nil]],
+     [['31 03:04:05',false],[nil,nil,31,3,4,5,nil,nil,nil]],
+
+     # null, space
+     [['',false],[nil,nil,nil,nil,nil,nil,nil,nil,nil]],
+     [["\s",false],[nil,nil,nil,nil,nil,nil,nil,nil,nil]],
+     [["\s" * 10, true],[nil,nil,nil,nil,nil,nil,nil,nil,nil]],
+     [["\t",false],[nil,nil,nil,nil,nil,nil,nil,nil,nil]],
+     [["\n",false],[nil,nil,nil,nil,nil,nil,nil,nil,nil]],
+     [["\v",false],[nil,nil,nil,nil,nil,nil,nil,nil,nil]],
+     [["\f",false],[nil,nil,nil,nil,nil,nil,nil,nil,nil]],
+     [["\r",false],[nil,nil,nil,nil,nil,nil,nil,nil,nil]],
+     [["\t\n\v\f\r\s",false],[nil,nil,nil,nil,nil,nil,nil,nil,nil]],
+     [["1999-05-23\t\n\v\f\r\s21:34:56",false],[1999,5,23,21,34,56,nil,nil,nil]],
+     [["1999-05-23\n\n\n\n\n\n21:34:56",false],[1999,5,23,21,34,56,nil,nil,nil]],
+    ].each do |x,y|
+      h = Date._parse(*x)
+      a = h.values_at(:year,:mon,:mday,:hour,:min,:sec,:zone,:offset,:wday)
+      if y[1] == -1
+	a[1] = -1
+	a[2] = h[:yday]
+      end
+      assert_equal(y, a, [x, y, a].inspect)
+    end
+  end
+
+  def test__parse_slash_exp
+    [
+     [['2/5/1999',false],[1999,5,2,nil,nil,nil,nil,nil,nil]],
+     [['02/05/1999',false],[1999,5,2,nil,nil,nil,nil,nil,nil]],
+     [['02/05/-1999',false],[-1999,5,2,nil,nil,nil,nil,nil,nil]],
+     [['05/02',false],[nil,5,2,nil,nil,nil,nil,nil,nil]],
+     [[' 5/ 2',false],[nil,5,2,nil,nil,nil,nil,nil,nil]],
+
+     [["2/5/'99",true],[1999,5,2,nil,nil,nil,nil,nil,nil]],
+     [['2/5/0099',false],[99,5,2,nil,nil,nil,nil,nil,nil]],
+     [['2/5/0099',true],[99,5,2,nil,nil,nil,nil,nil,nil]],
+
+     [['2/5 1999',false],[1999,5,2,nil,nil,nil,nil,nil,nil]],
+     [['2/5-1999',false],[1999,5,2,nil,nil,nil,nil,nil,nil]],
+     [['2/5--1999',false],[-1999,5,2,nil,nil,nil,nil,nil,nil]],
+
+     # big
+     [['99/5/2',false],[99,5,2,nil,nil,nil,nil,nil,nil]],
+     [['99/5/2',true],[1999,5,2,nil,nil,nil,nil,nil,nil]],
+
+     [['1999/5/2',false],[1999,5,2,nil,nil,nil,nil,nil,nil]],
+     [['1999/05/02',false],[1999,5,2,nil,nil,nil,nil,nil,nil]],
+     [['-1999/05/02',false],[-1999,5,2,nil,nil,nil,nil,nil,nil]],
+
+     [['0099/5/2',false],[99,5,2,nil,nil,nil,nil,nil,nil]],
+     [['0099/5/2',true],[99,5,2,nil,nil,nil,nil,nil,nil]],
+
+     [["'99/5/2",false],[99,5,2,nil,nil,nil,nil,nil,nil]],
+     [["'99/5/2",true],[1999,5,2,nil,nil,nil,nil,nil,nil]],
+    ].each do |x,y|
+      h = Date._parse(*x)
+      a = h.values_at(:year,:mon,:mday,:hour,:min,:sec,:zone,:offset,:wday)
+      if y[1] == -1
+	a[1] = -1
+	a[2] = h[:yday]
+      end
+      assert_equal(y, a, [x, y, a].inspect)
+    end
+  end
+
+  def test__parse__2
+    h = Date._parse('22:45:59.5')
+    assert_equal([22, 45, 59, 5.to_r/10**1], h.values_at(:hour, :min, :sec, :sec_fraction))
+    h = Date._parse('22:45:59.05')
+    assert_equal([22, 45, 59, 5.to_r/10**2], h.values_at(:hour, :min, :sec, :sec_fraction))
+    h = Date._parse('22:45:59.005')
+    assert_equal([22, 45, 59, 5.to_r/10**3], h.values_at(:hour, :min, :sec, :sec_fraction))
+    h = Date._parse('22:45:59.0123')
+    assert_equal([22, 45, 59, 123.to_r/10**4], h.values_at(:hour, :min, :sec, :sec_fraction))
+
+    h = Date._parse('224559.5')
+    assert_equal([22, 45, 59, 5.to_r/10**1], h.values_at(:hour, :min, :sec, :sec_fraction))
+    h = Date._parse('224559.05')
+    assert_equal([22, 45, 59, 5.to_r/10**2], h.values_at(:hour, :min, :sec, :sec_fraction))
+    h = Date._parse('224559.005')
+    assert_equal([22, 45, 59, 5.to_r/10**3], h.values_at(:hour, :min, :sec, :sec_fraction))
+    h = Date._parse('224559.0123')
+    assert_equal([22, 45, 59, 123.to_r/10**4], h.values_at(:hour, :min, :sec, :sec_fraction))
+
+    h = Date._parse('2006-w15-5')
+    assert_equal([2006, 15, 5], h.values_at(:cwyear, :cweek, :cwday))
+    h = Date._parse('2006w155')
+    assert_equal([2006, 15, 5], h.values_at(:cwyear, :cweek, :cwday))
+    h = Date._parse('06w155', false)
+    assert_equal([6, 15, 5], h.values_at(:cwyear, :cweek, :cwday))
+    h = Date._parse('06w155', true)
+    assert_equal([2006, 15, 5], h.values_at(:cwyear, :cweek, :cwday))
+
+    h = Date._parse('2006-w15')
+    assert_equal([2006, 15, nil], h.values_at(:cwyear, :cweek, :cwday))
+    h = Date._parse('2006w15')
+    assert_equal([2006, 15, nil], h.values_at(:cwyear, :cweek, :cwday))
+
+    h = Date._parse('-w15-5')
+    assert_equal([nil, 15, 5], h.values_at(:cwyear, :cweek, :cwday))
+    h = Date._parse('-w155')
+    assert_equal([nil, 15, 5], h.values_at(:cwyear, :cweek, :cwday))
+
+    h = Date._parse('-w15')
+    assert_equal([nil, 15, nil], h.values_at(:cwyear, :cweek, :cwday))
+    h = Date._parse('-w15')
+    assert_equal([nil, 15, nil], h.values_at(:cwyear, :cweek, :cwday))
+
+    h = Date._parse('-w-5')
+    assert_equal([nil, nil, 5], h.values_at(:cwyear, :cweek, :cwday))
+
+    h = Date._parse('--11-29')
+    assert_equal([nil, 11, 29], h.values_at(:year, :mon, :mday))
+    h = Date._parse('--1129')
+    assert_equal([nil, 11, 29], h.values_at(:year, :mon, :mday))
+    h = Date._parse('--11')
+    assert_equal([nil, 11, nil], h.values_at(:year, :mon, :mday))
+    h = Date._parse('---29')
+    assert_equal([nil, nil, 29], h.values_at(:year, :mon, :mday))
+    h = Date._parse('-333')
+    assert_equal([nil, 333], h.values_at(:year, :yday))
+
+    h = Date._parse('2006-333')
+    assert_equal([2006, 333], h.values_at(:year, :yday))
+    h = Date._parse('2006333')
+    assert_equal([2006, 333], h.values_at(:year, :yday))
+    h = Date._parse('06333', false)
+    assert_equal([6, 333], h.values_at(:year, :yday))
+    h = Date._parse('06333', true)
+    assert_equal([2006, 333], h.values_at(:year, :yday))
+    h = Date._parse('333')
+    assert_equal([nil, 333], h.values_at(:year, :yday))
+  end
+
+  def test_parse
+    assert_equal(Date.new, Date.parse)
+    assert_equal(Date.new(2002,3,14), Date.parse('2002-03-14'))
+
+    assert_equal(DateTime.new(2002,3,14,11,22,33, 0),
+		 DateTime.parse('2002-03-14T11:22:33Z'))
+    assert_equal(DateTime.new(2002,3,14,11,22,33, 9.to_r/24),
+		 DateTime.parse('2002-03-14T11:22:33+09:00'))
+    assert_equal(DateTime.new(2002,3,14,11,22,33, -9.to_r/24),
+		 DateTime.parse('2002-03-14T11:22:33-09:00'))
+    assert_equal(DateTime.new(2002,3,14,11,22,33, -9.to_r/24) + 123456789.to_r/1000000000/86400,
+		 DateTime.parse('2002-03-14T11:22:33.123456789-09:00'))
+  end
+
+  def test_parse__2
+    d1 = DateTime.parse('2004-03-13T22:45:59.5')
+    d2 = DateTime.parse('2004-03-13T22:45:59')
+    assert_equal(d2 + 5.to_r/10**1/86400, d1)
+    d1 = DateTime.parse('2004-03-13T22:45:59.05')
+    d2 = DateTime.parse('2004-03-13T22:45:59')
+    assert_equal(d2 + 5.to_r/10**2/86400, d1)
+    d1 = DateTime.parse('2004-03-13T22:45:59.005')
+    d2 = DateTime.parse('2004-03-13T22:45:59')
+    assert_equal(d2 + 5.to_r/10**3/86400, d1)
+    d1 = DateTime.parse('2004-03-13T22:45:59.0123')
+    d2 = DateTime.parse('2004-03-13T22:45:59')
+    assert_equal(d2 + 123.to_r/10**4/86400, d1)
+    d1 = DateTime.parse('2004-03-13T22:45:59.5')
+    d1 += 1.to_r/2/86400
+    d2 = DateTime.parse('2004-03-13T22:46:00')
+    assert_equal(d2, d1)
+  end
+
+  require 'time'
+
+  def test_parse__time
+    methods = [:to_s, :asctime, :iso8601, :rfc2822, :httpdate, :xmlschema]
+
+    t = Time.utc(2001,2,3,4,5,6)
+    methods.each do |m|
+      d = DateTime.parse(t.__send__(m))
+      assert_equal([2001, 2, 3, 4, 5, 6],
+		   [d.year, d.mon, d.mday, d.hour, d.min, d.sec],
+		   [m, t.__send__(m)].inspect)
+    end
+
+    t = Time.mktime(2001,2,3,4,5,6)
+    methods.each do |m|
+      next if m == :httpdate
+      d = DateTime.parse(t.__send__(m))
+      assert_equal([2001, 2, 3, 4, 5, 6],
+		   [d.year, d.mon, d.mday, d.hour, d.min, d.sec],
+		   [m, t.__send__(m)].inspect)
+    end
+  end
+
+  def test_parse__comp
+    n = DateTime.now
+
+    d = DateTime.parse('073')
+    assert_equal([n.year, 73, 0, 0, 0],
+		 [d.year, d.yday, d.hour, d.min, d.sec])
+    d = DateTime.parse('13')
+    assert_equal([n.year, n.mon, 13, 0, 0, 0],
+		 [d.year, d.mon, d.mday, d.hour, d.min, d.sec])
+
+    d = DateTime.parse('Mar 13')
+    assert_equal([n.year, 3, 13, 0, 0, 0],
+		 [d.year, d.mon, d.mday, d.hour, d.min, d.sec])
+    d = DateTime.parse('Mar 2004')
+    assert_equal([2004, 3, 1, 0, 0, 0],
+		 [d.year, d.mon, d.mday, d.hour, d.min, d.sec])
+    d = DateTime.parse('23:55')
+    assert_equal([n.year, n.mon, n.mday, 23, 55, 0],
+		 [d.year, d.mon, d.mday, d.hour, d.min, d.sec])
+    d = DateTime.parse('23:55:30')
+    assert_equal([n.year, n.mon, n.mday, 23, 55, 30],
+		 [d.year, d.mon, d.mday, d.hour, d.min, d.sec])
+
+    d = DateTime.parse('Sun 23:55')
+    d2 = d - d.wday
+    assert_equal([d2.year, d2.mon, d2.mday, 23, 55, 0],
+		 [d.year, d.mon, d.mday, d.hour, d.min, d.sec])
+    d = DateTime.parse('Aug 23:55')
+    assert_equal([n.year, 8, 1, 23, 55, 0],
+		 [d.year, d.mon, d.mday, d.hour, d.min, d.sec])
+  end
+
+  def test_parse__d_to_s
+    d = Date.new(2002,3,14)
+    assert_equal(d, Date.parse(d.to_s))
+
+    d = DateTime.new(2002,3,14,11,22,33, 9.to_r/24)
+    assert_equal(d, DateTime.parse(d.to_s))
+  end
+
+  def test_parse__ex
+    assert_raise(ArgumentError) do
+      Date.parse('')
+    end
+    assert_raise(ArgumentError) do
+      Date.parse('2001-02-29')
+    end
+    assert_raise(ArgumentError) do
+      DateTime.parse('2001-02-29T23:59:60')
+    end
+    assert_raise(ArgumentError) do
+      Date.parse('23:55')
+    end
+  end
+
+  def test__iso8601
+    h = Date._iso8601('01-02-03')
+    assert_equal([2001, 2, 3, nil, nil, nil, nil],
+		 h.values_at(:year, :mon, :mday, :hour, :min, :sec, :offset))
+    h = Date._iso8601('2001-02-03')
+    assert_equal([2001, 2, 3, nil, nil, nil, nil],
+		 h.values_at(:year, :mon, :mday, :hour, :min, :sec, :offset))
+    h = Date._iso8601('--02-03')
+    assert_equal([nil, 2, 3, nil, nil, nil, nil],
+		 h.values_at(:year, :mon, :mday, :hour, :min, :sec, :offset))
+
+    h = Date._iso8601('2001-02-03T04:05')
+    assert_equal([2001, 2, 3, 4, 5, nil, nil],
+		 h.values_at(:year, :mon, :mday, :hour, :min, :sec, :offset))
+    h = Date._iso8601('2001-02-03T04:05:06')
+    assert_equal([2001, 2, 3, 4, 5, 6, nil],
+		 h.values_at(:year, :mon, :mday, :hour, :min, :sec, :offset))
+    h = Date._iso8601('2001-02-03T04:05:06,07')
+    assert_equal([2001, 2, 3, 4, 5, 6, nil],
+		 h.values_at(:year, :mon, :mday, :hour, :min, :sec, :offset))
+    h = Date._iso8601('2001-02-03T04:05:06Z')
+    assert_equal([2001, 2, 3, 4, 5, 6, 0],
+		 h.values_at(:year, :mon, :mday, :hour, :min, :sec, :offset))
+    h = Date._iso8601('2001-02-03T04:05:06.07+01:00')
+    assert_equal([2001, 2, 3, 4, 5, 6, 3600],
+		 h.values_at(:year, :mon, :mday, :hour, :min, :sec, :offset))
+
+    h = Date._iso8601('010203')
+    assert_equal([2001, 2, 3, nil, nil, nil, nil],
+		 h.values_at(:year, :mon, :mday, :hour, :min, :sec, :offset))
+    h = Date._iso8601('20010203')
+    assert_equal([2001, 2, 3, nil, nil, nil, nil],
+		 h.values_at(:year, :mon, :mday, :hour, :min, :sec, :offset))
+    h = Date._iso8601('--0203')
+    assert_equal([nil, 2, 3, nil, nil, nil, nil],
+		 h.values_at(:year, :mon, :mday, :hour, :min, :sec, :offset))
+
+    h = Date._iso8601('010203T0405')
+    assert_equal([2001, 2, 3, 4, 5, nil, nil],
+		 h.values_at(:year, :mon, :mday, :hour, :min, :sec, :offset))
+    h = Date._iso8601('20010203T0405')
+    assert_equal([2001, 2, 3, 4, 5, nil, nil],
+		 h.values_at(:year, :mon, :mday, :hour, :min, :sec, :offset))
+    h = Date._iso8601('20010203T040506')
+    assert_equal([2001, 2, 3, 4, 5, 6, nil],
+		 h.values_at(:year, :mon, :mday, :hour, :min, :sec, :offset))
+    h = Date._iso8601('20010203T040506,07')
+    assert_equal([2001, 2, 3, 4, 5, 6, nil],
+		 h.values_at(:year, :mon, :mday, :hour, :min, :sec, :offset))
+    h = Date._iso8601('20010203T040506Z')
+    assert_equal([2001, 2, 3, 4, 5, 6, 0],
+		 h.values_at(:year, :mon, :mday, :hour, :min, :sec, :offset))
+    h = Date._iso8601('20010203T040506.07+0100')
+    assert_equal([2001, 2, 3, 4, 5, 6, 3600],
+		 h.values_at(:year, :mon, :mday, :hour, :min, :sec, :offset))
+
+    h = Date._iso8601('200102030405')
+    assert_equal([2001, 2, 3, 4, 5, nil, nil],
+		 h.values_at(:year, :mon, :mday, :hour, :min, :sec, :offset))
+    h = Date._iso8601('20010203040506')
+    assert_equal([2001, 2, 3, 4, 5, 6, nil],
+		 h.values_at(:year, :mon, :mday, :hour, :min, :sec, :offset))
+    h = Date._iso8601('20010203040506,07')
+    assert_equal([2001, 2, 3, 4, 5, 6, nil],
+		 h.values_at(:year, :mon, :mday, :hour, :min, :sec, :offset))
+    h = Date._iso8601('20010203040506Z')
+    assert_equal([2001, 2, 3, 4, 5, 6, 0],
+		 h.values_at(:year, :mon, :mday, :hour, :min, :sec, :offset))
+    h = Date._iso8601('20010203040506.07+0100')
+    assert_equal([2001, 2, 3, 4, 5, 6, 3600],
+		 h.values_at(:year, :mon, :mday, :hour, :min, :sec, :offset))
+
+    h = Date._iso8601('01-023')
+    assert_equal([2001, 23, nil, nil, nil, nil],
+		 h.values_at(:year, :yday, :hour, :min, :sec, :offset))
+    h = Date._iso8601('2001-023')
+    assert_equal([2001, 23, nil, nil, nil, nil],
+		 h.values_at(:year, :yday, :hour, :min, :sec, :offset))
+    h = Date._iso8601('-023')
+    assert_equal([nil, 23, nil, nil, nil, nil],
+		 h.values_at(:year, :yday, :hour, :min, :sec, :offset))
+
+    h = Date._iso8601('04:05')
+    assert_equal([nil, nil, nil, 4, 5, nil, nil],
+		 h.values_at(:year, :mon, :mday, :hour, :min, :sec, :offset))
+    h = Date._iso8601('04:05:06')
+    assert_equal([nil, nil, nil, 4, 5, 6, nil],
+		 h.values_at(:year, :mon, :mday, :hour, :min, :sec, :offset))
+    h = Date._iso8601('04:05:06,07')
+    assert_equal([nil, nil, nil, 4, 5, 6, nil],
+		 h.values_at(:year, :mon, :mday, :hour, :min, :sec, :offset))
+    h = Date._iso8601('04:05:06Z')
+    assert_equal([nil, nil, nil, 4, 5, 6, 0],
+		 h.values_at(:year, :mon, :mday, :hour, :min, :sec, :offset))
+    h = Date._iso8601('04:05:06.07+01:00')
+    assert_equal([nil, nil, nil, 4, 5, 6, 3600],
+		 h.values_at(:year, :mon, :mday, :hour, :min, :sec, :offset))
+
+    h = Date._iso8601('040506,07')
+    assert_equal([nil, nil, nil, 4, 5, 6, nil],
+		 h.values_at(:year, :mon, :mday, :hour, :min, :sec, :offset))
+    h = Date._iso8601('040506.07+0100')
+    assert_equal([nil, nil, nil, 4, 5, 6, 3600],
+		 h.values_at(:year, :mon, :mday, :hour, :min, :sec, :offset))
+
+    h = Date._iso8601('01-w02-3')
+    assert_equal([2001, 2, 3, nil, nil, nil, nil],
+		 h.values_at(:cwyear, :cweek, :cwday, :hour, :min, :sec, :offset))
+    h = Date._iso8601('2001-w02-3')
+    assert_equal([2001, 2, 3, nil, nil, nil, nil],
+		 h.values_at(:cwyear, :cweek, :cwday, :hour, :min, :sec, :offset))
+    h = Date._iso8601('2001w023')
+    assert_equal([2001, 2, 3, nil, nil, nil, nil],
+		 h.values_at(:cwyear, :cweek, :cwday, :hour, :min, :sec, :offset))
+    h = Date._iso8601('-w02-3')
+    assert_equal([nil, 2, 3, nil, nil, nil, nil],
+		 h.values_at(:cwyear, :cweek, :cwday, :hour, :min, :sec, :offset))
+    h = Date._iso8601('-w-3')
+    assert_equal([nil, nil, 3, nil, nil, nil, nil],
+		 h.values_at(:cwyear, :cweek, :cwday, :hour, :min, :sec, :offset))
+  end
+
+  def test__rfc3339
+    h = Date._rfc3339('2001-02-03T04:05:06Z')
+    assert_equal([2001, 2, 3, 4, 5, 6, 0],
+		 h.values_at(:year, :mon, :mday, :hour, :min, :sec, :offset))
+    h = Date._rfc3339('2001-02-03 04:05:06Z')
+    assert_equal([2001, 2, 3, 4, 5, 6, 0],
+		 h.values_at(:year, :mon, :mday, :hour, :min, :sec, :offset))
+    h = Date._rfc3339('2001-02-03T04:05:06.07+01:00')
+    assert_equal([2001, 2, 3, 4, 5, 6, 3600],
+		 h.values_at(:year, :mon, :mday, :hour, :min, :sec, :offset))
+  end
+
+  def test__xmlschema
+    h = Date._xmlschema('2001-02-03')
+    assert_equal([2001, 2, 3, nil, nil, nil, nil],
+		 h.values_at(:year, :mon, :mday, :hour, :min, :sec, :offset))
+    h = Date._xmlschema('2001-02-03Z')
+    assert_equal([2001, 2, 3, nil, nil, nil, 0],
+		 h.values_at(:year, :mon, :mday, :hour, :min, :sec, :offset))
+    h = Date._xmlschema('2001-02-03+01:00')
+    assert_equal([2001, 2, 3, nil, nil, nil, 3600],
+		 h.values_at(:year, :mon, :mday, :hour, :min, :sec, :offset))
+
+    h = Date._xmlschema('2001-02-03T04:05:06')
+    assert_equal([2001, 2, 3, 4, 5, 6, nil],
+		 h.values_at(:year, :mon, :mday, :hour, :min, :sec, :offset))
+    h = Date._xmlschema('2001-02-03T04:05:06.07')
+    assert_equal([2001, 2, 3, 4, 5, 6, nil],
+		 h.values_at(:year, :mon, :mday, :hour, :min, :sec, :offset))
+    h = Date._xmlschema('2001-02-03T04:05:06.07Z')
+    assert_equal([2001, 2, 3, 4, 5, 6, 0],
+		 h.values_at(:year, :mon, :mday, :hour, :min, :sec, :offset))
+    h = Date._xmlschema('2001-02-03T04:05:06.07+01:00')
+    assert_equal([2001, 2, 3, 4, 5, 6, 3600],
+		 h.values_at(:year, :mon, :mday, :hour, :min, :sec, :offset))
+
+    h = Date._xmlschema('04:05:06')
+    assert_equal([nil, nil, nil, 4, 5, 6, nil],
+		 h.values_at(:year, :mon, :mday, :hour, :min, :sec, :offset))
+    h = Date._xmlschema('04:05:06Z')
+    assert_equal([nil, nil, nil, 4, 5, 6, 0],
+		 h.values_at(:year, :mon, :mday, :hour, :min, :sec, :offset))
+    h = Date._xmlschema('04:05:06+01:00')
+    assert_equal([nil, nil, nil, 4, 5, 6, 3600],
+		 h.values_at(:year, :mon, :mday, :hour, :min, :sec, :offset))
+
+    h = Date._xmlschema('2001-02')
+    assert_equal([2001, 2, nil, nil, nil, nil, nil],
+		 h.values_at(:year, :mon, :mday, :hour, :min, :sec, :offset))
+    h = Date._xmlschema('2001-02Z')
+    assert_equal([2001, 2, nil, nil, nil, nil, 0],
+		 h.values_at(:year, :mon, :mday, :hour, :min, :sec, :offset))
+    h = Date._xmlschema('2001-02+01:00')
+    assert_equal([2001, 2, nil, nil, nil, nil, 3600],
+		 h.values_at(:year, :mon, :mday, :hour, :min, :sec, :offset))
+    h = Date._xmlschema('2001-02-01:00')
+    assert_equal([2001, 2, nil, nil, nil, nil, -3600],
+		 h.values_at(:year, :mon, :mday, :hour, :min, :sec, :offset))
+
+    h = Date._xmlschema('2001')
+    assert_equal([2001, nil, nil, nil, nil, nil, nil],
+		 h.values_at(:year, :mon, :mday, :hour, :min, :sec, :offset))
+    h = Date._xmlschema('2001Z')
+    assert_equal([2001, nil, nil, nil, nil, nil, 0],
+		 h.values_at(:year, :mon, :mday, :hour, :min, :sec, :offset))
+    h = Date._xmlschema('2001+01:00')
+    assert_equal([2001, nil, nil, nil, nil, nil, 3600],
+		 h.values_at(:year, :mon, :mday, :hour, :min, :sec, :offset))
+    h = Date._xmlschema('2001-01:00')
+    assert_equal([2001, nil, nil, nil, nil, nil, -3600],
+		 h.values_at(:year, :mon, :mday, :hour, :min, :sec, :offset))
+
+    h = Date._xmlschema('--02')
+    assert_equal([nil, 2, nil, nil, nil, nil, nil],
+		 h.values_at(:year, :mon, :mday, :hour, :min, :sec, :offset))
+    h = Date._xmlschema('--02Z')
+    assert_equal([nil, 2, nil, nil, nil, nil, 0],
+		 h.values_at(:year, :mon, :mday, :hour, :min, :sec, :offset))
+    h = Date._xmlschema('--02+01:00')
+    assert_equal([nil, 2, nil, nil, nil, nil, 3600],
+		 h.values_at(:year, :mon, :mday, :hour, :min, :sec, :offset))
+
+    h = Date._xmlschema('92001-02-03T04:05:06.07+01:00')
+    assert_equal([92001, 2, 3, 4, 5, 6, 3600],
+		 h.values_at(:year, :mon, :mday, :hour, :min, :sec, :offset))
+
+    h = Date._xmlschema('-92001-02-03T04:05:06.07+01:00')
+    assert_equal([-92001, 2, 3, 4, 5, 6, 3600],
+		 h.values_at(:year, :mon, :mday, :hour, :min, :sec, :offset))
+  end
+
+  def test__rfc2822
+    h = Date._rfc2822('Sat, 3 Feb 2001 04:05:06 UT')
+    assert_equal([2001, 2, 3, 4, 5, 6, 0],
+		 h.values_at(:year, :mon, :mday, :hour, :min, :sec, :offset))
+    h = Date._rfc2822('Sat, 3 Feb 2001 04:05:06 EST')
+    assert_equal([2001, 2, 3, 4, 5, 6, -5*3600],
+		 h.values_at(:year, :mon, :mday, :hour, :min, :sec, :offset))
+    h = Date._rfc2822('Sat, 3 Feb 2001 04:05:06 +0000')
+    assert_equal([2001, 2, 3, 4, 5, 6, 0],
+		 h.values_at(:year, :mon, :mday, :hour, :min, :sec, :offset))
+    h = Date._rfc2822('Sat, 3 Feb 2001 04:05:06 +0100')
+    assert_equal([2001, 2, 3, 4, 5, 6, 3600],
+		 h.values_at(:year, :mon, :mday, :hour, :min, :sec, :offset))
+
+    h = Date._rfc2822('Sat, 03 Feb 50 04:05:06 +0100')
+    assert_equal([1950, 2, 3, 4, 5, 6, 3600],
+		 h.values_at(:year, :mon, :mday, :hour, :min, :sec, :offset))
+    h = Date._rfc2822('Sat, 03 Feb 49 04:05:06 +0100')
+    assert_equal([2049, 2, 3, 4, 5, 6, 3600],
+		 h.values_at(:year, :mon, :mday, :hour, :min, :sec, :offset))
+    h = Date._rfc2822('Sat, 03 Feb 100 04:05:06 +0100')
+    assert_equal([2000, 2, 3, 4, 5, 6, 3600],
+		 h.values_at(:year, :mon, :mday, :hour, :min, :sec, :offset))
+
+    h1 = Date._rfc2822('Sat, 3 Feb 2001 04:05:06 UT')
+    h2 = Date._rfc822('Sat, 3 Feb 2001 04:05:06 UT')
+    assert_equal(h1, h2)
+  end
+
+  def test__httpdate
+    h = Date._httpdate('Sat, 03 Feb 2001 04:05:06 GMT')
+    assert_equal([2001, 2, 3, 4, 5, 6, 0],
+		 h.values_at(:year, :mon, :mday, :hour, :min, :sec, :offset))
+
+    h = Date._httpdate('Saturday, 03-Feb-01 04:05:06 GMT')
+    assert_equal([2001, 2, 3, 4, 5, 6, 0],
+		 h.values_at(:year, :mon, :mday, :hour, :min, :sec, :offset))
+
+    h = Date._httpdate('Sat Feb  3 04:05:06 2001')
+    assert_equal([2001, 2, 3, 4, 5, 6, nil],
+		 h.values_at(:year, :mon, :mday, :hour, :min, :sec, :offset))
+    h = Date._httpdate('Sat Feb 03 04:05:06 2001')
+    assert_equal([2001, 2, 3, 4, 5, 6, nil],
+		 h.values_at(:year, :mon, :mday, :hour, :min, :sec, :offset))
+  end
+
+  def test__jisx0301
+    h = Date._jisx0301('13.02.03')
+    assert_equal([2001, 2, 3, nil, nil, nil, nil],
+		 h.values_at(:year, :mon, :mday, :hour, :min, :sec, :offset))
+    h = Date._jisx0301('H13.02.03')
+    assert_equal([2001, 2, 3, nil, nil, nil, nil],
+		 h.values_at(:year, :mon, :mday, :hour, :min, :sec, :offset))
+    h = Date._jisx0301('S63.02.03')
+    assert_equal([1988, 2, 3, nil, nil, nil, nil],
+		 h.values_at(:year, :mon, :mday, :hour, :min, :sec, :offset))
+
+    h = Date._jisx0301('H13.02.03T04:05:06')
+    assert_equal([2001, 2, 3, 4, 5, 6, nil],
+		 h.values_at(:year, :mon, :mday, :hour, :min, :sec, :offset))
+    h = Date._jisx0301('H13.02.03T04:05:06,07')
+    assert_equal([2001, 2, 3, 4, 5, 6, nil],
+		 h.values_at(:year, :mon, :mday, :hour, :min, :sec, :offset))
+    h = Date._jisx0301('H13.02.03T04:05:06Z')
+    assert_equal([2001, 2, 3, 4, 5, 6, 0],
+		 h.values_at(:year, :mon, :mday, :hour, :min, :sec, :offset))
+    h = Date._jisx0301('H13.02.03T04:05:06.07+0100')
+    assert_equal([2001, 2, 3, 4, 5, 6, 3600],
+		 h.values_at(:year, :mon, :mday, :hour, :min, :sec, :offset))
+  end
+
+  def test_iso8601
+    assert_instance_of(Date, Date.iso8601)
+    assert_instance_of(DateTime, DateTime.iso8601)
+  end
+
+  def test_rfc3339
+    assert_instance_of(Date, Date.rfc3339)
+    assert_instance_of(DateTime, DateTime.rfc3339)
+  end
+
+  def test_xmlschema
+    assert_instance_of(Date, Date.xmlschema)
+    assert_instance_of(DateTime, DateTime.xmlschema)
+  end
+
+  def test_rfc2822
+    assert_instance_of(Date, Date.rfc2822)
+    assert_instance_of(DateTime, DateTime.rfc2822)
+    assert_instance_of(Date, Date.rfc822)
+    assert_instance_of(DateTime, DateTime.rfc822)
+  end
+
+  def test_httpdate
+    assert_instance_of(Date, Date.httpdate)
+    assert_instance_of(DateTime, DateTime.httpdate)
+  end
+
+  def test_jisx0301
+    assert_instance_of(Date, Date.jisx0301)
+    assert_instance_of(DateTime, DateTime.jisx0301)
+  end
+
+end

Property changes on: test/date/test_date_parse.rb
___________________________________________________________________
Name: svn:mime-type
   + text/plain
Name: svn:eol-style
   + LF

Index: test/date/test_date_strftime.rb
===================================================================
--- test/date/test_date_strftime.rb	(revision 0)
+++ test/date/test_date_strftime.rb	(revision 19609)
@@ -0,0 +1,374 @@
+require 'test/unit'
+require 'date'
+
+class TestDateStrftime < Test::Unit::TestCase
+
+  STRFTIME_2001_02_03 = {
+    '%A'=>['Saturday',{:wday=>6}],
+    '%a'=>['Sat',{:wday=>6}],
+    '%B'=>['February',{:mon=>2}],
+    '%b'=>['Feb',{:mon=>2}],
+    '%c'=>['Sat Feb  3 00:00:00 2001',
+      {:wday=>6,:mon=>2,:mday=>3,:hour=>0,:min=>0,:sec=>0,:year=>2001}],
+    '%d'=>['03',{:mday=>3}],
+    '%e'=>[' 3',{:mday=>3}],
+    '%H'=>['00',{:hour=>0}],
+    '%I'=>['12',{:hour=>0}],
+    '%j'=>['034',{:yday=>34}],
+    '%M'=>['00',{:min=>0}],
+    '%m'=>['02',{:mon=>2}],
+    '%p'=>['AM',{}],
+    '%S'=>['00',{:sec=>0}],
+    '%U'=>['04',{:wnum0=>4}],
+    '%W'=>['05',{:wnum1=>5}],
+    '%X'=>['00:00:00',{:hour=>0,:min=>0,:sec=>0}],
+    '%x'=>['02/03/01',{:mon=>2,:mday=>3,:year=>2001}],
+    '%Y'=>['2001',{:year=>2001}],
+    '%y'=>['01',{:year=>2001}],
+    '%Z'=>['+00:00',{:zone=>'+00:00',:offset=>0}],
+    '%%'=>['%',{}],
+    '%C'=>['20',{}],
+    '%D'=>['02/03/01',{:mon=>2,:mday=>3,:year=>2001}],
+    '%F'=>['2001-02-03',{:year=>2001,:mon=>2,:mday=>3}],
+    '%G'=>['2001',{:cwyear=>2001}],
+    '%g'=>['01',{:cwyear=>2001}],
+    '%h'=>['Feb',{:mon=>2}],
+    '%k'=>[' 0',{:hour=>0}],
+    '%L'=>['000',{:sec_fraction=>0}],
+    '%l'=>['12',{:hour=>0}],
+    '%N'=>['000000000',{:sec_fraction=>0}],
+    '%n'=>["\n",{}],
+    '%P'=>['am',{}],
+    '%Q'=>['981158400000',{:seconds=>981158400.to_r}],
+    '%R'=>['00:00',{:hour=>0,:min=>0}],
+    '%r'=>['12:00:00 AM',{:hour=>0,:min=>0,:sec=>0}],
+    '%s'=>['981158400',{:seconds=>981158400}],
+    '%T'=>['00:00:00',{:hour=>0,:min=>0,:sec=>0}],
+    '%t'=>["\t",{}],
+    '%u'=>['6',{:cwday=>6}],
+    '%V'=>['05',{:cweek=>5}],
+    '%v'=>[' 3-Feb-2001',{:mday=>3,:mon=>2,:year=>2001}],
+    '%z'=>['+0000',{:zone=>'+0000',:offset=>0}],
+    '%+'=>['Sat Feb  3 00:00:00 +00:00 2001',
+      {:wday=>6,:mon=>2,:mday=>3,
+	:hour=>0,:min=>0,:sec=>0,:zone=>'+00:00',:offset=>0,:year=>2001}],
+  }
+
+  STRFTIME_2001_02_03_CVS19 = {
+  }
+
+  STRFTIME_2001_02_03_GNUext = {
+    '%:z'=>['+00:00',{:zone=>'+00:00',:offset=>0}],
+    '%::z'=>['+00:00:00',{:zone=>'+00:00:00',:offset=>0}],
+    '%:::z'=>['+00',{:zone=>'+00',:offset=>0}],
+  }
+
+  STRFTIME_2001_02_03.update(STRFTIME_2001_02_03_CVS19)
+  STRFTIME_2001_02_03.update(STRFTIME_2001_02_03_GNUext)
+
+  def test_strftime
+    d = Date.new(2001,2,3)
+    STRFTIME_2001_02_03.each do |f, s|
+      assert_equal(s[0], d.strftime(f), [f, s].inspect)
+      case f[-1,1]
+      when 'c', 'C', 'x', 'X', 'y', 'Y'
+	f2 = f.sub(/\A%/, '%E')
+	assert_equal(s[0], d.strftime(f2), [f2, s].inspect)
+      else
+	f2 = f.sub(/\A%/, '%E')
+	assert_equal(f2, d.strftime(f2), [f2, s].inspect)
+      end
+      case f[-1,1]
+      when 'd', 'e', 'H', 'I', 'm', 'M', 'S', 'u', 'U', 'V', 'w', 'W', 'y'
+	f2 = f.sub(/\A%/, '%O')
+	assert_equal(s[0], d.strftime(f2), [f2, s].inspect)
+      else
+	f2 = f.sub(/\A%/, '%O')
+	assert_equal(f2, d.strftime(f2), [f2, s].inspect)
+      end
+    end
+  end
+
+  def test_strftime__2
+    d = Date.new(2001,2,3)
+    assert_equal('2001-02-03', d.strftime)
+
+    d = DateTime.new(2001,2,3)
+    assert_equal('2001-02-03T00:00:00+00:00', d.strftime)
+
+    assert_equal('', d.strftime(''))
+    assert_equal("\s"*3, d.strftime("\s"*3))
+    assert_equal("\tfoo\n\000\r", d.strftime("\tfoo\n\000\r"))
+    assert_equal("%\n", d.strftime("%\n")) # gnu
+    assert_equal('Saturday'*1024 + ',', d.strftime('%A'*1024 + ','))
+    assert_equal('%%', d.strftime('%%%'))
+    assert_equal('Anton von Webern', d.strftime('Anton von Webern'))
+
+    d = DateTime.new(2001,2,3, 1,2,3)
+    assert_equal('2001-02-03T01:02:03+00:00', d.strftime)
+    assert_equal('AM', d.strftime('%p'))
+    assert_equal('am', d.strftime('%P'))
+    d = DateTime.new(2001,2,3, 13,14,15)
+    assert_equal('2001-02-03T13:14:15+00:00', d.strftime)
+    assert_equal('PM', d.strftime('%p'))
+    assert_equal('pm', d.strftime('%P'))
+  end
+
+  def test_strftime__3_1
+    (Date.new(1970,1,1)..Date.new(2037,12,31)).each do |d|
+      t = Time.utc(d.year,d.mon,d.mday)
+      assert_equal(t.strftime('%U'), d.strftime('%U'))
+      assert_equal(t.strftime('%W'), d.strftime('%W'))
+    end
+  end
+
+  def test_strftime__3_2
+    s = Time.now.strftime('%G')
+    if s.empty? || s == '%G'
+      skip_mesg
+      return
+    end
+    (Date.new(1970,1,1)..Date.new(2037,12,31)).each do |d|
+      t = Time.utc(d.year,d.mon,d.mday)
+      assert_equal(t.strftime('%G'), d.strftime('%G'))
+      assert_equal(t.strftime('%g'), d.strftime('%g'))
+      assert_equal(t.strftime('%V'), d.strftime('%V'))
+      assert_equal(t.strftime('%u'), d.strftime('%u'))
+    end
+  end
+
+  def test_strftime__4
+    s = '2006-08-08T23:15:33.123456789'
+    f = '%FT%T.%N'
+    d = DateTime.parse(s)
+    assert_equal(s, d.strftime(f))
+    d = DateTime.strptime(s, f)
+    assert_equal(s, d.strftime(f))
+
+    s = '2006-08-08T23:15:33.123456789'
+    f = '%FT%T.%N'
+    d = DateTime.parse(s + '123456789')
+    assert_equal(s, d.strftime(f))
+    d = DateTime.strptime(s + '123456789', f)
+    assert_equal(s, d.strftime(f))
+
+    si = '2006-08-08T23:15:33.9'
+    so = '2006-08-08T23:15:33.900000000'
+    f = '%FT%T.%N'
+    d = DateTime.parse(si)
+    assert_equal(so, d.strftime(f))
+    d = DateTime.strptime(si, f)
+    assert_equal(so, d.strftime(f))
+
+    s = '2006-08-08T23:15:33.123'
+    f = '%FT%T.%L'
+    d = DateTime.parse(s)
+    assert_equal(s, d.strftime(f))
+    d = DateTime.strptime(s, f)
+    assert_equal(s, d.strftime(f))
+
+    s = '2006-08-08T23:15:33.123'
+    f = '%FT%T.%L'
+    d = DateTime.parse(s + '123')
+    assert_equal(s, d.strftime(f))
+    d = DateTime.strptime(s + '123', f)
+    assert_equal(s, d.strftime(f))
+
+    si = '2006-08-08T23:15:33.9'
+    so = '2006-08-08T23:15:33.900'
+    f = '%FT%T.%L'
+    d = DateTime.parse(si)
+    assert_equal(so, d.strftime(f))
+    d = DateTime.strptime(si, f)
+    assert_equal(so, d.strftime(f))
+  end
+
+  def test_strftime__offset
+    s = '2006-08-08T23:15:33'
+    (-24..24).collect{|x| '%+.2d' % x}.each do |hh|
+      %w(00 30).each do |mm|
+	d = DateTime.parse(s + hh + mm)
+	assert_equal(hh + mm, d.strftime('%z'))
+      end
+    end
+  end
+
+  def test_strftime__minus
+    d = DateTime.new(1969, 12, 31, 23, 59, 59)
+    assert_equal('-1', d.strftime('%s'))
+    assert_equal('-1000', d.strftime('%Q'))
+  end
+
+  def test_strftime__gnuext # coreutils
+    d = DateTime.new(2006,8,8,23,15,33,9.to_r/24)
+
+    assert_equal('2006', d.strftime('%-Y'))
+    assert_equal('2006', d.strftime('%-5Y'))
+    assert_equal('02006', d.strftime('%5Y'))
+    assert_equal('2006', d.strftime('%_Y'))
+    assert_equal(' 2006', d.strftime('%_5Y'))
+    assert_equal('02006', d.strftime('%05Y'))
+
+    assert_equal('8', d.strftime('%-d'))
+    assert_equal('8', d.strftime('%-3d'))
+    assert_equal('008', d.strftime('%3d'))
+    assert_equal(' 8', d.strftime('%_d'))
+    assert_equal('  8', d.strftime('%_3d'))
+    assert_equal('008', d.strftime('%03d'))
+
+    assert_equal('8', d.strftime('%-e'))
+    assert_equal('8', d.strftime('%-3e'))
+    assert_equal('  8', d.strftime('%3e'))
+    assert_equal(' 8', d.strftime('%_e'))
+    assert_equal('  8', d.strftime('%_3e'))
+    assert_equal('008', d.strftime('%03e'))
+
+    assert_equal('Tuesday', d.strftime('%-10A'))
+    assert_equal('   Tuesday', d.strftime('%10A'))
+    assert_equal('   Tuesday', d.strftime('%_10A'))
+    assert_equal('000Tuesday', d.strftime('%010A'))
+    assert_equal('TUESDAY', d.strftime('%^A'))
+    assert_equal('TUESDAY', d.strftime('%#A'))
+
+    assert_equal('Tue', d.strftime('%-6a'))
+    assert_equal('   Tue', d.strftime('%6a'))
+    assert_equal('   Tue', d.strftime('%_6a'))
+    assert_equal('000Tue', d.strftime('%06a'))
+    assert_equal('TUE', d.strftime('%^a'))
+    assert_equal('TUE', d.strftime('%#a'))
+    assert_equal('   TUE', d.strftime('%#6a'))
+
+    assert_equal('August', d.strftime('%-10B'))
+    assert_equal('    August', d.strftime('%10B'))
+    assert_equal('    August', d.strftime('%_10B'))
+    assert_equal('0000August', d.strftime('%010B'))
+    assert_equal('AUGUST', d.strftime('%^B'))
+    assert_equal('AUGUST', d.strftime('%#B'))
+
+    assert_equal('Aug', d.strftime('%-6b'))
+    assert_equal('   Aug', d.strftime('%6b'))
+    assert_equal('   Aug', d.strftime('%_6b'))
+    assert_equal('000Aug', d.strftime('%06b'))
+    assert_equal('AUG', d.strftime('%^b'))
+    assert_equal('AUG', d.strftime('%#b'))
+    assert_equal('   AUG', d.strftime('%#6b'))
+
+    assert_equal('Aug', d.strftime('%-6h'))
+    assert_equal('   Aug', d.strftime('%6h'))
+    assert_equal('   Aug', d.strftime('%_6h'))
+    assert_equal('000Aug', d.strftime('%06h'))
+    assert_equal('AUG', d.strftime('%^h'))
+    assert_equal('AUG', d.strftime('%#h'))
+    assert_equal('   AUG', d.strftime('%#6h'))
+
+    assert_equal('PM', d.strftime('%^p'))
+    assert_equal('pm', d.strftime('%#p'))
+    assert_equal('PM', d.strftime('%^P'))
+    assert_equal('PM', d.strftime('%#P'))
+
+    assert_equal('+000900', d.strftime('%7z'))
+    assert_equal('   +900', d.strftime('%_7z'))
+    assert_equal('+09:00', d.strftime('%:z'))
+    assert_equal('+0009:00', d.strftime('%8:z'))
+    assert_equal('   +9:00', d.strftime('%_8:z'))
+    assert_equal('+09:00:00', d.strftime('%::z'))
+    assert_equal('+0009:00:00', d.strftime('%11::z'))
+    assert_equal('   +9:00:00', d.strftime('%_11::z'))
+    assert_equal('+09', d.strftime('%:::z'))
+    assert_equal('+0009', d.strftime('%5:::z'))
+    assert_equal('   +9', d.strftime('%_5:::z'))
+    assert_equal('+9', d.strftime('%-:::z'))
+
+    d = DateTime.new(-200,8,8,23,15,33,9.to_r/24)
+
+    assert_equal('-0200', d.strftime('%Y'))
+    assert_equal('-200', d.strftime('%-Y'))
+    assert_equal('-200', d.strftime('%-5Y'))
+    assert_equal('-0200', d.strftime('%5Y'))
+    assert_equal(' -200', d.strftime('%_Y'))
+    assert_equal(' -200', d.strftime('%_5Y'))
+    assert_equal('-0200', d.strftime('%05Y'))
+
+    d = DateTime.new(-2000,8,8,23,15,33,9.to_r/24)
+
+    assert_equal('-2000', d.strftime('%Y'))
+    assert_equal('-2000', d.strftime('%-Y'))
+    assert_equal('-2000', d.strftime('%-5Y'))
+    assert_equal('-2000', d.strftime('%5Y'))
+    assert_equal('-2000', d.strftime('%_Y'))
+    assert_equal('-2000', d.strftime('%_5Y'))
+    assert_equal('-2000', d.strftime('%05Y'))
+  end
+
+  def test_strftime__gnuext_z # coreutils
+    d = DateTime.parse('2006-08-08T23:15:33+09:08:07')
+    assert_equal('+0908', d.strftime('%z'))
+    assert_equal('+09:08', d.strftime('%:z'))
+    assert_equal('+09:08:07', d.strftime('%::z'))
+    assert_equal('+09:08:07', d.strftime('%:::z'))
+  end
+
+  def test__different_format
+    d = Date.new(2001,2,3)
+
+    assert_equal('Sat Feb  3 00:00:00 2001', d.ctime)
+    assert_equal(d.ctime, d.asctime)
+
+    assert_equal('2001-02-03', d.iso8601)
+    assert_equal(d.rfc3339, d.iso8601)
+    assert_equal(d.xmlschema, d.iso8601)
+    assert_equal('Sat, 3 Feb 2001 00:00:00 +0000', d.rfc2822)
+    assert_equal(d.rfc822, d.rfc2822)
+    assert_equal('Sat, 03 Feb 2001 00:00:00 GMT', d.httpdate)
+    assert_equal('H13.02.03', d.jisx0301)
+
+    d = DateTime.new(2001,2,3)
+
+    assert_equal('Sat Feb  3 00:00:00 2001', d.ctime)
+    assert_equal(d.ctime, d.asctime)
+
+    assert_equal('2001-02-03T00:00:00+00:00', d.iso8601)
+    assert_equal(d.rfc3339, d.iso8601)
+    assert_equal(d.xmlschema, d.iso8601)
+    assert_equal('Sat, 3 Feb 2001 00:00:00 +0000', d.rfc2822)
+    assert_equal(d.rfc822, d.rfc2822)
+    assert_equal('Sat, 03 Feb 2001 00:00:00 GMT', d.httpdate)
+    assert_equal('H13.02.03T00:00:00+00:00', d.jisx0301)
+
+    d2 = DateTime.parse('2001-02-03T04:05:06.123456')
+    assert_equal('2001-02-03T04:05:06.123+00:00', d2.iso8601(3))
+    assert_equal('2001-02-03T04:05:06.123+00:00', d2.rfc3339(3))
+    assert_equal('H13.02.03T04:05:06.123+00:00', d2.jisx0301(3))
+    assert_equal('2001-02-03T04:05:06.123456000+00:00', d2.iso8601(9))
+    assert_equal('2001-02-03T04:05:06.123456000+00:00', d2.rfc3339(9))
+    assert_equal('H13.02.03T04:05:06.123456000+00:00', d2.jisx0301(9))
+
+    assert_equal('1868-01-25', Date.parse('1868-01-25').jisx0301)
+    assert_equal('1872-12-31', Date.parse('1872-12-31').jisx0301)
+
+    assert_equal('M06.01.01', Date.parse('1873-01-01').jisx0301)
+    assert_equal('M45.07.29', Date.parse('1912-07-29').jisx0301)
+    assert_equal('T01.07.30', Date.parse('1912-07-30').jisx0301)
+    assert_equal('T15.12.24', Date.parse('1926-12-24').jisx0301)
+      assert_equal('S01.12.25', Date.parse('1926-12-25').jisx0301)
+    assert_equal('S64.01.07', Date.parse('1989-01-07').jisx0301)
+    assert_equal('H01.01.08', Date.parse('1989-01-08').jisx0301)
+    assert_equal('H18.09.01', Date.parse('2006-09-01').jisx0301)
+
+    %w(M06.01.01
+       M45.07.29
+       T01.07.30
+       T15.12.24
+       S01.12.25
+       S64.01.07
+       H01.01.08
+       H18.09.01).each do |s|
+      assert_equal(s, Date.parse(s).jisx0301)
+    end
+  
+    d = Date.new(2001,2,3)
+    d2 = DateTime.new(2001,2,3,2)
+
+  end
+
+end

Property changes on: test/date/test_date_strftime.rb
___________________________________________________________________
Name: svn:mime-type
   + text/plain
Name: svn:eol-style
   + LF

Index: test/date/test_date.rb
===================================================================
--- test/date/test_date.rb	(revision 0)
+++ test/date/test_date.rb	(revision 19609)
@@ -0,0 +1,138 @@
+require 'test/unit'
+require 'date'
+
+class DateSub < Date; end
+class DateTimeSub < DateTime; end
+
+class TestDate < Test::Unit::TestCase
+
+  def test__const
+    assert_nil(Date::MONTHNAMES[0])
+    assert_equal('January', Date::MONTHNAMES[1])
+    assert_equal(13, Date::MONTHNAMES.size)
+    assert_equal('Sunday', Date::DAYNAMES[0])
+    assert_equal(7, Date::DAYNAMES.size)
+
+    assert_nil(Date::ABBR_MONTHNAMES[0])
+    assert_equal('Jan', Date::ABBR_MONTHNAMES[1])
+    assert_equal(13, Date::ABBR_MONTHNAMES.size)
+    assert_equal('Sun', Date::ABBR_DAYNAMES[0])
+    assert_equal(7, Date::ABBR_DAYNAMES.size)
+
+    assert(Date::MONTHNAMES.frozen?)
+    assert(!Date::MONTHNAMES[0].frozen?)
+    assert(Date::MONTHNAMES[1].frozen?)
+    assert(Date::DAYNAMES.frozen?)
+    assert(Date::DAYNAMES[0].frozen?)
+
+    assert(Date::ABBR_MONTHNAMES.frozen?)
+    assert(Date::ABBR_MONTHNAMES[1].frozen?)
+    assert(Date::ABBR_DAYNAMES.frozen?)
+    assert(Date::ABBR_DAYNAMES[0].frozen?)
+  end
+
+  def test_sub
+    d = DateSub.new
+    dt = DateTimeSub.new
+
+    assert_instance_of(DateSub, d)
+    assert_equal('#<DateSub: -1/2,0,2299161>', d.inspect)
+    assert_equal('-4712-01-01', d.to_s)
+    assert_equal('-4712-01-01T00:00:00+00:00', dt.to_s)
+
+    d2 = d + 1
+    assert_instance_of(DateSub, d2)
+    d2 = d - 1
+    assert_instance_of(DateSub, d2)
+    d2 = d >> 1
+    assert_instance_of(DateSub, d2)
+    d2 = d << 1
+    assert_instance_of(DateSub, d2)
+    d2 = d.succ
+    assert_instance_of(DateSub, d2)
+    d2 = d.next
+    assert_instance_of(DateSub, d2)
+    d2 = d.italy
+    assert_instance_of(DateSub, d2)
+    d2 = d.england
+    assert_instance_of(DateSub, d2)
+    d2 = d.julian
+    assert_instance_of(DateSub, d2)
+    d2 = d.gregorian
+    assert_instance_of(DateSub, d2)
+    s = Marshal.dump(d)
+    d2 = Marshal.load(s)
+    assert_equal(d2, d)
+    assert_instance_of(DateSub, d2)
+
+    dt2 = dt + 1
+    assert_instance_of(DateTimeSub, dt2)
+    dt2 = dt - 1
+    assert_instance_of(DateTimeSub, dt2)
+    dt2 = dt >> 1
+    assert_instance_of(DateTimeSub, dt2)
+    dt2 = dt << 1
+    assert_instance_of(DateTimeSub, dt2)
+    dt2 = dt.succ
+    assert_instance_of(DateTimeSub, dt2)
+    dt2 = dt.next
+    assert_instance_of(DateTimeSub, dt2)
+    dt2 = dt.italy
+    assert_instance_of(DateTimeSub, dt2)
+    dt2 = dt.england
+    assert_instance_of(DateTimeSub, dt2)
+    dt2 = dt.julian
+    assert_instance_of(DateTimeSub, dt2)
+    dt2 = dt.gregorian
+    assert_instance_of(DateTimeSub, dt2)
+    s = Marshal.dump(dt)
+    dt2 = Marshal.load(s)
+    assert_equal(dt2, dt)
+    assert_instance_of(DateTimeSub, dt2)
+  end
+
+  def test_eql_p
+    d = Date.jd(0)
+    d2 = Date.jd(0)
+    dt = DateTime.jd(0)
+    dt2 = DateTime.jd(0)
+
+    assert_equal(d, d2)
+    assert_not_equal(d, 0)
+
+    assert_equal(dt, dt2)
+    assert_not_equal(dt, 0)
+
+    assert_equal(d, dt)
+    assert_equal(d2, dt2)
+  end
+
+  def test_hash
+    h = {}
+    h[Date.new(1999,5,23)] = 0
+    h[Date.new(1999,5,24)] = 1
+    h[Date.new(1999,5,25)] = 2
+    h[Date.new(1999,5,25)] = 9
+    assert_equal(3, h.size)
+    assert_equal(9, h[Date.new(1999,5,25)])
+    assert_equal(9, h[DateTime.new(1999,5,25)])
+
+    h = {}
+    h[DateTime.new(1999,5,23)] = 0
+    h[DateTime.new(1999,5,24)] = 1
+    h[DateTime.new(1999,5,25)] = 2
+    h[DateTime.new(1999,5,25)] = 9
+    assert_equal(3, h.size)
+    assert_equal(9, h[Date.new(1999,5,25)])
+    assert_equal(9, h[DateTime.new(1999,5,25)])
+  end
+
+  def test_freeze
+    d = Date.new
+    d.freeze
+    assert_equal(true, d.frozen?)
+    assert_instance_of(Fixnum, d.yday)
+    assert_instance_of(String, d.to_s)
+  end
+
+end

Property changes on: test/date/test_date.rb
___________________________________________________________________
Name: svn:mime-type
   + text/plain
Name: svn:eol-style
   + LF


--
ML: ruby-changes@q...
Info: http://www.atdot.net/~ko1/quickml/

[前][次][番号順一覧][スレッド一覧]