third_base 1.0.0

data/spec/compat/date_spec.rb

@@ -0,0 +1,56 @@
+require(File.join(File.dirname(__FILE__), '..', 'compat_spec_helper'))
+
+describe Date do
+
+  it "._strptime should be the same as strptime with a no default date" do
+    Date._strptime('2008-10-11').should == Date.strptime('2008-10-11')
+    Date._strptime('2008-10-11', '%Y-%m-%d').should == Date.strptime('2008-10-11', '%Y-%m-%d')
+  end
+
+  it ".civil should have defaults and an optional sg value" do
+    Date.civil(2008, 1, 1, 1).should == Date.civil(2008, 1, 1)
+    Date.civil.should == Date.civil(-4712, 1, 1)
+  end
+
+  it ".commercial should have defaults and an optional sg value" do
+    Date.commercial(2008, 1, 1, 1).should == Date.commercial(2008, 1, 1)
+    Date.commercial.should == Date.commercial(1582, 41, 5)
+  end
+
+  it ".jd should have defaults and an optional sg value" do
+    Date.jd(2008, 1).should == Date.jd(2008)
+    Date.jd.should == Date.jd(0)
+  end
+
+  it ".ordinal should have defaults and an optional sg value" do
+    Date.ordinal(2008, 1, 1).should == Date.ordinal(2008, 1)
+    Date.ordinal.should == Date.ordinal(-4712, 1)
+  end
+
+  it ".parse should have defaults and an optional sg value" do
+    Date.parse('2008-10-11').should == Date.civil(2008, 10, 11)
+    Date.parse('2008-10-11', true).should == Date.civil(2008, 10, 11)
+    Date.parse('2008-10-11', true, 1).should == Date.civil(2008, 10, 11)
+    Date.parse.should == Date.civil(-4712, 1, 1)
+  end
+
+  it ".strptime should have defaults and an optional sg value" do
+    Date.strptime('2008-10-11').should == Date.civil(2008, 10, 11)
+    Date.strptime('2008-10-11', '%Y-%m-%d').should == Date.civil(2008, 10, 11)
+    Date.strptime('2008-10-11', '%Y-%m-%d', 1).should == Date.civil(2008, 10, 11)
+    Date.strptime.should == Date.civil(-4712, 1, 1)
+  end
+
+  it ".today should have an optional sg value" do
+    Date.today(1).should == Date.today
+  end
+
+  it "#asctime and #ctime should be a string with the date formatted" do
+    Date.new(2008, 1, 1).asctime.should == 'Tue Jan  1 00:00:00 2008'
+    Date.new(2008, 1, 1).ctime.should == 'Tue Jan  1 00:00:00 2008'
+  end
+
+  it "#day_fraction should be 0.0" do
+    Date.new(2008, 1, 1).day_fraction.should == 0.0
+  end
+end

data/spec/compat/datetime_spec.rb

