home_run 0.9.0

data/spec/date/conversions_spec.rb

@@ -0,0 +1,246 @@
+require File.expand_path('../../spec_helper', __FILE__)
+
+describe "Date#new_start" do
+  it "should convert a date object into another with a new calendar reform" do
+    Date.civil(1582, 10, 14, Date::ENGLAND).new_start.should == Date.civil(1582, 10, 14)
+    Date.civil(1582, 10,  4, Date::ENGLAND).new_start.should == Date.civil(1582, 10,  4)
+    Date.civil(1582, 10, 15).new_start(Date::ENGLAND).should == Date.civil(1582, 10, 15, Date::ENGLAND)
+    Date.civil(1752,  9, 14).new_start(Date::ENGLAND).should == Date.civil(1752,  9, 14, Date::ENGLAND)
+    Date.civil(1752,  9, 13).new_start(Date::ENGLAND).should == Date.civil(1752,  9, 13, Date::ENGLAND)
+  end
+  
+  ruby_version_is "" ... "1.9" do
+    it "#newsg should be the same as new_start" do
+      Date.civil(1582, 10, 14, Date::ENGLAND).newsg.should == Date.civil(1582, 10, 14, Date::ENGLAND).new_start
+      Date.civil(1582, 10, 14, Date::ENGLAND).newsg(1).should == Date.civil(1582, 10, 14, Date::ENGLAND).new_start(1)
+    end
+  end
+end
+
+describe "Date#italy" do
+  it "should convert a date object into another with the Italian calendar reform" do
+    Date.civil(1582, 10, 14, Date::ENGLAND).italy.should == Date.civil(1582, 10, 14)
+    Date.civil(1582, 10,  4, Date::ENGLAND).italy.should == Date.civil(1582, 10,  4)
+  end
+end
+
+describe "Date#england" do
+  it "should convert a date object into another with the English calendar reform" do
+    Date.civil(1582, 10, 15).england.should == Date.civil(1582, 10, 15, Date::ENGLAND)
+    Date.civil(1752,  9, 14).england.should == Date.civil(1752,  9, 14, Date::ENGLAND)
+    Date.civil(1752,  9, 13).england.should == Date.civil(1752,  9, 13, Date::ENGLAND)
+  end
+end
+
+describe "Date#julian" do
+  it "should convert a date object into another with the Julian calendar" do
+    Date.civil(1582, 10, 15).julian.should == Date.civil(1582, 10,  15, Date::JULIAN)
+    Date.civil(1752,  9, 14).julian.should == Date.civil(1752,  9,  14, Date::JULIAN)
+    Date.civil(1752,  9, 13).julian.should == Date.civil(1752,  9,  13, Date::JULIAN)
+  end
+end
+
+describe "Date#gregorian" do
+  it "should convert a date object into another with the Gregorian calendar" do
+    Date.civil(1582, 10, 14).gregorian.should == Date.civil(1582, 10, 14, Date::GREGORIAN)
+    Date.civil(1752,  9, 14).gregorian.should == Date.civil(1752,  9, 14, Date::GREGORIAN)
+  end
+end
+
+ruby_version_is "" ... "1.9" do
+  describe "Date#ordinal_to_jd" do
+    it "should convert an ordinal date (year-day) to a Julian day number" do
+      Date.ordinal_to_jd(2007, 55).should == 2454156
+    end
+  end
+  
+  describe "Date#jd_to_ordinal" do
+    it "should convert a Julian day number into an ordinal date" do
+      Date.jd_to_ordinal(2454156).should == [2007, 55]
+      Date.jd_to_ordinal(2454156, 1).should == [2007, 55]
+    end
+  end
+  
+  describe "Date#civil_to_jd" do
+    it "should convert a civil date into a Julian day number" do
+      Date.civil_to_jd(2007, 2, 24).should == 2454156
+      Date.civil_to_jd(2007, 2, 24, 1).should == 2454156
+    end
+  end
+  
+  describe "Date#jd_to_civil" do
+    it "should convert a Julian day into a civil date" do
+      Date.jd_to_civil(2454156).should == [2007, 2, 24]
+      Date.jd_to_civil(2454156, 1).should == [2007, 2, 24]
+    end
+  end
+  
+  describe "Date#commercial_to_jd" do
+    it "should convert a commercial date (year - week - day of week) into a Julian day number" do
+      Date.commercial_to_jd(2007, 45, 1).should == 2454410
+      Date.commercial_to_jd(2007, 45, 1, 1).should == 2454410
+    end
+  end
+  
+  describe "Date#jd_to_commercial" do
+    it "should convert a Julian day number into a commercial date" do
+      Date.jd_to_commercial(2454410).should == [2007, 45, 1]
+      Date.jd_to_commercial(2454410, 1).should == [2007, 45, 1]
+    end
+  end
+  
+  describe "Date#ajd_to_jd" do
+    it "should convert a Astronomical Julian day number into a Julian day number" do
+      Date.ajd_to_jd(2454410).should == [2454410, 0.5]
+      Date.ajd_to_jd(2454410, 1.0/ 2).should == [2454410, 0.5]
+      Date.ajd_to_jd(1).should == [1, 0.5]
+      Date.ajd_to_jd(1, 1).should == [1, 0.5]
+    end
+  end
+  
+  describe "Date#jd_to_ajd" do
+    it "should convert a Julian day number into a Astronomical Julian day number" do
+      Date.jd_to_ajd(2454410, 0).should == 2454410
+      Date.jd_to_ajd(2454410, 1.0/ 2).should == 2454410
+      Date.jd_to_ajd(2454156, 0).should == 2454156
+      Date.jd_to_ajd(2454156, 1, 1).should == 2454156
+    end
+  end
+  
+  describe "Date#day_fraction_to_time" do
+    it "should be able to convert a day fraction into time" do
+      Date.day_fraction_to_time(2).should == [48, 0, 0, 0]
+      Date.day_fraction_to_time(1).should == [24, 0, 0, 0]
+      Date.day_fraction_to_time(1.0/ 2).should == [12, 0, 0, 0]
+      a = Date.day_fraction_to_time(1.0/ 7)
+      a.pop.should be_close(1.0/ 100800, 0.00003)
+      a.should == [3, 25, 42]
+    end
+  end
+  
+  describe "Date#time_to_day_fraction" do
+    it "should be able to convert a time into a day fraction" do
+      Date.time_to_day_fraction(48, 0, 0).should == 2.0
+      Date.time_to_day_fraction(24, 0, 0).should == 1.0
+      Date.time_to_day_fraction(12, 0, 0).should == 0.5
+      Date.time_to_day_fraction(10, 20, 10).should == 10.0/24.0 + 20.0/(24 * 60) + 10.0/(24 * 60 * 60)
+    end
+  end
+  
+  describe "Date#amjd_to_ajd" do
+    it "shoud be able to convert Astronomical Modified Julian day numbers into Astronomical Julian day numbers" do
+      Date.amjd_to_ajd(10).should == 2400010
+    end
+  end
+  
+  describe "Date#ajd_to_amjd" do
+    it "shoud be able to convert Astronomical Julian day numbers into Astronomical Modified Julian day numbers" do
+      Date.ajd_to_amjd(10000010).should == 7600009
+    end
+  end
+  
+  describe "Date#mjd_to_jd" do
+    it "shoud be able to convert Modified Julian day numbers into Julian day numbers" do
+      Date.mjd_to_jd(2000).should == 2000 + 2400001
+    end
+  end
+  
+  describe "Date#jd_to_mjd" do
+    it "shoud be able to convert Julian day numbers into Modified Julian day numbers" do
+      Date.jd_to_mjd(2500000).should == 2500000 - 2400001
+    end
+  end
+  
+  describe "Date#ld_to_jd" do
+    it "should be able to convert the number of days since the Gregorian calendar in Italy into Julian day numbers" do
+      Date.ld_to_jd(450000).should == 450000 + 2299160
+    end
+  end
+  
+  describe "Date#jd_to_ld" do
+    it "should be able to convert Julian day numbers into the number of days since the Gregorian calendar in Italy" do
+      Date.jd_to_ld(2450000).should == 2450000 - 2299160
+    end
+  end
+  
+  describe "Date#jd_to_wday" do
+    it "should be able to convert a Julian day number into a week day number" do
+      Date.jd_to_wday(2454482).should == 3
+    end
+  end
+end
+
+describe "Date instance methods" do
+  before do
+    @d = Date.civil(2008, 10, 11)
+  end
+
+  it "#ajd should be the same as jd" do
+    @d.ajd.should == @d.jd
+  end
+
+  it "#amjd should be the astronomical modified julian date" do
+    @d.amjd.should == 54750
+  end
+
+  it "#ld should be the days since italian calendar reform day" do
+    @d.ld.should == 155591
+  end
+
+  it "#mjd should be the modified julian date" do
+    @d.mjd.should == 54750
+  end
+end
+
+ruby_version_is "" ... "1.9" do
+  describe "Date.valid_time?" do
+    it " should return corresponding day fraction if valid and nil if not" do
+      Date.valid_time?(12, 0, 0).should == 0.5
+      Date.valid_time?(25, 0, 0).should == nil
+      Date.valid_time?(12, 61, 0).should == nil
+      Date.valid_time?(12, 0, 61).should == nil
+    end
+  end
+end
+
+describe "Date marshalling" do
+  it "should marshal and unmarshal correctly" do
+    Marshal.load(Marshal.dump(Date.jd)).should == Date.civil
+    Marshal.load(Marshal.dump(Date.today)).should == Date.today
+    Marshal.load(Marshal.dump(Date.civil(2010, 2, 4))).should == Date.civil(2010, 2, 4)
+  end
+end
+
+ruby_version_is "1.9" do
+  describe "Date#to_date" do
+    it " should return the receiver" do
+      Date.new(2009, 1, 2).to_date.should == Date.new(2009, 1, 2)
+    end
+  end
+
+  describe "Date#to_datetime" do
+    it " should return a DateTime equal to the receiver" do
+      Date.new(2009, 1, 2).to_datetime.should == DateTime.new(2009, 1, 2)
+    end
+  end
+
+  describe "Date#to_time" do
+    it " should return a Time in local time with the same year, month, day as the receiver" do
+      Date.new(2009, 1, 2).to_time.should == Time.local(2009, 1, 2)
+    end
+  end
+
+  describe "Time#to_date" do
+    it " should return a Date with the same year, month, and day as the receiver" do
+      Time.local(2009, 1, 2).to_date.should == Date.new(2009, 1, 2)
+    end
+  end
+
+  describe "Time#to_time" do
+    it " should return the receiver in local time" do
+      Time.local(2009, 1, 2).to_time.should == Time.local(2009, 1, 2)
+      Time.local(2009, 1, 2).getutc.to_time.should == Time.local(2009, 1, 2)
+    end
+  end
+end
+

