home_run 0.9.0

data/ext/extconf.rb

@@ -0,0 +1,6 @@
+require 'mkmf'
+$CFLAGS << " -O2 -Wall#{' -DRUBY19' if  RUBY_VERSION >= '1.9.0'}#{' -DRUBY186' if  RUBY_VERSION < '1.8.7'}"
+$CFLAGS << ' -Wno-extra' if $CFLAGS =~ /-Wextra/
+$CFLAGS << ' -g -ggdb -rdynamic -O0 -DDEBUG' if ENV['DEBUG']
+$objs = ['date_ext.o']
+create_makefile("date_ext")

data/spec/date/accessor_spec.rb

@@ -0,0 +1,176 @@
+require File.expand_path('../../spec_helper', __FILE__)
+
+describe "Date#ajd" do
+  it "should be able to determine the Astronomical Julian day for a date" do
+    Date.civil(2007, 1, 17).ajd.should == 2454118
+  end
+end
+
+describe "Date#amjd" do
+  it "should be able to determine the Astronomical Modified Julian day for a date" do
+    Date.civil(2007, 1, 17).amjd.should == 54117
+  end
+end
+
+describe "Date#day_fraction" do
+  it "should be able to determine the day fraction for a date" do
+    Date.civil(2007, 1, 17).day_fraction.should == 0
+  end
+end
+
+describe "Date#jd" do
+  it "should be able to determine the julian date for a date" do
+    Date.civil(2007,  1, 17).jd.should == 2454118
+    Date.civil(2008, 10, 28).jd.should == 2454768
+    Date.commercial(2008, 1, 1).jd.should == 2454466
+    Date.commercial(2008, 52, 1).jd.should == 2454823
+    Date.jd(2454782).jd.should == 2454782
+    Date.jd(2454832).jd.should == 2454832
+    Date.ordinal(2008, 1).jd.should == 2454467
+    Date.ordinal(2008, 359).jd.should == 2454825
+    Date.ordinal(2008, 366).jd.should == 2454832
+  end 
+end
+
+describe "Date#mjd" do
+  it "should be able to determine the Modified Julian day for a date" do
+    Date.civil(2007, 1, 17).mjd.should == 54117
+  end 
+end
+
+describe "Date#ld" do
+  it "should be able to determine the Modified Julian day for a date" do
+    Date.civil(2007, 1, 17).ld.should == 154958
+  end 
+end
+
+describe "Date#year" do
+  it "should be able to determine the year for a date" do
+    Date.civil(2007, 1, 17).year.should == 2007
+    Date.civil(2008, 1, 17).year.should == 2008
+    Date.commercial(2008, 1, 1).year.should == 2007
+    Date.commercial(2008, 52, 1).year.should == 2008
+    Date.jd(2454782).year.should == 2008
+    Date.jd(2454833).year.should == 2009
+    Date.ordinal(2008, 1).year.should == 2008
+    Date.ordinal(2008, 170).year.should == 2008
+    Date.ordinal(2008, 366).year.should == 2008
+  end 
+end
+
+describe "Date#yday" do
+  it "should be able to determine the year for a date" do
+    Date.civil(2007,  1, 17).yday.should == 17
+    Date.civil(2008, 10, 28).yday.should == 302
+    Date.commercial(2008, 1, 1).yday.should == 365
+    Date.commercial(2008, 52, 1).yday.should == 357
+    Date.jd(2454782).yday.should == 316
+    Date.jd(2454832).yday.should == 366
+    Date.ordinal(2008, 1).yday.should == 1
+    Date.ordinal(2008, 170).yday.should == 170
+    Date.ordinal(2008, 366).yday.should == 366
+  end 
+end
+
+describe "Date#mon and #month" do
+  it "should be able to determine the month for a date" do
+    Date.civil(2007,  1, 17).mon.should == 1
+    Date.civil(2008, 10, 28).mon.should == 10
+    Date.civil(2007,  1, 17).month.should == 1
+    Date.civil(2008, 10, 28).month.should == 10
+    Date.commercial(2008, 1, 1).mon.should == 12
+    Date.commercial(2008, 52, 1).mon.should == 12
+    Date.jd(2454782).mon.should == 11
+    Date.jd(2454832).mon.should == 12
+    Date.ordinal(2008, 1).mon.should == 1
+    Date.ordinal(2008, 170).mon.should == 6
+    Date.ordinal(2008, 366).mon.should == 12
+  end 
+end
+
+describe "Date#mday and #day" do
+  it "should be able to determine the day of the month for a date" do
+    Date.civil(2007,  1, 17).mday.should == 17
+    Date.civil(2008, 10, 28).mday.should == 28
+    Date.civil(2007,  1, 17).day.should == 17
+    Date.civil(2008, 10, 28).day.should == 28
+    Date.commercial(2008, 1, 1).day.should == 31
+    Date.commercial(2008, 52, 1).day.should == 22
+    Date.jd(2454782).day.should == 11
+    Date.jd(2454832).day.should == 31
+    Date.ordinal(2008, 1).day.should == 1
+    Date.ordinal(2008, 359).day.should == 24
+    Date.ordinal(2008, 366).day.should == 31
+  end
+end
+
+describe "Date#wday" do
+  it "should be able to determine the week day for a date" do
+    Date.civil(2007,  1, 17).wday.should == 3
+    Date.civil(2008, 10, 26).wday.should == 0
+    Date.commercial(2008, 1, 1).wday.should == 1
+    Date.commercial(2008, 52, 1).wday.should == 1
+    Date.jd(2454782).wday.should == 2
+    Date.jd(2454832).wday.should == 3
+    Date.ordinal(2008, 1).wday.should == 2
+    Date.ordinal(2008, 170).wday.should == 3
+    Date.ordinal(2008, 366).wday.should == 3
+  end
+end
+
+describe "Date#cwyear" do
+  it "should be able to determine the commercial year for a date" do
+    Date.civil(2007,  1, 17).cwyear.should == 2007
+    Date.civil(2008, 10, 28).cwyear.should == 2008
+    Date.civil(2007, 12, 31).cwyear.should == 2008
+    Date.civil(2010,  1,  1).cwyear.should == 2009
+    Date.commercial(2008, 1, 1).cwyear.should == 2008
+    Date.commercial(2008, 52, 1).cwyear.should == 2008
+    Date.jd(2454782).cwyear.should == 2008
+    Date.jd(2454832).cwyear.should == 2009
+    Date.ordinal(2008, 1).cwyear.should == 2008
+    Date.ordinal(2008, 359).cwyear.should == 2008
+    Date.ordinal(2008, 366).cwyear.should == 2009
+  end
+end
+
+describe "Date#cweek" do
+  it "should be able to determine the commercial week for a date" do
+    Date.civil(2007,  1, 17).cweek.should == 3
+    Date.civil(2008, 10, 28).cweek.should == 44
+    Date.civil(2007, 12, 31).cweek.should == 1
+    Date.civil(2010,  1,  1).cweek.should == 53
+    Date.commercial(2008, 1, 1).cweek.should == 1
+    Date.commercial(2008, 10, 5).cweek.should == 10
+    Date.jd(2454782).cweek.should == 46
+    Date.jd(2454789).cweek.should == 47
+    Date.ordinal(2008, 1).cweek.should == 1
+    Date.ordinal(2008, 359).cweek.should == 52
+    Date.ordinal(2008, 366).cweek.should == 1
+  end
+end
+
+describe "Date#cwday" do
+  it "should be able to determine the commercial week day for a date" do
+    Date.civil(2007,  1, 17).cwday.should == 3
+    Date.civil(2008, 10, 26).cwday.should == 7
+    Date.commercial(2008, 1, 1).cwday.should == 1
+    Date.commercial(2008, 10, 5).cwday.should == 5
+    Date.jd(2454782).cwday.should == 2
+    Date.jd(2454786).cwday.should == 6
+    Date.ordinal(2008, 1).cwday.should == 2
+    Date.ordinal(2008, 317).cwday.should == 3
+  end  
+end
+
+describe "Date#start" do
+  it "#start should be less than a low number" do
+    Date.civil(2008, 10, 11).start.should < -(2**30)
+  end
+  
+  ruby_version_is "" ... "1.9" do
+    it "#sg should be less than a low number" do
+      Date.civil(2008, 10, 11).sg.should < -(2**30)
+    end
+  end
+end