@@ -0,0 +1,77 @@
+require(File.join(File.dirname(__FILE__), '..', 'compat_spec_helper'))
+
+describe DateTime do
+
+  it "._strptime should be the same as strptime with no default date" do
+    DateTime._strptime('2008-10-11T01:00:02+0000').should == DateTime.strptime('2008-10-11T01:00:02+0000')
+    DateTime._strptime('2008-10-11', '%Y-%m-%d').should == DateTime.strptime('2008-10-11', '%Y-%m-%d')
+  end
+
+  it ".civil should have defaults and an optional sg value" do
+    DateTime.civil(2008, 1, 1, 1, 1, 1, 0.5, 1).should == DateTime.civil(2008, 1, 1, 1, 1, 1, 0.5)
+    DateTime.civil.should == DateTime.civil(-4712, 1, 1, 0, 0, 0, 0)
+  end
+
+  it ".commercial should have defaults and an optional sg value" do
+    DateTime.commercial(2008, 1, 1, 1, 1, 1, 0.5, 1).should == DateTime.commercial(2008, 1, 1, 1, 1, 1, 0.5)
+    DateTime.commercial.should == DateTime.commercial(1582, 41, 5, 0, 0, 0, 0)
+  end
+
+  it ".jd should have defaults and an optional sg value" do
+    DateTime.jd(2008, 1, 1, 1, 0.5, 1).should == DateTime.jd(2008, 1, 1, 1, 0.5)
+    DateTime.jd.should == DateTime.jd(0, 0, 0, 0, 0)
+  end
+
+  it ".ordinal should have defaults and an optional sg value" do
+    DateTime.ordinal(2008, 1, 1, 1, 1, 0.5, 1).should == DateTime.ordinal(2008, 1, 1, 1, 1, 0.5)
+    DateTime.ordinal.should == DateTime.ordinal(-4712, 1, 0, 0, 0, 0)
+  end
+
+  it ".parse should have defaults and an optional sg value" do
+    DateTime.parse('2008-10-11').should == DateTime.civil(2008, 10, 11)
+    DateTime.parse('2008-10-11', true).should == DateTime.civil(2008, 10, 11)
+    DateTime.parse('2008-10-11', true, 1).should == DateTime.civil(2008, 10, 11)
+    DateTime.parse.should == DateTime.civil(-4712, 1, 1)
+  end
+
+  it ".strptime should have defaults and an optional sg value" do
+    DateTime.strptime('2008-10-11T00:00:00+00:00').should == DateTime.civil(2008, 10, 11)
+    DateTime.strptime('2008-10-11', '%Y-%m-%d').should == DateTime.civil(2008, 10, 11)
+    DateTime.strptime('2008-10-11', '%Y-%m-%d', 1).should == DateTime.civil(2008, 10, 11)
+    DateTime.strptime.should == DateTime.civil(-4712, 1, 1)
+  end
+
+  it ".now should have an optional sg value" do
+    DateTime.now(1).to_s.should == DateTime.now.to_s
+  end
+
+  it "#asctime and #ctime should be a string with the date formatted" do
+    DateTime.new(2008, 1, 1).asctime.should == 'Tue Jan  1 00:00:00 2008'
+    DateTime.new(2008, 1, 1).ctime.should == 'Tue Jan  1 00:00:00 2008'
+  end
+
+  it "#day_fraction should be the fraction of the day" do
+    DateTime.new(2008, 1, 1).day_fraction.should == 0.0
+    DateTime.new(2008, 1, 1, 12).day_fraction.should == 0.5
+  end
+
+  it "#new_offset and #newof should be a separate datetime with a modified offset" do
+    DateTime.new(2008, 1, 1).new_offset(0.5).should == DateTime.new(2008, 1, 1, 0, 0, 0, 0.5)
+    DateTime.new(2008, 1, 1).newof(0.5).should == DateTime.new(2008, 1, 1, 0, 0, 0, 0.5)
+  end
+
+  it "#offset and #of should be the offset as a float fraction of the day" do
+    DateTime.parse('2008-01-01 00:00:00+12:00').offset.should == 0.5
+    DateTime.parse('2008-01-01 00:00:00+12:00').of.should == 0.5
+  end
+
+  it "#offset_sec offset from UTC in seconds" do
+    DateTime.parse('2008-01-01 00:00:00+02:00').offset_sec.should == 7200
+  end
+
+  it "#sec_fraction should be the fraction of a second as a fraction of the day" do
+    DateTime.new(2008, 1, 1).sec_fraction.should == 0.0
+    DateTime.parse('12:13:15.678900').sec_fraction.should be_close(7.85763888888889e-06, 0.0000000000001)
+  end
+
+end

data/spec/compat_spec_helper.rb

@@ -0,0 +1,2 @@
+require 'third_base/compat'
+require(File.join(File.dirname(__FILE__), 'spec_helper'))

data/spec/date/accessor_spec.rb

@@ -0,0 +1,134 @@
+require(File.join(File.dirname(__FILE__), '..', 'date_spec_helper'))
+
+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#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#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#day and #mday" do
+  it "should be able to determine the month for a date" do
+    Date.civil(2007,  1, 17).day.should == 17
+    Date.civil(2008, 10, 28).day.should == 28
+    Date.civil(2007,  1, 17).mday.should == 17
+    Date.civil(2008, 10, 28).mday.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#jd" do
+  it "should be able to determine the month 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#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#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#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#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