data/spec/date/day_spec.rb

@@ -0,0 +1,73 @@
+require File.expand_path('../../spec_helper', __FILE__)
+
+ruby_version_is "1.9" do
+  describe "Date#sunday?" do
+    it "should return true if the day is a Sunday" do
+      Date.civil(2009,1,4).sunday?.should == true
+    end
+
+    it "should return false if the day is not a Sunday" do
+      Date.civil(2009,1,2).sunday?.should == false
+    end
+  end 
+
+  describe "Date#monday?" do
+    it "should return true if the day is a Monday" do
+      Date.civil(2009,1,5).monday?.should == true
+    end
+
+    it "should return false if the day is not a Monday" do
+      Date.civil(2009,1,2).monday?.should == false
+    end
+  end 
+
+  describe "Date#tuesday?" do
+    it "should return true if the day is a Tuesday" do
+      Date.civil(2009,1,6).tuesday?.should == true
+    end
+
+    it "should return false if the day is not a Tuesday" do
+      Date.civil(2009,1,2).tuesday?.should == false
+    end
+  end 
+
+  describe "Date#wednesday?" do
+    it "should return true if the day is a Wednesday" do
+      Date.civil(2009,1,7).wednesday?.should == true
+    end
+
+    it "should return false if the day is not a Tuesday" do
+      Date.civil(2009,1,2).wednesday?.should == false
+    end
+  end 
+
+  describe "Date#thursday?" do
+    it "should return true if the day is a Thursday" do
+      Date.civil(2009,1,1).thursday?.should == true
+    end
+
+    it "should return false if the day is not a Thursday" do
+      Date.civil(2009,1,2).thursday?.should == false
+    end
+  end 
+
+  describe "Date#friday?" do
+    it "should return true if the day is a Friday" do
+      Date.civil(2009,1,2).friday?.should == true
+    end
+
+    it "should return false if the day is not a Friday" do
+      Date.civil(2009,1,1).friday?.should == false
+    end
+  end 
+
+  describe "Date#saturday?" do
+    it "should return true if the day is a Saturday" do
+      Date.civil(2009,1,3).saturday?.should == true
+    end
+
+    it "should return false if the day is not a Saturday" do
+      Date.civil(2009,1,2).saturday?.should == false
+    end
+  end 
+end

