home_run 0.9.0

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

data/spec/date/parse_spec.rb

@@ -0,0 +1,442 @@
+require File.expand_path('../../spec_helper', __FILE__)
+
+ruby_version_is "" ... "1.9" do
+  describe "Date.zone_to_diff" do
+    it "should return the offset for the given time zone name" do
+      Date.zone_to_diff('PST').should == -28800
+      Date.zone_to_diff('Tokyo').should == 32400
+    end
+
+    it "should return the offset for the given numeric time zone with colons" do
+      Date.zone_to_diff('+08:00').should == 28800
+      Date.zone_to_diff('+08:30').should == 30600
+      Date.zone_to_diff('+08:30:04').should == 30604
+    end
+
+    it "should return the offset for the given numeric time zone with . or ," do
+      Date.zone_to_diff('+08,30').should == 29880
+      Date.zone_to_diff('+08.30').should == 29880
+    end
+
+    it "should return the offset for the given numeric time with all digits" do
+      Date.zone_to_diff('-1').should == -3600
+      Date.zone_to_diff('-10').should == -36000
+      Date.zone_to_diff('-101').should == -3660
+      Date.zone_to_diff('-1010').should == -36600
+      Date.zone_to_diff('-10101').should == -36601
+      Date.zone_to_diff('-101010').should == -36610
+      Date.zone_to_diff('-1010109').should == -36610
+    end
+
+    it "should return 0 if the time zone is not recognized" do
+      Date.zone_to_diff('blah').should == 0
+    end
+  end
+end
+  
+describe "Date.parse" do
+  it "._parse should parse the date string and return a hash" do
+    Date._parse('2008-10-20 11:12:13.0-08:00').should == {:mon=>10, :zone=>'-08:00', :sec=>13, :sec_fraction=>0.0, :year=>2008, :hour=>11, :offset=>-28800, :mday=>20, :min=>12}
+    Date._parse('2008-10-20 11:12:13.0-08:00', true).should == {:mon=>10, :zone=>'-08:00', :sec=>13, :sec_fraction=>0.0, :year=>2008, :hour=>11, :offset=>-28800, :mday=>20, :min=>12}
+  end
+
+  it "._parse should not contain fields in the hash that were guessed" do
+    Date._parse('2008-10-20').should == {:year=>2008, :mday=>20, :mon=>10}
+    Date._parse('11:12:13').should == {:sec=>13, :hour=>11, :min=>12}
+  end
+  
+  it "should have defaults and an optional sg value" do
+    Date.parse.should == Date.jd
+    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)
+  end
+  
+  it "raises errors for invalid dates" do
+    lambda { Date.parse("") }.should raise_error(ArgumentError)
+    lambda { Date.parse("2009-02-29") }.should raise_error(ArgumentError)
+  end
+
+  # The space separator is also different, doesn't work for only numbers
+  it "can parse a day name into a Date object" do
+    d = Date.parse("friday")
+    d.should == Date.commercial(d.cwyear, d.cweek, 5)
+  end
+
+  it "can parse a month name into a Date object" do
+    d = Date.parse("october")
+    d.should == Date.civil(Date.today.year, 10)
+  end
+
+  it "can parse a month day into a Date object" do
+    d = Date.parse("5th")
+    d.should == Date.civil(Date.today.year, Date.today.month, 5)
+  end
+  
+  # Specs using numbers
+  it "can't handle a single digit" do
+    lambda{ Date.parse("1") }.should raise_error(ArgumentError)
+  end
+
+  it "can handle DD as month day number" do
+    d = Date.parse("10")
+    d.should == Date.civil(Date.today.year, Date.today.month, 10)
+  end
+
+  it "can handle DDD as year day number" do
+    d = Date.parse("100")
+    if Date.gregorian_leap?(Date.today.year)
+      d.should == Date.civil(Date.today.year, 4, 9)
+    else
+      d.should == Date.civil(Date.today.year, 4, 10)
+    end
+  end
+
+  it "can handle MMDD as month and day" do
+    d = Date.parse("1108")
+    d.should == Date.civil(Date.today.year, 11, 8)
+  end
+
+  it "can handle YYDDD as year and day number in 1969--2068" do
+    d = Date.parse("10100")
+    d.should == Date.civil(2010, 4, 10)
+  end
+
+  it "can handle YYMMDD as year month and day in 1969--2068" do
+    d = Date.parse("201023")
+    d.should == Date.civil(2020, 10, 23)
+  end
+  
+  it "can handle YYDDD as a 2 digit year and day number" do
+    d = Date.parse("10100", false)
+    d.should == Date.civil(10, 4, 10)
+  end
+
+  it "can handle YYMMDD as 2 digit year month and day" do
+    d = Date.parse("201023", false)
+    d.should == Date.civil(20, 10, 23)
+  end
+
+  it "can handle YYYYDDD as year and day number" do
+    d = Date.parse("1910100")
+    d.should == Date.civil(1910, 4, 10)
+  end
+
+  it "can handle YYYYMMDD as year and day number" do
+    d = Date.parse("19101101")
+    d.should == Date.civil(1910, 11, 1)
+  end
+end
+
+describe :date_parse, :shared => true do
+  it "can parse a mmm-YYYY string into a Date object" do
+    d = Date.parse("feb#{@sep}2008")
+    d.year.should  == 2008
+    d.month.should == 2
+    d.day.should   == 1
+  end
+
+  it "can parse a 'DD mmm YYYY' string into a Date object" do
+    d = Date.parse("23#{@sep}feb#{@sep}2008")
+    d.year.should  == 2008
+    d.month.should == 2
+    d.day.should   == 23
+  end
+
+  it "can parse a 'mmm DD YYYY' string into a Date object" do
+    d = Date.parse("feb#{@sep}23#{@sep}2008")
+    d.year.should  == 2008
+    d.month.should == 2
+    d.day.should   == 23
+
+    d = Date.parse("feb#{@sep}23,#{@sep}2008")
+    d.year.should  == 2008
+    d.month.should == 2
+    d.day.should   == 23
+
+    d = Date.parse("feb#{@sep}23,#{@sep}08")
+    d.year.should  == 2008
+    d.month.should == 2
+    d.day.should   == 23
+  end
+
+  it "can parse a 'YYYY mmm DD' string into a Date object" do
+    d = Date.parse("2008#{@sep}feb#{@sep}23")
+    d.year.should  == 2008
+    d.month.should == 2
+    d.day.should   == 23
+  end
+
+  it "can parse a month name and day into a Date object" do
+    Date.parse("november#{@sep}5th").should == Date.civil(Date.today.year, 11, 5)
+  end
+
+  it "can parse a weekday, month, day, and year into a Date object" do
+    Date.parse("Mon Aug 10 2009").should == Date.civil(2009, 8, 10)
+  end
+
+  it "can parse a month name, day and year into a Date object" do
+    Date.parse("november#{@sep}5th#{@sep}2005").should == Date.civil(2005, 11, 5)
+  end
+
+  it "can parse a year, month name and day into a Date object" do
+    Date.parse("2005#{@sep}november#{@sep}5th").should == Date.civil(2005, 11, 5)
+  end
+
+  it "can parse a year, day and month name into a Date object" do
+    Date.parse("5th#{@sep}november#{@sep}2005").should == Date.civil(2005, 11, 5)
+  end
+
+  it "can handle negative year numbers" do
+    Date.parse("5th#{@sep}november#{@sep}-2005").should == Date.civil(-2005, 11, 5)
+  end
+end
+
+describe :date_parse_us, :shared => true do
+  it "parses a YYYY#{@sep}MM#{@sep}DD string into a Date object" do
+    d = Date.parse("2007#{@sep}10#{@sep}01")
+    d.year.should  == 2007
+    d.month.should == 10
+    d.day.should   == 1
+  end
+
+  ruby_version_is "" ... "1.9" do
+    it "parses a MM#{@sep}DD#{@sep}YYYY string into a Date object" do
+      d = Date.parse("10#{@sep}01#{@sep}2007")
+      d.year.should  == 2007
+      d.month.should == 10
+      d.day.should   == 1
+    end
+
+    it "parses a MM#{@sep}DD#{@sep}YY string into a Date object using the year digits as 20XX" do
+      d = Date.parse("10#{@sep}01#{@sep}07")
+      d.year.should  == 2007
+      d.month.should == 10
+      d.day.should   == 1
+    end
+    
+    it "parses a MM#{@sep}DD#{@sep}YY string into a Date object using the year digits as 20XX" do
+      d = Date.parse("10#{@sep}01#{@sep}07", true)
+      d.year.should  == 2007
+      d.month.should == 10
+      d.day.should   == 1
+    end
+    
+    it "parses a MM#{@sep}DD#{@sep}YY string into a Date object NOT using the year digits as 20XX" do
+      d = Date.parse("10#{@sep}01#{@sep}07", false)
+      d.year.should  == 7
+      d.month.should == 10
+      d.day.should   == 1
+    end
+  end
+
+  ruby_version_is "1.9" do
+    it "parses a DD#{@sep}MM#{@sep}YYYY string into a Date object" do
+      d = Date.parse("10#{@sep}01#{@sep}2007")
+      d.year.should  == 2007
+      d.month.should == 1
+      d.day.should   == 10
+    end
+
+    it "parses a YY#{@sep}MM#{@sep}DD string into a Date object using the year digits as 20XX" do
+      d = Date.parse("10#{@sep}01#{@sep}07")
+      d.year.should  == 2010
+      d.month.should == 1
+      d.day.should   == 7
+    end
+    
+    it "parses a YY#{@sep}MM#{@sep}DD string into a Date object NOT using the year digits as 20XX" do
+      d = Date.parse("10#{@sep}01#{@sep}07", false)
+      d.year.should  == 10
+      d.month.should == 1
+      d.day.should   == 7
+    end
+
+    it "parses a YY#{@sep}MM#{@sep}DD string into a Date object using the year digits as 20XX" do
+      d = Date.parse("10#{@sep}01#{@sep}07", true)
+      d.year.should  == 2010
+      d.month.should == 1
+      d.day.should   == 7
+    end
+  end
+end
+
+describe "Date#parse with '.' separator" do
+  before :all do
+    @sep = '.'
+  end
+
+  it_should_behave_like "date_parse"
+end
+
+describe "Date#parse with '/' separator" do
+  before :all do
+    @sep = '/'
+  end
+
+  it_should_behave_like "date_parse"
+end
+
+describe "Date#parse with ' ' separator" do
+  before :all do
+    @sep = ' '
+  end
+
+  it_should_behave_like "date_parse"
+end
+
+describe "Date#parse with '/' separator US-style" do
+  before :all do
+    @sep = '/'
+  end
+
+  it_should_behave_like "date_parse_us"
+end
+
+ruby_version_is "" ... "1.8.7" do
+  describe "Date#parse with '.' separator US-style" do
+    before :all do
+      @sep = '.'
+    end
+
+    it_should_behave_like "date_parse_us"
+  end
+end
+
+describe "Date#parse with '-' separator EU-style" do
+  # The - separator let's it work like European format, so it as a different spec
+  it "can parse a YYYY-MM-DD string into a Date object" do
+    d = Date.parse("2007-10-01")
+    d.year.should  == 2007
+    d.month.should == 10
+    d.day.should   == 1
+  end
+
+  it "can parse a DD-MM-YYYY string into a Date object" do
+    d = Date.parse("10-01-2007")
+    d.year.should  == 2007
+    d.month.should == 1
+    d.day.should   == 10
+  end
+
+  it "can parse a YY-MM-DD string into a Date object" do
+    d = Date.parse("10-01-07")
+    d.year.should  == 2010
+    d.month.should == 1
+    d.day.should   == 7
+  end
+
+  it "can parse a YY-DD-MM string into a Date object" do
+    d = Date.parse("10-01-07")
+    d.year.should  == 2010
+    d.month.should == 1
+    d.day.should   == 7
+  end
+
+  it "can parse a MM-DD-YY string into a Date object NOT using the year digits as 20XX" do
+    d = Date.parse("10-01-07", false)
+    d.year.should  == 10
+    d.month.should == 1
+    d.day.should   == 7
+  end
+
+  it "can parse a YY-MM-DD string into a Date object using the year digits as 20XX" do
+    d = Date.parse("10-01-07", true)
+    d.year.should  == 2010
+    d.month.should == 1
+    d.day.should   == 7
+  end
+end
+
+ruby_version_is "1.8.7" do
+  describe "Date#parse(.)" do
+    it "parses a YYYY.MM.DD string into a Date object" do
+      d = Date.parse("2007.10.01")
+      d.year.should  == 2007
+      d.month.should == 10
+      d.day.should   == 1
+    end
+
+    it "parses a DD.MM.YYYY string into a Date object" do
+      d = Date.parse("10.01.2007")
+      d.year.should  == 2007
+      d.month.should == 1
+      d.day.should   == 10
+    end
+
+    ruby_version_is "" ... "1.9" do
+      it "parses a YY.MM.DD string into a Date object" do
+        d = Date.parse("10.01.07")
+        d.year.should  == 2010
+        d.month.should == 1
+        d.day.should   == 7
+      end
+    end
+
+    ruby_version_is "1.9" do
+      it "parses a YY.MM.DD string into a Date object" do
+        d = Date.parse("10.01.07")
+        d.year.should  == 2010
+        d.month.should == 1
+        d.day.should   == 7
+      end
+    end
+
+    it "parses a YY.MM.DD string into a Date object using the year digits as 20XX" do
+      d = Date.parse("10.01.07", true)
+      d.year.should  == 2010
+      d.month.should == 1
+      d.day.should   == 7
+    end
+  end
+end
+
+describe "Date::Format::STYLE" do
+  before do
+    @style = Date::Format::STYLE.dup
+  end
+  after do
+    Date::Format::STYLE.replace(@style)
+  end
+
+  it "Can change DD/DD/DD parsing by modifying Format::STYLE[:slash]" do
+    Date::Format::STYLE[:slash] = :ymd
+    d = Date.parse("10/01/07")
+    d.year.should  == 2010
+    d.month.should == 1
+    d.day.should   == 7
+
+    Date::Format::STYLE[:slash] = :mdy
+    d = Date.parse("10/01/07")
+    d.year.should  == 2007
+    d.month.should == 10
+    d.day.should   == 1
+
+    Date::Format::STYLE[:slash] = :dmy
+    d = Date.parse("10/01/07")
+    d.year.should  == 2007
+    d.month.should == 1
+    d.day.should   == 10
+  end
+
+  it "Can change DD.DD.DD parsing by modifying Format::STYLE[:dot]" do
+    Date::Format::STYLE[:dot] = :ymd
+    d = Date.parse("10.01.07")
+    d.year.should  == 2010
+    d.month.should == 1
+    d.day.should   == 7
+
+    Date::Format::STYLE[:dot] = :mdy
+    d = Date.parse("10.01.07")
+    d.year.should  == 2007
+    d.month.should == 10
+    d.day.should   == 1
+
+    Date::Format::STYLE[:dot] = :dmy
+    d = Date.parse("10.01.07")
+    d.year.should  == 2007
+    d.month.should == 1
+    d.day.should   == 10
+  end
+end
+