data/spec/date/add_month_spec.rb

@@ -0,0 +1,28 @@
+require(File.join(File.dirname(__FILE__), '..', 'date_spec_helper'))
+
+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) >> "hello" }.should raise_error(TypeError)
+    lambda { Date.civil(2007,2,27) >> Date.new(2007,2,27) }.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,24 @@
+require(File.join(File.dirname(__FILE__), '..', 'date_spec_helper'))
+
+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) + "hello" }.should raise_error(TypeError)
+    lambda { Date.civil(2007,2,27) + Date.new(2007,2,27) }.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,31 @@
+require(File.join(File.dirname(__FILE__), '..', 'date_spec_helper'))
+
+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 compute the difference between two 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 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,47 @@
+require(File.join(File.dirname(__FILE__), '..', 'date_spec_helper'))
+
+describe :date_civil, :shared => true do
+  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.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.jd.should      == -1565937
+  
+    d = Date.send(@method, 9000, 10, 14)
+    d.year.should    == 9000
+    d.month.should   == 10
+    d.day.should     == 14
+    d.jd.should      == 5008529
+  
+  end
+
+  it "doesn't create dates for invalid arguments" 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)  
+  end
+end
+
+
+describe "Date#civil" do
+
+  it_behaves_like(:date_civil, :civil)
+
+end
+
+describe "Date#new" do
+
+  it_behaves_like(:date_civil, :new)
+
+end

data/spec/date/commercial_spec.rb