data/spec/date/downto_spec.rb

@@ -0,0 +1,17 @@
+require File.expand_path('../../spec_helper', __FILE__)
+
+describe "Date#downto" do
+
+  it "should be able to step backward in time" do
+    ds    = Date.civil(2000, 4, 14)
+    de    = Date.civil(2000, 3, 29)
+    count = 0
+    ds.downto(de) do |d|
+      d.should <= ds
+      d.should >= de
+      count += 1
+    end
+    count.should == 17
+  end
+
+end

data/spec/date/eql_spec.rb

@@ -0,0 +1,16 @@
+require File.expand_path('../../spec_helper', __FILE__)
+
+describe "Date#eql?" do
+  it "should be able determine equality between date objects" do
+    Date.civil(2007, 10, 11).should eql(Date.civil(2007, 10, 11))
+    Date.civil(2007, 10, 11).should eql(Date.civil(2007, 10, 12) - 1)
+    Date.civil(2007, 10, 11).should_not eql(Date.civil(2007, 10, 12))
+  end
+
+  it "should be able determine equality between a date and a datetime objects" do
+    Date.civil(2007, 10, 11).should eql(DateTime.civil(2007, 10, 11))
+    Date.civil(2007, 10, 11).should eql(DateTime.civil(2007, 10, 12) - 1)
+    Date.civil(2007, 10, 11).should_not eql(DateTime.civil(2007, 10, 12))
+    Date.civil(2007, 10, 11).should_not eql(DateTime.civil(2007, 10, 11, 1))
+  end
+end

