date-constructor 0.0.1

data/Gemfile

@@ -0,0 +1,10 @@
+source 'https://rubygems.org'
+
+gem 'rake', :group => [:development, :test]
+
+group :development do
+  gem 'jeweler'
+end
+
+group :test do
+end

data/LICENSE.txt

@@ -0,0 +1,19 @@
+Copyright (c) 2013 Clifford Heath.
+
+This software is provided 'as-is', without any express or implied warranty.
+In no event will the authors be held liable for any damages arising from the
+use of this software.
+
+Permission is granted to anyone to use this software for any purpose,
+including commercial applications, and to alter it and redistribute it
+freely, subject to the following restrictions:
+
+1. The origin of this software must not be misrepresented; you must not
+   claim that you wrote the original software. If you use this software
+   in a product, an acknowledgment in the product documentation would be
+   appreciated but is not required.
+
+2. Altered source versions must be plainly marked as such, and must not be
+   misrepresented as being the original software.
+
+3. This notice may not be removed or altered from any source distribution.

data/Rakefile

@@ -0,0 +1,84 @@
+require 'rubygems'
+require 'rake'
+
+require 'jeweler'
+Jeweler::Tasks.new do |gem|
+  # gem is a Gem::Specification... see http://docs.rubygems.org/read/chapter/20 for more options
+  gem.name = "date-constructor"
+  gem.homepage = "http://github.com/cjheath/date-constructor"
+  gem.license = "MIT"
+  gem.summary = "Add flexible constructors to Ruby's Date and DateTime"
+  gem.description = %q{
+Date and DateTime don't have sensible constructors. You can't construct
+one using an existing Date/Time, nor by passing a string to be parsed.
+Instead you have to call special-purpose routines. This gem adds some
+sensible options to the existing modes of the constructors
+}
+  gem.email = "clifford.heath@gmail.com"
+  gem.authors = ["Clifford Heath"]
+  # Include your dependencies below. Runtime dependencies are required when using your gem,
+  # and development dependencies are only needed for development (ie running rake tasks, tests, etc)
+  gem.add_development_dependency "bundler", "~> 1.0.0"
+  gem.add_development_dependency "rdoc", ">= 2.4.2"
+  gem.files = [
+    "Gemfile",
+    "LICENSE.txt",
+    "README.rdoc",
+    "Rakefile",
+    "date-constructor.gemspec",
+    "lib/date/constructor.rb",
+    "test/test_date.rb",
+    "test/test_date_arith.rb",
+    "test/test_date_attr.rb",
+    "test/test_date_base.rb",
+    "test/test_date_compat.rb",
+    "test/test_date_conv.rb",
+    "test/test_date_marshal.rb",
+    "test/test_date_new.rb",
+    "test/test_date_parse.rb",
+    "test/test_date_strftime.rb",
+    "test/test_date_strptime.rb",
+    "test/test_switch_hitter.rb"
+  ]
+end
+Jeweler::RubygemsDotOrgTasks.new
+
+task :default => :test
+
+require 'rake/testtask'
+Rake::TestTask.new do |t|
+  here = "#{File.dirname(__FILE__)}"
+  t.libs << "test"
+  t.test_files = FileList['test/test_*.rb']
+  t.options = "-q"
+  load "#{here}/lib/date/constructor.rb"
+end
+
+namespace :test do
+  namespace :rubies do
+    SUPPORTED_RUBIES = %w{ 1.8.7 1.9.2 1.9.3 jruby-1.7.0 rbx }
+
+    desc "Run tests on all supported rubies"
+    task :all_tasks => [:install_gems, :exec]
+
+    desc "Run `bundle install` on all rubies"
+    task :install_gems do
+      sh %{ rvm #{SUPPORTED_RUBIES.join(',')} exec bundle install }
+    end
+
+    desc "Run `bundle exec rake` on all rubies"
+    task :exec do
+      sh %{ rvm #{SUPPORTED_RUBIES.join(',')} exec bundle exec rake test }
+    end
+  end
+end
+
+require 'rdoc/task'
+Rake::RDocTask.new do |rdoc|
+  version = File.exist?('VERSION') ? File.read('VERSION') : ""
+
+  rdoc.rdoc_dir = 'rdoc'
+  rdoc.title = "date-constructor #{version}"
+  rdoc.rdoc_files.include('README*')
+  rdoc.rdoc_files.include('lib/**/*.rb')
+end

data/date-constructor.gemspec

@@ -0,0 +1,66 @@
+# Generated by jeweler
+# DO NOT EDIT THIS FILE DIRECTLY
+# Instead, edit Jeweler::Tasks in Rakefile, and run 'rake gemspec'
+# -*- encoding: utf-8 -*-
+
+Gem::Specification.new do |s|
+  s.name = "date-constructor"
+  s.version = "0.0.1"
+
+  s.required_rubygems_version = Gem::Requirement.new(">= 0") if s.respond_to? :required_rubygems_version=
+  s.authors = ["Clifford Heath"]
+  s.date = "2013-01-04"
+  s.description = "\nDate and DateTime don't have sensible constructors. You can't construct\none using an existing Date/Time, nor by passing a string to be parsed.\nInstead you have to call special-purpose routines. This gem adds some\nsensible options to the existing modes of the constructors\n"
+  s.email = "clifford.heath@gmail.com"
+  s.extra_rdoc_files = [
+    "LICENSE.txt",
+    "README.rdoc"
+  ]
+  s.files = [
+    "Gemfile",
+    "LICENSE.txt",
+    "README.rdoc",
+    "Rakefile",
+    "date-constructor.gemspec",
+    "lib/date/constructor.rb",
+    "test/test_date.rb",
+    "test/test_date_arith.rb",
+    "test/test_date_attr.rb",
+    "test/test_date_base.rb",
+    "test/test_date_compat.rb",
+    "test/test_date_conv.rb",
+    "test/test_date_marshal.rb",
+    "test/test_date_new.rb",
+    "test/test_date_parse.rb",
+    "test/test_date_strftime.rb",
+    "test/test_date_strptime.rb",
+    "test/test_switch_hitter.rb"
+  ]
+  s.homepage = "http://github.com/cjheath/date-constructor"
+  s.licenses = ["MIT"]
+  s.require_paths = ["lib"]
+  s.rubygems_version = "1.8.24"
+  s.summary = "Add flexible constructors to Ruby's Date and DateTime"
+
+  if s.respond_to? :specification_version then
+    s.specification_version = 3
+
+    if Gem::Version.new(Gem::VERSION) >= Gem::Version.new('1.2.0') then
+      s.add_development_dependency(%q<rake>, [">= 0"])
+      s.add_development_dependency(%q<jeweler>, [">= 0"])
+      s.add_development_dependency(%q<bundler>, ["~> 1.0.0"])
+      s.add_development_dependency(%q<rdoc>, [">= 2.4.2"])
+    else
+      s.add_dependency(%q<rake>, [">= 0"])
+      s.add_dependency(%q<jeweler>, [">= 0"])
+      s.add_dependency(%q<bundler>, ["~> 1.0.0"])
+      s.add_dependency(%q<rdoc>, [">= 2.4.2"])
+    end
+  else
+    s.add_dependency(%q<rake>, [">= 0"])
+    s.add_dependency(%q<jeweler>, [">= 0"])
+    s.add_dependency(%q<bundler>, ["~> 1.0.0"])
+    s.add_dependency(%q<rdoc>, [">= 2.4.2"])
+  end
+end
+

data/lib/date/constructor.rb

@@ -0,0 +1,51 @@
+require 'date'
+
+# Allow a Date to be constructed from any Date or DateTime subclass, or parsed from a String
+class ::Date
+  # If someone calls allocate/initialize, make that work
+  # ... just don't mess up DateTime which is a subclass of Date
+  def initialize *a, &b
+    marshal_load(self.class.new(*a, &b).marshal_dump) unless self.is_a?(DateTime)
+  end
+
+  def self.new *a, &b
+    if a[0].is_a?(String)
+      parse(*a)
+    elsif (a.size == 1)
+      case a[0]
+      when DateTime
+	civil(a[0].year, a[0].month, a[0].day, a[0].start)
+      when Date
+	a[0].clone
+      else
+	civil(*a, &b)
+      end
+    else
+      civil(*a, &b)
+    end
+  end
+end
+
+# Allow a DateTime to be constructed from any Date or DateTime subclass, or parsed from a String
+class ::DateTime
+  def initialize *a, &b
+    marshal_load(self.class.new(*a, &b).marshal_dump)
+  end
+
+  def self.new *a, &b
+    if a[0].is_a?(String)
+      parse(*a)
+    elsif (a.size == 1)
+      case a[0]
+      when DateTime
+	a[0].clone
+      when Date
+	civil(a[0].year, a[0].month, a[0].day, 0, 0, 0, a[0].start)
+      else
+	civil(*a, &b)
+      end
+    else
+      civil(*a, &b)
+    end
+  end
+end

data/test/test_date.rb

@@ -0,0 +1,145 @@
+require 'test/unit'
+require 'date'
+require 'date/constructor'
+
+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_instance_of(DateTimeSub, dt)
+
+    assert_instance_of(DateSub, DateSub.today)
+    assert_instance_of(DateTimeSub, DateTimeSub.now)
+
+#    assert_equal('#<DateSub: -4712-01-01 (-1/2,0,2299161)>', d.inspect)
+    assert_equal('-4712-01-01', d.to_s)
+#    assert_equal('#<DateTimeSub: -4712-01-01T00:00:00+00:00 (-1/2,0,2299161)>', dt.inspect)
+    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

data/test/test_date_arith.rb

@@ -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