data/spec/date/add_month_spec.rb

@@ -0,0 +1,26 @@
+require File.expand_path('../../spec_helper', __FILE__)
+
+describe "Date#>>" do
+
+  it "should add a number of months to a Date" do
+    (Date.civil(2007,2,27) >> 10).should == Date.civil(2007, 12, 27)
+    (Date.civil(2007,2,27) >> 10).should == Date.civil(2007, 12, 27)
+    (Date.commercial(2007,2,2) >> 10).should == Date.commercial(2007, 45, 5)
+    (Date.jd(2454782) >> 10).should == Date.jd(2455086)
+    (Date.ordinal(2008, 10) >> 10).should == Date.ordinal(2008, 315)
+    (Date.civil(2007,2,27) >> 22).should == Date.civil(2008, 12, 27)
+    (Date.civil(2007,2,27) >> -2).should == Date.civil(2006, 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, 4, 30)
+  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

data/spec/date/add_spec.rb

@@ -0,0 +1,23 @@
+require File.expand_path('../../spec_helper', __FILE__)
+
+describe "Date#+" do
+
+  it "should add a number of days to a Date" do
+    (Date.civil(2007,2,27) + 315).should == Date.civil(2008, 1, 8)
+    (Date.commercial(2007,2,2) + 315).should == Date.commercial(2007, 47, 2)
+    (Date.jd(2454782) + 315).should == Date.jd(2455097)
+    (Date.ordinal(2008, 10) + 315).should == Date.ordinal(2008, 325)
+  end
+  
+  it "should add a negative number of days to a Date" do
+    d = Date.civil(2007,2,27).+(-10)
+    d.should == Date.civil(2007, 2, 17)
+  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