data/spec/date/format_spec.rb

@@ -0,0 +1,52 @@
+require File.expand_path('../../spec_helper', __FILE__)
+
+describe "Date formatting methods" do
+  it "#asctime and #ctime should use a format similar to Time" do
+    Date.new(2008, 1, 2).asctime.should == 'Wed Jan  2 00:00:00 2008'
+    Date.new(2008, 1, 2).ctime.should == 'Wed Jan  2 00:00:00 2008'
+  end
+  
+  it "#to_s should use an ISO8601 format" do
+    Date.new(2008, 1, 2).to_s.should == '2008-01-02'
+  end
+
+  it "#inspect should use an ISO8601 format" do
+    Date.new(2008, 1, 2).inspect.should == '#<Date 2008-01-02>'
+  end
+
+  ruby_version_is "1.9" do
+    it "#httpdate should use an HTTP format" do
+      Date.new(2009, 1, 2).httpdate.should ==  "Fri, 02 Jan 2009 00:00:00 GMT"
+    end
+
+    it "#iso8601 should use an ISO8601 format" do
+      Date.new(2009, 1, 2).iso8601.should ==  "2009-01-02"
+    end
+
+    it "#jisx03010 should use an JIS X 0301 format" do
+      Date.new(2009, 1, 2).jisx0301.should ==  "H21.01.02"
+      Date.new(1988, 1, 2).jisx0301.should ==  "S63.01.02"
+      Date.new(1925, 1, 2).jisx0301.should ==  "T14.01.02"
+      Date.new(1911, 1, 2).jisx0301.should ==  "M44.01.02"
+      Date.new(1873, 1, 2).jisx0301.should ==  "M06.01.02"
+      Date.new(1872, 1, 2).jisx0301.should ==  "1872-01-02"
+      Date.new(1867, 1, 2).jisx0301.should ==  "1867-01-02"
+    end
+
+    it "#rfc2822 should use an RFC2822 format" do
+      Date.new(2009, 1, 2).rfc2822.should ==  "Fri, 2 Jan 2009 00:00:00 +0000"
+    end
+
+    it "#rfc822 should use an RFC822 format" do
+      Date.new(2009, 1, 2).rfc822.should ==  "Fri, 2 Jan 2009 00:00:00 +0000"
+    end
+
+    it "#rfc3339 should use an RFC3339 format" do
+      Date.new(2009, 1, 2).rfc3339.should ==  "2009-01-02T00:00:00+00:00"
+    end
+
+    it "#xmlschema should use an ISO8601 format" do
+      Date.new(2009, 1, 2).xmlschema.should ==  "2009-01-02"
+    end
+  end
+end

