home_run 0.9.0-x86-mingw32

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

data/spec/date/minus_spec.rb

@@ -0,0 +1,51 @@
+require File.expand_path('../../spec_helper', __FILE__)
+
+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 be able to compute the difference between a Date and a DateTime" do
+    (Date.civil(2007, 4, 19) - DateTime.civil(2007, 4, 18, 12)).should == 0.5
+  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/next_prev_spec.rb

@@ -0,0 +1,108 @@
+require File.expand_path('../../spec_helper', __FILE__)
+
+ruby_version_is "1.9" do
+  describe "Date#next_day" do
+    it "should add a single day to a Date if no arguments" do
+      (Date.civil(2007,2,27).next_day).should == Date.civil(2007, 2, 28)
+    end
+
+    it "should add the given number of days to a Date if an argument" do
+      (Date.civil(2007,2,27).next_day(2)).should == Date.civil(2007, 3, 1)
+    end
+
+    it "should handle a negative argument by subtracting days" do
+      (Date.civil(2007,2,27).next_day(-2)).should == Date.civil(2007, 2, 25)
+    end
+  end 
+
+  describe "Date#prev_day" do
+    it "should subtract a single day to a Date if no arguments" do
+      (Date.civil(2007,2,27).prev_day).should == Date.civil(2007, 2, 26)
+    end
+
+    it "should subtract the given number of days to a Date if an argument" do
+      (Date.civil(2007,2,27).prev_day(2)).should == Date.civil(2007, 2, 25)
+    end
+
+    it "should handle a negative argument by adding days" do
+      (Date.civil(2007,2,27).prev_day(-2)).should == Date.civil(2007, 3, 1)
+    end
+  end 
+
+  describe "Date#next_month" do
+    it "should add a single month to a Date if no arguments" do
+      (Date.civil(2007,2,27).next_month).should == Date.civil(2007, 3, 27)
+    end
+
+    it "should add the given number of months to a Date if an argument" do
+      (Date.civil(2007,2,27).next_month(2)).should == Date.civil(2007, 4, 27)
+    end
+
+    it "should handle a negative argument by subtracting months" do
+      (Date.civil(2007,2,27).next_month(-2)).should == Date.civil(2006, 12, 27)
+    end
+
+    it "should handle adding a month where the new date is not a valid date" do
+      (Date.civil(2007,1,31).next_month).should == Date.civil(2007, 2, 28)
+      (Date.civil(2008,1,31).next_month).should == Date.civil(2008, 2, 29)
+      (Date.civil(2007,1,31).next_month(3)).should == Date.civil(2007, 4, 30)
+    end
+  end 
+
+  describe "Date#prev_month" do
+    it "should subtract a single month to a Date if no arguments" do
+      (Date.civil(2007,2,27).prev_month).should == Date.civil(2007, 1, 27)
+    end
+
+    it "should subtract the given number of months to a Date if an argument" do
+      (Date.civil(2007,2,27).prev_month(2)).should == Date.civil(2006, 12, 27)
+    end
+
+    it "should handle a negative argument by adding months" do
+      (Date.civil(2007,2,27).prev_month(-2)).should == Date.civil(2007, 4, 27)
+    end
+
+    it "should handle subtracting a month where the new date is not a valid date" do
+      (Date.civil(2007,3,31).prev_month).should == Date.civil(2007, 2, 28)
+      (Date.civil(2008,3,31).prev_month).should == Date.civil(2008, 2, 29)
+      (Date.civil(2007,3,31).prev_month(4)).should == Date.civil(2006, 11, 30)
+    end
+  end 
+
+  describe "Date#next_year" do
+    it "should add a single year to a Date if no arguments" do
+      (Date.civil(2007,2,27).next_year).should == Date.civil(2008, 2, 27)
+    end
+
+    it "should add the given number of years to a Date if an argument" do
+      (Date.civil(2007,2,27).next_year(2)).should == Date.civil(2009, 2, 27)
+    end
+
+    it "should handle a negative argument by subtracting years" do
+      (Date.civil(2007,2,27).next_year(-2)).should == Date.civil(2005, 2, 27)
+    end
+
+    it "should handle adding a year where the new date is not a valid date" do
+      (Date.civil(2008,2,29).next_year).should == Date.civil(2009, 2, 28)
+    end
+  end 
+
+  describe "Date#prev_year" do
+    it "should add a single year to a Date if no arguments" do
+      (Date.civil(2007,2,27).prev_year).should == Date.civil(2006, 2, 27)
+    end
+
+    it "should add the given number of years to a Date if an argument" do
+      (Date.civil(2007,2,27).prev_year(2)).should == Date.civil(2005, 2, 27)
+    end
+
+    it "should handle a negative argument by subtracting years" do
+      (Date.civil(2007,2,27).prev_year(-2)).should == Date.civil(2009, 2, 27)
+    end
+
+    it "should handle adding a year where the new date is not a valid date" do
+      (Date.civil(2008,2,29).prev_year).should == Date.civil(2007, 2, 28)
+    end
+  end 
+
+end