@@ -0,0 +1,34 @@
+require(File.join(File.dirname(__FILE__), '..', 'date_spec_helper'))
+
+describe "Date#commercial" do
+  it "Creates a Date for the friday in the year and week given" do
+    d = Date.commercial(2000, 1)
+    d.year.should  == 2000
+    d.month.should == 1
+    d.day.should   == 7
+    d.cwday.should == 5
+  end
+
+  it "Creates a Date for the correct day given the year, week and day number" do
+    d = Date.commercial(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 "creates only Date objects for valid weeks" do
+    lambda { Date.commercial(2004, 53, 1) }.should_not raise_error(ArgumentError)
+    lambda { Date.commercial(2004, 53, 0) }.should raise_error(ArgumentError)
+    lambda { Date.commercial(2004, 53, 8) }.should raise_error(ArgumentError)
+    lambda { Date.commercial(2004, 54, 1) }.should raise_error(ArgumentError)
+    lambda { Date.commercial(2004,  0, 1) }.should raise_error(ArgumentError)
+
+    lambda { Date.commercial(2003, 52, 1) }.should_not raise_error(ArgumentError)
+    lambda { Date.commercial(2003, 53, 1) }.should raise_error(ArgumentError)
+    lambda { Date.commercial(2003, 52, 0) }.should raise_error(ArgumentError)
+    lambda { Date.commercial(2003, 52, 8) }.should raise_error(ArgumentError)
+  end
+end

data/spec/date/constants_spec.rb

@@ -0,0 +1,18 @@
+require(File.join(File.dirname(__FILE__), '..', 'date_spec_helper'))
+
+describe "Date constants" do
+
+  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_DAYNAMES.should == %w(Sun Mon Tue Wed Thu Fri Sat)
+  end
+
+end

data/spec/date/downto_spec.rb

@@ -0,0 +1,17 @@
+require(File.join(File.dirname(__FILE__), '..', 'date_spec_helper'))
+
+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.step(de, -1) 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,9 @@
+require(File.join(File.dirname(__FILE__), '..', 'date_spec_helper'))
+
+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
+end

data/spec/date/hash_spec.rb

@@ -0,0 +1,13 @@
+require(File.join(File.dirname(__FILE__), '..', 'date_spec_helper'))
+
+describe "Date#hash" do
+  
+  it "should be able determine the hash value for a date" do
+    Date.civil(2004, 7, 12).respond_to?(:hash).should == true
+  end
+  
+  it "should be the case that the same date results in the same hash" do 
+    Date.civil(2004, 7, 12).hash.should == Date.civil(2004, 7, 12).hash
+  end
+  
+end

data/spec/date/julian_spec.rb

@@ -0,0 +1,13 @@
+require(File.join(File.dirname(__FILE__), '..', 'date_spec_helper'))
+
+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
+  
+end

data/spec/date/leap_spec.rb

@@ -0,0 +1,19 @@
+require(File.join(File.dirname(__FILE__), '..', 'date_spec_helper'))
+
+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,26 @@
+require(File.join(File.dirname(__FILE__), '..', 'date_spec_helper'))
+
+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(NoMethodError)
+    lambda { Date.civil(2007,2,27) << "hello" }.should raise_error(NoMethodError)
+    lambda { Date.civil(2007,2,27) << Date.new(2007,10,27) }.should raise_error(NoMethodError)
+    lambda { Date.civil(2007,2,27) << Object.new }.should raise_error(NoMethodError)
+  end
+  
+end

data/spec/date/minus_spec.rb

@@ -0,0 +1,47 @@
+require(File.join(File.dirname(__FILE__), '..', 'date_spec_helper'))
+
+describe "Date#-" do
+
+  it "should substract a number of days from a Date" do
+    (Date.civil(2008, 1, 8) - 315).should == Date.civil(2007,2,27)
+    (Date.commercial(2007, 47, 2) - 315).should == Date.commercial(2007,2,2)
+    (Date.jd(2455097) - 315).should == Date.jd(2454782)
+    (Date.ordinal(2008, 325) - 315).should == Date.ordinal(2008, 10)
+  end
+  
+  it "should substract a negative number of days from a Date" do
+    d = Date.civil(2007, 4, 19).-(-13)
+    d.should == Date.civil(2007, 5 ,2) 
+  end
+
+  it "should be able to compute the different between two dates" do
+    (Date.civil(2007,2,27) - Date.civil(2007,2,27)).should == 0
+    (Date.civil(2007,2,27) - Date.civil(2007,2,26)).should == 1
+    (Date.civil(2006,2,27) - Date.civil(2007,2,27)).should == -365
+    (Date.civil(2008,2,27) - Date.civil(2007,2,27)).should == 365
+    (Date.civil(2009,2,27) - Date.civil(2008,2,27)).should == 366
+    
+    (Date.civil(2009,2,27) - Date.commercial(2008,2,1)).should == 417
+    (Date.civil(2009,2,27) - Date.jd(2454782)).should == 108
+    (Date.civil(2009,2,27) - Date.ordinal(2008, 10)).should == 414
+    
+    (Date.commercial(2008,2,1) - Date.civil(2008,2,27)).should == -51
+    (Date.commercial(2008,2,1) - Date.jd(2454782)).should == -309
+    (Date.commercial(2008,2,1) - Date.ordinal(2008, 10)).should == -3
+    
+    (Date.jd(2454782) - Date.commercial(2008,2,1)).should == 309
+    (Date.jd(2454782) - Date.civil(2009,2,27)).should == -108
+    (Date.jd(2454782) - Date.ordinal(2008, 10)).should == 306
+    
+    (Date.ordinal(2008, 10) - Date.commercial(2008,2,1)).should == 3
+    (Date.ordinal(2008, 10) - Date.jd(2454782)).should == -306
+    (Date.ordinal(2008, 10) - Date.civil(2009,2,27)).should == -414
+  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) - "hello" }.should raise_error(TypeError)
+    lambda { Date.civil(2007,2,27) - Object.new }.should raise_error(TypeError)
+  end
+  
+end

data/spec/date/ordinal_spec.rb

@@ -0,0 +1,13 @@
+require(File.join(File.dirname(__FILE__), '..', 'date_spec_helper'))
+
+describe "Date#ordinal" do
+
+  it "should be able to construct a Date object from an ordinal date" do
+    lambda { Date.ordinal(1900, 366) }.should raise_error(ArgumentError)
+    lambda { Date.ordinal(1900, 365) }.should_not raise_error(ArgumentError)
+    lambda { Date.ordinal(2000, 366) }.should_not raise_error(ArgumentError)
+    lambda { Date.ordinal(2000, 367) }.should raise_error(ArgumentError)
+    Date.ordinal(2000, 288).should == Date.civil(2000, 10, 14)
+  end
+
+end