data/spec/date/gregorian_spec.rb

@@ -0,0 +1,52 @@
+require File.expand_path('../../spec_helper', __FILE__)
+
+describe "Date#gregorian?" do
+  it "should return true" do
+    Date.civil(1007, 2, 27).gregorian?.should == true
+    Date.civil(1907, 2, 27, Date.civil(2000, 1, 1).jd).gregorian?.should == true
+  end
+  
+  ruby_version_is "" ... "1.9" do
+    it "ns? should be same as gregorian?" do
+      Date.civil(1007, 2, 27).ns?.should == true
+    end
+  end
+end
+
+describe "Date.gregorian_leap?" do
+
+  it "should be able to determine whether a year is a leap year in the Gregorian calendar" do
+    Date.gregorian_leap?(1900).should == false
+    Date.gregorian_leap?(1999).should == false
+    Date.gregorian_leap?(2000).should == true
+    Date.gregorian_leap?(2002).should == false
+    Date.gregorian_leap?(2004).should == true
+    Date.gregorian_leap?(1901).should == false
+    Date.gregorian_leap?(1899).should == false
+    Date.gregorian_leap?(1904).should == true
+    Date.gregorian_leap?(1896).should == true
+    Date.gregorian_leap?(1999).should == false
+    Date.gregorian_leap?(2001).should == false
+  end
+
+  it ".leap? should be the same as gregorian_leap" do
+    Date.leap?(1900).should == Date.gregorian_leap?(1900)
+    Date.leap?(2000).should == Date.gregorian_leap?(2000)
+  end
+end
+
+ruby_version_is "" ... "1.9" do
+  describe "Date" do
+    it ".gregorian? should return whether the first argument is greater than or equal the second" do
+      Date.gregorian?(1, 2).should == false
+      Date.gregorian?(2, 1).should == true
+      Date.gregorian?(1, 1).should == true
+    end
+
+    it ".ns? should be the same as gregorian?" do
+      Date.ns?(2, 1).should == Date.gregorian?(2, 1)
+      Date.ns?(1, 2).should == Date.gregorian?(1, 2)
+      Date.ns?(1, 1).should == Date.gregorian?(1, 1)
+    end
+  end
+end