data/spec/date/ordinal_spec.rb

@@ -0,0 +1,83 @@
+require File.expand_path('../../spec_helper', __FILE__)
+
+describe "Date.ordinal" do
+
+  it "should be able to construct a Date object from an ordinal date" do
+    Date.ordinal(1582, 274).should == Date.civil(1582, 10,  1)
+    Date.ordinal(1582, 277).should == Date.civil(1582, 10,  4)
+    Date.ordinal(1582, 288).should == Date.civil(1582, 10, 15)
+    Date.ordinal(1582, 287, Date::ENGLAND).should == Date.civil(1582, 10, 14, Date::ENGLAND)
+  end
+    
+  it "should have defaults and an optional sg value" do
+    Date.ordinal.should == Date.jd
+    Date.ordinal(2008).should == Date.ordinal(2008, 1)
+    Date.ordinal(2008, 1, 1).should == Date.ordinal(2008, 1)
+  end
+  
+  it "should not accept more than 3 arguments" do
+    proc{Date.ordinal(2008, 1, 1, 1)}.should raise_error(ArgumentError)
+  end
+
+  it "raises errors for invalid dates" do
+    lambda { Date.ordinal(2007, 366) }.should raise_error(ArgumentError)
+    lambda { Date.ordinal(2008, 366) }.should_not raise_error(ArgumentError)
+    lambda { Date.ordinal(2008, 367) }.should raise_error(ArgumentError)
+  end
+
+  ruby_version_is "" ... "1.9" do
+    it ".new2 should be the same as ordinal" do
+      Date.new2(2008, 10).should == Date.ordinal(2008, 10)
+    end
+  end
+end
+
+describe "Date.valid_ordinal?" do
+
+  ruby_version_is "" ... "1.9" do
+    it "should be able to determine if the date is a valid ordinal date" do
+      Date.valid_ordinal?(1582, 277).should == Date.civil(1582, 10,  4).jd
+      Date.valid_ordinal?(1582, 278).should == Date.civil(1582, 10,  5).jd
+      Date.valid_ordinal?(1582, 287).should == Date.civil(1582, 10, 14).jd
+      Date.valid_ordinal?(1582, 288).should == Date.civil(1582, 10, 15).jd
+      Date.valid_ordinal?(1582, 287, Date::ENGLAND).should_not == nil
+      Date.valid_ordinal?(1582, 287, Date::ENGLAND).should == Date.civil(1582, 10, 14, Date::ENGLAND).jd
+      
+      Date.valid_ordinal?(2007, 55).should == 2454156
+      Date.valid_ordinal?(2007, 55, 1).should == 2454156
+      Date.valid_ordinal?(2007, 367, 1).should == nil
+    end
+    
+    it "#exist2? should be the same as valid_ordinal?" do
+      Date.exist2?(2007, 55, 1).should == Date.valid_ordinal?(2007, 55)
+    end
+
+    it "should be able to handle negative day numbers" do
+      Date.valid_ordinal?(1582, -89).should == Date.civil(1582, 10,  4).jd
+      Date.valid_ordinal?(1582, -88).should == Date.civil(1582, 10,  5).jd
+      Date.valid_ordinal?(1582, -79).should == Date.civil(1582, 10, 14).jd
+      Date.valid_ordinal?(1582, -78).should == Date.civil(1582, 10, 15).jd
+      Date.valid_ordinal?(2007, -100).should == Date.valid_ordinal?(2007, 266)
+    end
+  end
+
+  ruby_version_is "1.9" do
+    it "should be able to determine if the date is a valid ordinal date" do
+      Date.valid_ordinal?(1582, 277).should == true
+      Date.valid_ordinal?(1582, 278).should == true
+      Date.valid_ordinal?(1582, 287).should == true
+      Date.valid_ordinal?(1582, 288).should == true
+
+      Date.valid_ordinal?(2007, 55).should == true
+      Date.valid_ordinal?(2007, 55, 1).should == true
+      Date.valid_ordinal?(2007, 367, 1).should == false
+    end
+
+    it "should be able to handle negative day numbers" do
+      Date.valid_ordinal?(1582, -79).should == true
+      Date.valid_ordinal?(1582, -78).should == true
+      Date.valid_ordinal?(2007, -100).should == true
+    end
+  end
+
+end