data/spec/date/boat_spec.rb

@@ -0,0 +1,38 @@
+require File.expand_path('../../spec_helper', __FILE__)
+
+describe "Date#<=>" do
+
+  it "should be able to compare two same dates" do
+    (Date.civil(2000, 04, 06) <=> Date.civil(2000, 04, 06)).should == 0
+  end
+
+  it "should be able to compare two different dates" do
+    (Date.civil(2000, 04, 05) <=> Date.civil(2000, 04, 06)).should == -1
+    (Date.civil(2001, 04, 05) <=> Date.civil(2000, 04, 06)).should == 1
+  end
+
+  it "should be able to compare a Date to a DateTime" do
+    (Date.civil(2000, 04, 06) <=> DateTime.civil(2000, 04, 06)).should == 0
+    (Date.civil(2000, 04, 05) <=> DateTime.civil(2000, 04, 06)).should == -1
+    (Date.civil(2000, 04, 07) <=> DateTime.civil(2000, 04, 06)).should == 1
+    (Date.civil(2000, 04, 05) <=> DateTime.civil(2000, 04, 05, 1)).should == -1
+  end
+
+  it "should be able to compare to another numeric" do
+    (Date.civil(2000, 04, 05) <=> Date.civil(2000, 04, 06).jd).should == -1
+    (Date.civil(2001, 04, 05) <=> Date.civil(2000, 04, 06).jd).should == 1
+  end
+
+end
+
+describe "Date#between?" do
+   it "should be true if the date falls in between the two given dates" do
+    (Date.civil(2000, 04, 06).between?(Date.civil(2000, 04, 05), Date.civil(2000, 04, 07))).should == true
+    (Date.civil(2000, 04, 06).between?(Date.civil(2000, 04, 06), Date.civil(2000, 04, 07))).should == true
+    (Date.civil(2000, 04, 06).between?(Date.civil(2000, 04, 05), Date.civil(2000, 04, 06))).should == true
+  end 
+  
+   it "should be false if the date does not fall in between the two given dates" do
+    (Date.civil(2000, 04, 05).between?(Date.civil(2000, 04, 06), Date.civil(2000, 04, 07))).should == false
+  end 
+end