data/spec/date/hash_spec.rb

@@ -0,0 +1,11 @@
+require File.expand_path('../../spec_helper', __FILE__)
+
+describe "Date#hash" do
+  it "should use the same hash value for equal dates" do 
+    Date.civil(2004, 7, 12).hash.should == Date.civil(2004, 7, 12).hash
+  end
+  
+  it "should use a different hash value for different dates" do 
+    Date.civil(2004, 7, 12).hash.should_not == Date.civil(2004, 7, 13).hash
+  end
+end

data/spec/date/julian_spec.rb

@@ -0,0 +1,129 @@
+require File.expand_path('../../spec_helper', __FILE__)
+
+describe "Date.jd" do
+  it "should be able to construct a Date object based on the Julian day" do
+    Date.jd(2454482).should == Date.civil(2008, 1, 16)
+  end
+
+  it "should be able to determine the Julian day for a Date object" do
+    Date.civil(2008, 1, 16).jd.should == 2454482
+  end
+  
+  it "should have defaults" do
+    Date.jd.should == Date.jd(0)
+    Date.jd(2008).should == Date.jd(2008)
+    Date.jd(2008, 1).should == Date.jd(2008)
+  end
+  
+  it "should not accept more than 2 arguments" do
+    proc{Date.jd(2008, 1, 1)}.should raise_error(ArgumentError)
+  end
+
+  it "should raise ArgumentError for invalid dates" do
+    proc{Date.jd(Date::GREGORIAN)}.should raise_error
+    proc{Date.jd(Date::JULIAN)}.should raise_error
+  end
+
+  ruby_version_is "" ... "1.9" do
+    it ".new1 should be the same as jd" do
+      Date.new1(2454156).should == Date.jd(2454156)
+    end
+  end
+end
+
+describe "Date.new!" do
+  it "should be the same as jd" do
+    Date.new!(2454156).should == Date.jd(2454156)
+  end
+  
+  it "should accept extra arguments" do
+    Date.new!.should == Date.jd(0)
+    Date.new!(2008).should == Date.jd(2008)
+    Date.new!(2008, 1).should == Date.jd(2008)
+    Date.new!(2008, 1, 1).should == Date.jd(2008)
+  end
+  
+  it "should not accept more than 3 arguments" do
+    proc{Date.new!(2008, 1, 1, 1)}.should raise_error(ArgumentError)
+  end
+
+  ruby_version_is "" ... "1.9" do
+    it "#new0 should be the same as new!" do
+      Date.new0(2454156).should == Date.new!(2454156)
+    end
+  end
+end
+
+describe "Date#julian?" do
+  it "should return false" do
+    Date.civil(1007, 2, 27).julian?.should == false
+    Date.civil(1907, 2, 27, Date.civil(2000, 1, 1).jd).julian?.should == false
+  end
+  
+  ruby_version_is "" ... "1.9" do
+    it "os? should be same as julian?" do
+      Date.civil(1007, 2, 27).os?.should == false
+    end
+  end
+end
+
+describe "Date.julian_leap?" do
+
+  it "should be able to determine whether a year is a leap year in the Julian calendar" do
+    Date.julian_leap?(1900).should == true
+    Date.julian_leap?(1999).should == false
+    Date.julian_leap?(2000).should == true
+    Date.julian_leap?(2002).should == false
+    Date.julian_leap?(2004).should == true
+    Date.julian_leap?(1901).should == false
+    Date.julian_leap?(1899).should == false
+    Date.julian_leap?(1904).should == true
+    Date.julian_leap?(1896).should == true
+    Date.julian_leap?(1999).should == false
+    Date.julian_leap?(2001).should == false
+  end
+
+end
+
+describe "Date.valid_jd?" do
+  ruby_version_is "" ... "1.9" do
+    it "should be able to determine if a day number is a valid Julian day number, true for all numbers" do
+      # This might need to check the type of the jd parameter. Date.valid_jd?(:number) is of course
+      # bogus but returns itself with the current implementation
+      Date.valid_jd?(-100).should == -100
+      Date.valid_jd?(0).should    ==    0
+      Date.valid_jd?(100).should  ==  100
+      Date.valid_jd?(2454156).should == 2454156
+      Date.valid_jd?(2454156, 1).should == 2454156
+    end
+    
+    it "#exist1? should be the same as valid_jd?" do
+      Date.exist1?(2454156, 1).should == Date.valid_jd?(2454156, 1)
+    end
+  end
+
+  ruby_version_is "1.9" do
+    it "should be able to determine if a day number is a valid Julian day number, true for all numbers" do
+      # This might need to check the type of the jd parameter. Date.valid_jd?(:number) is of course
+      # bogus but returns itself with the current implementation
+      Date.valid_jd?(-100).should == true
+      Date.valid_jd?(0).should    == true
+      Date.valid_jd?(100).should  == true
+      Date.valid_jd?(2454156).should == true
+      Date.valid_jd?(2454156, 1).should == true
+    end
+  end
+end
+
+ruby_version_is "" ... "1.9" do
+  describe "Date" do
+    it ".julian? should return whether the first argument is less than the second" do
+      Date.julian?(1, 1).should == false
+      Date.julian?(1, 2).should == true
+    end
+
+    it ".os? should be the same as julian?" do
+      Date.os?(1, 2).should == Date.julian?(1, 2)
+    end
+  end
+end

data/spec/date/leap_spec.rb

@@ -0,0 +1,19 @@
+require File.expand_path('../../spec_helper', __FILE__)
+
+describe "Date#leap?" do
+  it "should be true if the current date is a leap year and no argument is given" do
+    Date.civil(2000, 10, 11).leap?.should ==  true
+    Date.civil(2004, 10, 11).leap?.should ==  true
+    Date.civil(2008, 10, 11).leap?.should ==  true
+    Date.civil(1996, 10, 11).leap?.should ==  true
+    Date.civil(1600, 10, 11).leap?.should ==  true
+  end
+  
+  it "should be false if the current date is not a leap year and no argument is given" do
+    Date.civil(1700, 10, 11).leap?.should ==  false
+    Date.civil(1800, 10, 11).leap?.should ==  false
+    Date.civil(1900, 10, 11).leap?.should ==  false
+    Date.civil(1999, 10, 11).leap?.should ==  false
+    Date.civil(2001, 10, 11).leap?.should ==  false
+  end
+end

data/spec/date/minus_month_spec.rb

@@ -0,0 +1,25 @@
+require File.expand_path('../../spec_helper', __FILE__)
+
+describe "Date#<<" do
+
+  it "should substract a number of months from a date" do
+    (Date.civil(2007, 12, 27) << 10).should == Date.civil(2007,2,27)
+    (Date.commercial(2007, 45, 5) << 10).should == Date.commercial(2007,2,2)
+    (Date.jd(2455086) << 10).should == Date.jd(2454782)
+    (Date.ordinal(2008, 315) << 10).should == Date.ordinal(2008, 10)
+    (Date.civil(2007, 12, 27) << 12).should == Date.civil(2006,12,27)
+    (Date.civil(2007, 12, 27) << -12).should == Date.civil(2008,12,27)
+  end
+
+  it "should result in the last day of a month if the day doesn't exist" do
+    d = Date.civil(2008,3,31) << 1
+    d.should == Date.civil(2008, 2, 29)
+  end
+
+  it "should raise an error on non numeric parameters" do
+    lambda { Date.civil(2007,2,27) << "hello" }.should raise_error(TypeError)
+    lambda { Date.civil(2007,2,27) << Date.new }.should raise_error(TypeError)
+    lambda { Date.civil(2007,2,27) << Object.new }.should raise_error(TypeError)
+  end
+  
+end