data/spec/date/civil_spec.rb

@@ -0,0 +1,147 @@
+require File.expand_path('../../spec_helper', __FILE__)
+
+describe :date_civil, :shared => true do
+  it "creates a Date with jd 0 by default" do
+    d = Date.send(@method)
+    d.year.should    == -4713
+    d.month.should   == 11
+    d.day.should     == 24
+    d.julian?.should == false
+    d.jd.should      == 0
+  end
+
+  it "creates a date with arguments" do
+    d = Date.send(@method, 2000, 3, 5)
+    d.year.should    == 2000
+    d.month.should   == 3
+    d.day.should     == 5
+    d.julian?.should == false
+    d.jd.should      == 2451609
+
+    # Should also work with years far in the past and future
+
+    d = Date.send(@method, -9000, 7, 5)
+    d.year.should    == -9000
+    d.month.should   == 7
+    d.day.should     == 5
+    d.julian?.should == false
+    d.jd.should      == -1565937
+  
+    d = Date.send(@method, 9000, 10, 14)
+    d.year.should    == 9000
+    d.month.should   == 10
+    d.day.should     == 14
+    d.julian?.should == false
+    d.jd.should      == 5008529
+  
+  end
+
+  it "raises errors for invalid dates" do
+    lambda { Date.send(@method, 2000, 13, 31) }.should raise_error(ArgumentError)
+    lambda { Date.send(@method, 2000, 12, 32) }.should raise_error(ArgumentError)
+    lambda { Date.send(@method, 2000,  2, 30) }.should raise_error(ArgumentError)
+    lambda { Date.send(@method, 1900,  2, 29) }.should raise_error(ArgumentError)
+    lambda { Date.send(@method, 2000,  2, 29) }.should_not raise_error(ArgumentError)
+  
+    lambda { Date.send(@method, 1582, 10, 15) }.should_not raise_error(ArgumentError)
+  
+  end
+end
+
+describe "Date.civil" do
+  it_behaves_like(:date_civil, :civil)
+  
+  it "should have defaults and an optional sg value" do
+    Date.civil.should == Date.jd
+    Date.civil(2008).should == Date.civil(2008, 1, 1)
+    Date.civil(2008, 1).should == Date.civil(2008, 1, 1)
+    Date.civil(2008, 1, 1).should == Date.civil(2008, 1, 1)
+    Date.civil(2008, 1, 1, 1).should == Date.civil(2008, 1, 1)
+  end
+
+  it "should not accept more than 4 arguments" do
+    proc{Date.civil(2008, 1, 1, 1, 1)}.should raise_error(ArgumentError)
+  end
+
+  it "should raise ArgumentError for invalid dates" do
+    proc{Date.civil(2008, 2, 30)}.should raise_error(ArgumentError)
+    proc{Date.civil(2009, 2, 29)}.should raise_error(ArgumentError)
+  end
+end
+
+describe "Date.new" do
+  it_behaves_like(:date_civil, :new)
+end
+
+ruby_version_is "" ... "1.9" do
+  describe "Date.new3" do
+    it_behaves_like(:date_civil, :new3)
+  end
+end
+
+describe "Date.valid_civil?" do
+
+  ruby_version_is "" ... "1.9" do
+    it "should be able to determine if a date is valid" do
+      Date.valid_civil?(1582, 10, 14).should == Date.civil(1582, 10, 14).jd
+      Date.valid_civil?(1582, 10, 15).should == Date.civil(1582, 10, 15).jd
+      Date.valid_civil?(1582, 10, 14, Date::ENGLAND).should_not == nil
+      Date.valid_civil?(1582, 10, 14, Date::ENGLAND).should == Date.civil(1582, 10, 14, Date::ENGLAND).jd
+      Date.valid_civil?(2007, 2, 24).should == 2454156
+      Date.valid_civil?(2007, 2, 24, 1).should == 2454156
+      Date.valid_civil?(2007, 2, 30, 1).should == nil
+    end
+    
+    it "#valid_date? should be the same as valid_civil?" do
+      Date.valid_date?(2007, 2, 24, 1).should == Date.valid_civil?(2007, 2, 24, 1)
+    end
+    
+    it "#exist? should be the same as valid_date?" do
+      Date.exist?(2007, 2, 24, 1).should == Date.valid_date?(2007, 2, 24, 1)
+    end
+
+    it "#exist3? should be the same as valid_date?" do
+      Date.exist3?(2007, 2, 24, 1).should == Date.valid_date?(2007, 2, 24, 1)
+    end
+
+    it "should be able to handle negative months and days" do
+      Date.valid_civil?(1582, -3, -31).should == Date.civil(1582, 10, 1).jd
+      Date.valid_civil?(1582, -3, -28).should == Date.civil(1582, 10, 4).jd
+      Date.valid_civil?(1582, -3, -27).should == Date.civil(1582, 10, 5).jd
+      Date.valid_civil?(1582, -3, -22).should == Date.civil(1582, 10, 10).jd
+      Date.valid_civil?(1582, -3, -21).should == Date.civil(1582, 10, 11).jd
+      Date.valid_civil?(1582, -3, -18).should == Date.civil(1582, 10, 14).jd
+      Date.valid_civil?(1582, -3, -17).should == Date.civil(1582, 10, 15).jd
+    
+      Date.valid_civil?(2007, -11, -10).should == Date.civil(2007, 2, 19).jd
+      Date.valid_civil?(2008, -11, -10).should == Date.civil(2008, 2, 20).jd
+    end
+  end
+
+  ruby_version_is "1.9" do
+    it "should be able to determine if a date is valid" do
+      Date.valid_civil?(1582, 10, 14).should == true 
+      Date.valid_civil?(1582, 10, 15).should == true
+      Date.valid_civil?(1582, 10, 14, Date::ENGLAND).should == true
+      Date.valid_civil?(2007, 2, 24).should == true
+      Date.valid_civil?(2007, 2, 24, 1).should == true
+      Date.valid_civil?(2007, 2, 30, 1).should == false
+    end
+
+    it "#valid_date? should be the same as valid_civil?" do
+      Date.valid_date?(2007, 2, 24, 1).should == Date.valid_civil?(2007, 2, 24, 1)
+      Date.valid_date?(2007, 2, 30, 1).should == Date.valid_civil?(2007, 2, 30, 1)
+    end
+
+    it "should be able to handle negative months and days" do
+      Date.valid_civil?(1582, -3, -22).should == true
+      Date.valid_civil?(1582, -3, -21).should == true
+      Date.valid_civil?(1582, -3, -18).should == true
+      Date.valid_civil?(1582, -3, -17).should == true
+    
+      Date.valid_civil?(2007, -11, -10).should == true
+      Date.valid_civil?(2008, -11, -10).should == true
+    end
+  end
+
+end

data/spec/date/commercial_spec.rb

@@ -0,0 +1,153 @@
+require File.expand_path('../../spec_helper', __FILE__)
+
+describe :date_commercial, :shared => true do
+  ruby_version_is "" ... "1.9" do
+    it "creates a Date for the day of Julian calendar reform in Italy by default" do
+      d = Date.send(@method)
+      d.year.should  == 1582
+      d.month.should == 10
+      d.day.should   == 15
+    end
+  end
+
+  ruby_version_is "1.9" do
+    it "creates a Date for Julian Day Number day 0 by default" do
+      Date.send(@method).jd.should == 0
+    end
+  end
+
+  ruby_version_is "" ... "1.9" do
+    it "Creates a Date for the friday in the year and week given" do
+      d = Date.send(@method, 2000, 1)
+      d.year.should  == 2000
+      d.month.should == 1
+      d.day.should   == 7
+      d.cwday.should == 5
+    end
+  end
+
+  ruby_version_is "1.9" do
+    it "Creates a Date for the monday in the year and week given" do
+      d = Date.send(@method, 2000, 1)
+      d.year.should  == 2000
+      d.month.should == 1
+      d.day.should   == 3
+      d.cwday.should == 1
+    end
+  end
+
+  it "Creates a Date for the correct day given the year, week and day number" do
+    d = Date.send(@method, 2004, 1, 1)
+    d.year.should   == 2003
+    d.month.should  == 12
+    d.day.should    == 29
+    d.cwday.should  == 1
+    d.cweek.should  == 1
+    d.cwyear.should == 2004
+  end
+
+  it "raises errors for invalid dates" do
+    lambda { Date.send(@method, 2004, 53, 1) }.should_not raise_error(ArgumentError)
+    lambda { Date.send(@method, 2004, 53, 0) }.should raise_error(ArgumentError)
+    lambda { Date.send(@method, 2004, 53, 8) }.should raise_error(ArgumentError)
+    lambda { Date.send(@method, 2004, 54, 1) }.should raise_error(ArgumentError)
+    lambda { Date.send(@method, 2004,  0, 1) }.should raise_error(ArgumentError)
+
+    lambda { Date.send(@method, 2003, 52, 1) }.should_not raise_error(ArgumentError)
+    lambda { Date.send(@method, 2003, 53, 1) }.should raise_error(ArgumentError)
+    lambda { Date.send(@method, 2003, 52, 0) }.should raise_error(ArgumentError)
+    lambda { Date.send(@method, 2003, 52, 8) }.should raise_error(ArgumentError)
+  end
+end
+
+describe "Date.commercial" do
+  it_behaves_like(:date_commercial, :commercial)
+  
+  ruby_version_is "" ... "1.9" do
+    it "should have defaults and an optional sg value" do
+      Date.commercial.should == Date.commercial(1582, 41, 5)
+      Date.commercial(2008).should == Date.commercial(2008, 41, 5)
+      Date.commercial(2008, 1).should == Date.commercial(2008, 1, 5)
+      Date.commercial(2008, 1, 1).should == Date.commercial(2008, 1, 1)
+      Date.commercial(2008, 1, 1, 1).should == Date.commercial(2008, 1, 1)
+    end
+  end
+  
+  ruby_version_is "1.9" do
+    it "should have defaults and an optional sg value" do
+      Date.commercial.should == Date.jd
+      Date.commercial(2008).should == Date.commercial(2008, 1, 1)
+      Date.commercial(2008, 1).should == Date.commercial(2008, 1, 1)
+      Date.commercial(2008, 1, 1).should == Date.commercial(2008, 1, 1)
+      Date.commercial(2008, 1, 1, 1).should == Date.commercial(2008, 1, 1)
+    end
+  end
+
+  it ".should not accept more than 4 arguments" do
+    proc{Date.commercial(2008, 1, 1, 1, 1)}.should raise_error(ArgumentError)
+  end
+
+  it "should raise ArgumentError for invalid dates" do
+    proc{Date.commercial(2008, 54, 6)}.should raise_error(ArgumentError)
+    proc{Date.commercial(2009, 1, 8)}.should raise_error(ArgumentError)
+  end
+end
+
+ruby_version_is "" ... "1.9" do
+  describe "Date.neww" do
+    it_behaves_like(:date_commercial, :neww)
+  end
+end
+
+describe "Date.valid_commercial?" do
+
+  ruby_version_is "" ... "1.9" do
+    it "should be able to determine if the date is a valid commercial date" do
+      Date.valid_commercial?(1582, 41, 4).should == Date.civil(1582, 10, 14).jd
+      Date.valid_commercial?(1582, 41, 5).should == Date.civil(1582, 10, 15).jd
+      
+      Date.valid_commercial?(1582, 41, 4, Date::ENGLAND).should == Date.civil(1582, 10, 14).jd
+      Date.valid_commercial?(1752, 37, 4, Date::ENGLAND).should == Date.civil(1752, 9, 14, Date::ENGLAND).jd
+      
+      Date.valid_commercial?(2007, 45, 1).should == 2454410
+      Date.valid_commercial?(2007, 45, 1, 1).should == 2454410
+      Date.valid_commercial?(2007, 54, 1, 1).should == nil
+    end
+    
+    it "#existw? should be the same as valid_commercial?" do
+      Date.existw?(2007, 45, 1, 1).should == Date.valid_commercial?(2007, 45, 1, 1)
+    end
+
+    it "should be able to handle negative week and day numbers" do
+      Date.valid_commercial?(1582, -12, -4).should == Date.civil(1582, 10, 14).jd
+      Date.valid_commercial?(1582, -12, -3).should == Date.civil(1582, 10, 15).jd
+      
+      Date.valid_commercial?(2007, -44, -2).should == Date.civil(2007, 3, 3).jd
+      Date.valid_commercial?(2008, -44, -2).should == Date.civil(2008, 3, 1).jd
+    end
+  end
+
+  ruby_version_is "1.9" do
+    it "should be able to determine if the date is a valid commercial date" do
+      Date.valid_commercial?(1582, 39, 4).should == true
+      Date.valid_commercial?(1582, 39, 5).should == true
+      Date.valid_commercial?(1582, 41, 4).should == true
+      Date.valid_commercial?(1582, 41, 5).should == true
+      Date.valid_commercial?(1582, 41, 4, Date::ENGLAND).should == true
+      Date.valid_commercial?(1752, 37, 4, Date::ENGLAND).should == true
+      
+      Date.valid_commercial?(2007, 45, 1).should == true
+      Date.valid_commercial?(2007, 45, 1, 1).should == true
+      Date.valid_commercial?(2007, 54, 1, 1).should == false
+    end
+
+    it "should be able to handle negative week and day numbers" do
+      Date.valid_commercial?(1582, -12, -4).should == true
+      Date.valid_commercial?(1582, -12, -3).should == true
+      
+      Date.valid_commercial?(2007, -44, -2).should == true
+      Date.valid_commercial?(2008, -44, -2).should == true
+    end
+  end
+
+end

data/spec/date/constants_spec.rb

@@ -0,0 +1,44 @@
+require File.expand_path('../../spec_helper', __FILE__)
+
+describe "Date constants" do
+
+  it "should define ITALY" do
+    Date::ITALY.should == 2299161 # 1582-10-15
+  end
+
+  it "should define ENGLAND" do
+    Date::ENGLAND.should == 2361222 # 1752-09-14
+  end
+  
+  # Fixes in 1.8.7
+  ruby_bug "#", "1.8.6" do
+    it "should define JULIAN" do
+      (Date::JULIAN <=> 2**30).should == 1
+    end
+  end
+
+  # Fixed in 1.8.7
+  ruby_bug "#", "1.8.6" do
+    it "should define GREGORIAN" do
+      (Date::GREGORIAN <=> -(2**30)).should == -1
+    end
+  end
+
+  it "should define MONTHNAMES" do
+    Date::MONTHNAMES.should == [nil] + %w(January February March April May June July
+                                          August September October November December)
+  end
+  
+  it "should define DAYNAMES" do
+    Date::DAYNAMES.should == %w(Sunday Monday Tuesday Wednesday Thursday Friday Saturday)
+  end
+  
+  it "should define ABBR_MONTHNAMES" do
+    Date::ABBR_MONTHNAMES.should == [nil] + %w(Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec)
+  end
+
+  it "should define ABBR_DAYNAMES" do
+    Date::ABBR_DAYNAMES.should == %w(Sun Mon Tue Wed Thu Fri Sat)
+  end
+
+end