home_run 0.9.0-x86-mswin32-60

data/spec/date/parsing_spec.rb

@@ -0,0 +1,77 @@
+require File.expand_path('../../spec_helper', __FILE__)
+
+ruby_version_is "1.9" do
+  describe "Date parsing methods" do
+    it "._httpdate should parse an HTTP format" do
+      Date._httpdate("Fri, 02 Jan 2009 00:00:00 GMT").should ==
+        {:year=>2009, :mon=>1, :mday=>2, :wday=>5, :hour=>0, :min=>0, :sec=>0, :offset=>0, :zone=>'GMT'}
+    end
+
+    it "._iso8601 should parse an ISO8601 format" do
+      Date._iso8601("2009-01-02").should == {:year=>2009, :mon=>1, :mday=>2}
+    end
+
+    it "._jisx03010 should parse an JIS X 0301 format" do
+      Date._jisx0301("H21.01.02").should == {:year=>2009, :mon=>1, :mday=>2}
+      Date._jisx0301("S63.01.02").should == {:year=>1988, :mon=>1, :mday=>2}
+      Date._jisx0301("T14.01.02").should == {:year=>1925, :mon=>1, :mday=>2}
+      Date._jisx0301("M44.01.02").should == {:year=>1911, :mon=>1, :mday=>2}
+      Date._jisx0301("M06.01.02").should == {:year=>1873, :mon=>1, :mday=>2}
+      Date._jisx0301("1872-01-02").should == {:year=>1872, :mon=>1, :mday=>2}
+      Date._jisx0301("1867-01-02").should == {:year=>1867, :mon=>1, :mday=>2}
+    end
+
+    it "._rfc2822 should parse an RFC2822 format" do
+      Date._rfc2822("Fri, 2 Jan 2009 00:00:00 +0000").should == 
+        {:year=>2009, :mon=>1, :mday=>2, :wday=>5, :hour=>0, :min=>0, :sec=>0, :offset=>0, :zone=>'+0000'}
+    end
+
+    it "._rfc822 should parse an RFC822 format" do
+      Date._rfc822("Fri, 2 Jan 2009 00:00:00 +0000").should == 
+        {:year=>2009, :mon=>1, :mday=>2, :wday=>5, :hour=>0, :min=>0, :sec=>0, :offset=>0, :zone=>'+0000'}
+    end
+
+    it "._rfc3339 should parse an RFC3339 format" do
+      Date._rfc3339("2009-01-02T00:00:00+00:00").should == 
+        {:year=>2009, :mon=>1, :mday=>2, :hour=>0, :min=>0, :sec=>0, :offset=>0, :zone=>'+00:00'}
+    end
+
+    it "._xmlschema should parse an ISO8601 format" do
+      Date._xmlschema("2009-01-02").should == {:year=>2009, :mon=>1, :mday=>2}
+    end
+
+    it ".httpdate should parse an HTTP format" do
+      Date.httpdate("Fri, 02 Jan 2009 00:00:00 GMT").should == Date.new(2009, 1, 2)
+    end
+
+    it ".iso8601 should parse an ISO8601 format" do
+      Date.iso8601("2009-01-02").should == Date.new(2009, 1, 2)
+    end
+
+    it ".jisx03010 should parse an JIS X 0301 format" do
+      Date.jisx0301("H21.01.02").should == Date.new(2009, 1, 2)
+      Date.jisx0301("S63.01.02").should == Date.new(1988, 1, 2)
+      Date.jisx0301("T14.01.02").should == Date.new(1925, 1, 2)
+      Date.jisx0301("M44.01.02").should == Date.new(1911, 1, 2)
+      Date.jisx0301("M06.01.02").should == Date.new(1873, 1, 2)
+      Date.jisx0301("1872-01-02").should == Date.new(1872, 1, 2)
+      Date.jisx0301("1867-01-02").should == Date.new(1867, 1, 2)
+    end
+
+    it ".rfc2822 should parse an RFC2822 format" do
+      Date.rfc2822("Fri, 2 Jan 2009 00:00:00 +0000").should == Date.new(2009, 1, 2)
+    end
+
+    it ".rfc822 should parse an RFC822 format" do
+      Date.rfc822("Fri, 2 Jan 2009 00:00:00 +0000").should == Date.new(2009, 1, 2)
+    end
+
+    it ".rfc3339 should parse an RFC3339 format" do
+      Date.rfc3339("2009-01-02T00:00:00+00:00").should == Date.new(2009, 1, 2)
+    end
+
+    it ".xmlschema should parse an ISO8601 format" do
+      Date.xmlschema("2009-01-02").should == Date.new(2009, 1, 2)
+    end
+  end
+end

data/spec/date/relationship_spec.rb

@@ -0,0 +1,28 @@
+require File.expand_path('../../spec_helper', __FILE__)
+
+describe "Date#===" do
+
+  it "should be true for the two same dates" do
+    (Date.civil(2000, 04, 06) === Date.civil(2000, 04, 06)).should == true
+  end
+
+  it "should be true if comparison is a DateTime on the same date" do
+    (Date.civil(2000, 04, 06) === DateTime.civil(2000, 04, 06, 10)).should == true
+  end
+
+  it "should be true if comparison is a Numeric with the same integer value as JD" do
+    (Date.civil(2000, 04, 06) === Date.civil(2000, 04, 06).jd).should == true
+  end
+  
+  it "should be false for different dates" do
+    (Date.civil(2000, 04, 05) === Date.civil(2000, 04, 06)).should == false
+  end
+  
+  it "should be false if comparison is a DateTime with a different date" do
+    (Date.civil(2000, 04, 06) === DateTime.civil(2000, 04, 07, 10)).should == false
+  end
+
+  it "should be false if comparison is a Numeric with the different integer value as JD" do
+    (Date.civil(2000, 04, 06) === Date.civil(2000, 04, 07).jd).should == false
+  end
+end

data/spec/date/step_spec.rb

@@ -0,0 +1,109 @@
+require File.expand_path('../../spec_helper', __FILE__)
+
+describe "Date#step" do
+  
+  it "should be able to step forward in time" do
+    ds    = Date.civil(2008, 10, 11)
+    de    = Date.civil(2008,  9, 29)
+    count = 0
+    de.step(ds) do |d|
+      d.should <= ds
+      d.should >= de
+      count += 1
+    end.should == de
+    count.should == 13
+
+    count = 0
+    de.step(ds, 5) do |d|
+      d.should <= ds
+      d.should >= de
+      count += 1
+    end.should == de
+    count.should == 3
+
+    count = 0
+    ds.step(de) do |d|; count += 1; end.should == ds
+    count.should == 0
+
+  end
+  
+  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.should == ds
+    count.should == 17
+
+    count = 0
+    ds.step(de, -5) do |d|
+      d.should <= ds
+      d.should >= de
+      count += 1
+    end.should == ds
+    count.should == 4
+
+    count = 0
+    de.step(ds, -1) do |d|; count += 1; end.should == de
+    count.should == 0
+    
+  end
+  
+  it "should yield once if the dates are the same, regardless of step" do
+    ds = Date.civil(2008, 10, 11)
+    count = 0
+    ds.step(ds, 1) do |d|
+      d.should == ds
+      count += 1
+    end.should == ds
+    count.should == 1
+
+    count = 0
+    ds.step(ds, 0) do |d|
+      d.should == ds
+      count += 1
+    end.should == ds
+    count.should == 1
+
+    count = 0
+    ds.step(ds, -1) do |d|
+      d.should == ds
+      count += 1
+    end.should == ds
+    count.should == 1
+  end
+  
+  it "should not yield if the target date is greater than the receiver, and step is not positive" do
+    ds = Date.civil(2008, 10, 11)
+    count = 0
+    ds.step(ds.next, 0) do |d|
+      count += 1
+    end.should == ds
+    count.should == 0
+
+    count = 0
+    ds.step(ds.next, -1) do |d|
+      count += 1
+    end.should == ds
+    count.should == 0
+  end
+  
+  it "should not yield if the target date is less than the receiver, and step is not negative" do
+    ds = Date.civil(2008, 10, 11)
+    count = 0
+    ds.next.step(ds, 0) do |d|
+      count += 1
+    end.should == ds.next
+    count.should == 0
+
+    count = 0
+    ds.next.step(ds, 1) do |d|
+      count += 1
+    end.should == ds.next
+    count.should == 0
+  end
+  
+end

data/spec/date/strftime_spec.rb

@@ -0,0 +1,223 @@
+require File.expand_path('../../spec_helper', __FILE__)
+
+describe "Date#strftime" do
+
+  it "should be able to print the date" do
+    Date.civil(2000, 4, 6).strftime.should == "2000-04-06"
+    Date.civil(2000, 4, 6).strftime.should == Date.civil(2000, 4, 6).to_s
+  end
+
+  it "should be able to print the full day name" do
+    Date.civil(2000, 4, 6).strftime("%A").should == "Thursday"
+  end
+
+  it "should be able to print the short day name" do
+    Date.civil(2000, 4, 6).strftime("%a").should == "Thu"
+  end
+
+  it "should be able to print the full month name" do
+    Date.civil(2000, 4, 6).strftime("%B").should == "April"
+  end
+
+  it "should be able to print the short month name" do
+    Date.civil(2000, 4, 6).strftime("%b").should == "Apr"
+    Date.civil(2000, 4, 6).strftime("%h").should == "Apr"
+    Date.civil(2000, 4, 6).strftime("%b").should == Date.civil(2000, 4, 6).strftime("%h")
+  end
+
+  it "should be able to print the century" do
+    Date.civil(2000, 4, 6).strftime("%C").should == "20"
+  end
+
+  it "should be able to print the month day with leading zeroes" do
+    Date.civil(2000, 4, 6).strftime("%d").should == "06"
+  end
+
+  it "should be able to print the month day with leading spaces" do
+    Date.civil(2000, 4, 6).strftime("%e").should == " 6"
+  end
+
+  it "should be able to print the commercial year with leading zeroes" do
+    Date.civil(2000, 4, 6).strftime("%G").should == "2000"
+    Date.civil( 200, 4, 6).strftime("%G").should == "0200"
+  end
+
+  it "should be able to print the commercial year with only two digits" do
+    Date.civil(2000, 4, 6).strftime("%g").should == "00"
+    Date.civil( 200, 4, 6).strftime("%g").should == "00"
+  end
+
+  it "should be able to print the hour with leading zeroes (hour is always 00)" do
+    Date.civil(2000, 4, 6).strftime("%H").should == "00"
+  end
+
+  it "should be able to print the hour in 12 hour notation with leading zeroes" do
+    Date.civil(2000, 4, 6).strftime("%I").should == "12"
+  end
+
+  it "should be able to print the year day with leading zeroes" do
+    Date.civil(2000, 4, 6).strftime("%j").should == "097"
+  end
+
+  it "should be able to print the hour in 24 hour notation with leading spaces" do
+    Date.civil(2000, 4, 6).strftime("%k").should == " 0"
+  end
+
+  it "should be able to print the hour in 12 hour notation with leading spaces" do
+    Date.civil(2000, 4, 6).strftime("%l").should == "12"
+  end
+  
+  it "should be able to print the milliseconds of the second with leading zeroes" do
+    Date.civil(2000, 4, 6).strftime("%L").should == "000"
+  end
+  
+  it "should be able to print the minutes with leading zeroes" do
+    Date.civil(2000, 4, 6).strftime("%M").should == "00"
+  end
+
+  it "should be able to print the month with leading zeroes" do
+    Date.civil(2000, 4, 6).strftime("%m").should == "04"
+  end
+
+  it "should be able to print the nanoseconds of the second with leading zeroes" do
+    Date.civil(2000, 4, 6).strftime("%N").should == "000000000"
+  end
+  
+  it "should be able to add a newline" do
+    Date.civil(2000, 4, 6).strftime("%n").should == "\n"
+  end
+
+  it "should be able to show AM/PM" do
+    Date.civil(2000, 4, 6).strftime("%P").should == "am"
+  end
+
+  it "should be able to show am/pm" do
+    Date.civil(2000, 4, 6).strftime("%p").should == "AM"
+  end
+
+  it "should be able to show the number of milliseconds since the unix epoch" do
+    Date.civil(2000, 4, 6).strftime("%Q").should == "954979200000"
+    Date.civil(3000, 4, 6).strftime("%Q").should == "32511888000000"
+  end
+  
+  it "should be able to show the number of seconds with leading zeroes" do
+    Date.civil(2000, 4, 6).strftime("%S").should == "00"
+  end
+
+  it "should be able to show the number of seconds since the unix epoch" do
+    Date.civil(2000, 4, 6).strftime("%s").should == "954979200"
+    Date.civil(3000, 4, 6).strftime("%s").should == "32511888000"
+  end
+  
+  it "should be able to add a tab" do
+    Date.civil(2000, 4, 6).strftime("%t").should == "\t"
+  end
+
+  it "should be able to show the week number with the week starting on sunday and monday" do
+    Date.civil(2000, 4, 6).strftime("%U").should == "14"
+    Date.civil(2000, 4, 6).strftime("%W").should == "14"
+    Date.civil(2000, 4, 6).strftime("%U").should == Date.civil(2000, 4, 6).strftime("%W")
+    Date.civil(2000, 4, 9).strftime("%U").should == "15"
+    Date.civil(2000, 4, 9).strftime("%W").should == "14"
+    Date.civil(2000, 4, 9).strftime("%U").should_not == Date.civil(2000, 4, 9).strftime("%W")
+  end
+  
+  it "should be able to show the commercial week day" do
+    Date.civil(2000, 4,  9).strftime("%u").should == "7"
+    Date.civil(2000, 4, 10).strftime("%u").should == "1"
+  end
+
+  it "should be able to show the commercial week" do
+    Date.civil(2000, 4,  9).strftime("%V").should == "14"
+    Date.civil(2000, 4, 10).strftime("%V").should == "15"
+  end
+  
+  it "should be able to show the week day" do
+    Date.civil(2000, 4,  9).strftime("%w").should == "0"
+    Date.civil(2000, 4, 10).strftime("%w").should == "1"
+  end
+
+  it "should be able to show the year in YYYY format" do
+    Date.civil(2000, 4,  9).strftime("%Y").should == "2000"
+  end
+
+  it "should be able to show the year in YY format" do
+    Date.civil(2000, 4,  9).strftime("%y").should == "00"
+  end
+
+  it "should be able to show the timezone of the date with a : separator" do
+    Date.civil(2000, 4,  9).strftime("%Z").should == "+00:00"
+  end
+
+  it "should be able to show the timezone of the date with a : separator" do
+    Date.civil(2000, 4,  9).strftime("%z").should == "+0000"
+  end
+
+  it "should be able to escape the % character" do
+    Date.civil(2000, 4,  9).strftime("%%").should == "%"
+  end
+  
+  it "should remove % from other %X sequences if it doesn't have a conversion" do
+    Date.civil(2000, 4,  9).strftime("%5").should == "5"
+    Date.civil(2000, 4,  9).strftime("%f").should == "f"
+  end
+  
+  it "should leave other text alone if it doesn't have a conversion" do
+    Date.civil(2000, 4,  9).strftime("15").should == "15"
+  end
+  
+  ############################
+  # Specs that combine stuff #
+  ############################
+
+  it "should be able to print the date in full" do
+    Date.civil(2000, 4, 6).strftime("%c").should == "Thu Apr  6 00:00:00 2000"
+    Date.civil(2000, 4, 6).strftime("%c").should == Date.civil(2000, 4, 6).strftime('%a %b %e %H:%M:%S %Y')
+  end
+
+  it "should be able to print the date with slashes" do
+    Date.civil(2000, 4, 6).strftime("%D").should == "04/06/00"
+    Date.civil(2000, 4, 6).strftime("%D").should == Date.civil(2000, 4, 6).strftime('%m/%d/%y')  
+  end
+
+  it "should be able to print the date as YYYY-MM-DD" do
+    Date.civil(2000, 4, 6).strftime("%F").should == "2000-04-06"
+    Date.civil(2000, 4, 6).strftime("%F").should == Date.civil(2000, 4, 6).strftime('%Y-%m-%d')
+  end
+
+  it "should be able to show HH:MM" do
+    Date.civil(2000, 4, 6).strftime("%R").should == "00:00"
+    Date.civil(2000, 4, 6).strftime("%R").should == Date.civil(2000, 4, 6).strftime('%H:%M')
+  end
+
+  it "should be able to show HH:MM:SS AM/PM" do
+    Date.civil(2000, 4, 6).strftime("%r").should == "12:00:00 AM"
+    Date.civil(2000, 4, 6).strftime("%r").should == Date.civil(2000, 4, 6).strftime('%I:%M:%S %p')
+  end
+
+  it "should be able to show HH:MM:SS" do
+    Date.civil(2000, 4, 6).strftime("%T").should == "00:00:00"
+    Date.civil(2000, 4, 6).strftime("%T").should == Date.civil(2000, 4, 6).strftime('%H:%M:%S')
+  end
+  
+  it "should be able to show the commercial week" do
+    Date.civil(2000, 4,  9).strftime("%v").should == " 9-Apr-2000"
+    Date.civil(2000, 4,  9).strftime("%v").should == Date.civil(2000, 4,  9).strftime('%e-%b-%Y')
+  end
+  
+  it "should be able to show HH:MM:SS" do
+    Date.civil(2000, 4, 6).strftime("%X").should == "00:00:00"
+    Date.civil(2000, 4, 6).strftime("%X").should == Date.civil(2000, 4, 6).strftime('%H:%M:%S')
+  end
+
+  it "should be able to show MM/DD/YY" do
+    Date.civil(2000, 4, 6).strftime("%x").should == "04/06/00"
+    Date.civil(2000, 4, 6).strftime("%x").should == Date.civil(2000, 4, 6).strftime('%m/%d/%y')
+  end
+  
+  it "should be able to show a full notation" do
+    Date.civil(2000, 4,  9).strftime("%+").should == "Sun Apr  9 00:00:00 +00:00 2000"
+    Date.civil(2000, 4,  9).strftime("%+").should == Date.civil(2000, 4,  9).strftime('%a %b %e %H:%M:%S %Z %Y')
+  end
+
+end

data/spec/date/strptime_spec.rb

@@ -0,0 +1,201 @@
+require File.expand_path('../../spec_helper', __FILE__)
+
+describe "Date#strptime" do
+
+  it "._strptime should not accept less than 1 arguments" do
+    proc{Date._strptime}.should raise_error(ArgumentError)
+  end
+
+  it "._strptime should not accept more than 2 arguments" do
+    proc{Date._strptime('2008-10-11', '%Y-%m-%d', '1')}.should raise_error(ArgumentError)
+  end
+
+  it "._strptime should be a hash of values" do
+    Date._strptime('2008-10-11').should == {:year=>2008, :mon=>10, :mday=>11}
+    Date._strptime('2008-10-11', '%Y-%m-%d').should == {:year=>2008, :mon=>10, :mday=>11}
+  end
+  
+  it "should have defaults and an optional sg value" do
+    Date.strptime.should == Date.jd
+    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)
+  end
+
+  it "raises errors for invalid dates" do
+    lambda { Date.strptime("") }.should raise_error(ArgumentError)
+    lambda { Date.strptime("", "") }.should raise_error(ArgumentError)
+    lambda { Date.strptime("2009-02-29") }.should raise_error(ArgumentError)
+  end
+
+  it "uses the default format when not given a date format" do
+    Date.strptime("2000-04-06").should == Date.civil(2000, 4, 6)
+    Date.civil(2000, 4, 6).strftime.should == Date.civil(2000, 4, 6).to_s
+  end
+
+  it "parses a full day name" do
+    d = Date.today
+    expected_date = Date.commercial(d.cwyear, d.cweek, 4)
+    # strptime assumed week that start on sunday, not monday
+    expected_date += 7 if d.cwday == 7
+    Date.strptime("Thursday", "%A").should == expected_date
+  end
+
+  it "parses a short day name" do
+    d = Date.today
+    expected_date = Date.commercial(d.cwyear, d.cweek, 4)
+    # strptime assumed week that start on sunday, not monday
+    expected_date += 7 if d.cwday == 7
+    Date.strptime("Thu", "%a").should == expected_date
+  end
+
+  it "parses only the short part of the day name" do
+    Date._strptime("Friday", "%aday").should == {:wday=>5}
+  end
+
+  it "parses a full month name" do
+    d = Date.today
+    Date.strptime("April", "%B").should == Date.civil(d.year, 4, 1)
+  end
+
+  it "parses a short month name" do
+    d = Date.today
+    Date.strptime("Apr", "%b").should == Date.civil(d.year, 4, 1)
+    Date.strptime("Apr", "%h").should == Date.civil(d.year, 4, 1)
+  end
+
+  it "parses only the short part of the month name" do
+    d = Date.today
+    Date.strptime("April", "%bil").should == Date.civil(d.year, 4, 1)
+    Date.strptime("April", "%hil").should == Date.civil(d.year, 4, 1)
+  end
+
+  it "parses a century" do
+    Date.strptime("06 20", "%y %C").should == Date.civil(2006, 1, 1)
+  end
+
+  it "parses a month day with leading zeroes" do
+    d = Date.today
+    Date.strptime("06", "%d").should == Date.civil(d.year, d.month, 6)
+  end
+
+  it "parses a month day with leading spaces" do
+    d = Date.today
+    Date.strptime(" 6", "%e").should == Date.civil(d.year, d.month, 6)
+  end
+
+  it "parses a commercial year with leading zeroes" do
+    Date.strptime("2000", "%G").should == Date.civil(2000,  1,  3)
+    Date.strptime("2002", "%G").should == Date.civil(2001, 12, 31)
+  end
+
+  it "parses a commercial year with only two digits" do
+    Date.strptime("68", "%g").should == Date.civil(2068,  1,  2)
+    Date.strptime("69", "%g").should == Date.civil(1968, 12, 30)
+  end
+
+  it "parses a year day with leading zeroes" do
+    d = Date.today
+    if Date.gregorian_leap?(Date.today.year)
+      Date.strptime("097", "%j").should == Date.civil(d.year, 4, 6)
+    else
+      Date.strptime("097", "%j").should == Date.civil(d.year, 4, 7)
+    end
+  end
+
+  it "parses a month with leading zeroes" do
+    d = Date.today
+    Date.strptime("04", "%m").should == Date.civil(d.year, 4, 1)
+  end
+  
+  it "should be able to parse the number of seconds since the unix epoch" do
+    Date.strptime("954979200000", "%Q").should == Date.civil(2000, 4, 6)
+    Date.strptime("32511888000000", "%Q").should == Date.civil(3000, 4, 6)
+  end
+  
+  it "should be able to parse the number of seconds since the unix epoch" do
+    Date.strptime("954979200", "%s").should == Date.civil(2000, 4, 6)
+    Date.strptime("32511888000", "%s").should == Date.civil(3000, 4, 6)
+  end
+  
+  it "should be able to pase the commercial day" do
+    Date.strptime("1", "%u").should == Date.commercial(Date.today.year, 1, 1)
+    Date.strptime("15 3", "%V %u").should == Date.commercial(Date.today.year, 15, 3)
+  end
+  
+  it "should be able to show the commercial week" do
+    d = Date.commercial(Date.today.year,1,1)
+    Date.strptime("1", "%V").should == d
+    Date.strptime("15", "%V").should == Date.commercial(d.cwyear, 15, 1)
+  end
+
+  it "parses a week number for a week starting on Sunday" do
+    Date.strptime("2010/1", "%Y/%U").should == Date.civil(2010, 1, 3)
+  end
+
+  it "parses a week number for a week starting on Monday" do
+    Date.strptime("2010/1", "%Y/%W").should == Date.civil(2010, 1, 4)
+  end
+
+  it "parses a commercial week day" do
+    Date.strptime("2008 1", "%G %u").should == Date.civil(2007, 12, 31)
+  end
+
+  it "parses a commercial week" do
+    d = Date.commercial(Date.today.cwyear,1,1)
+    Date.strptime("1", "%V").should == d
+    Date.strptime("15", "%V").should == Date.commercial(d.cwyear, 15, 1)
+  end
+
+  it "parses a week day" do
+    d = Date.today
+    Date.strptime("2007 4", "%Y %w").should == Date.civil(2007, 1, 4)
+  end
+
+  it "parses a year in YYYY format" do
+    Date.strptime("2007", "%Y").should == Date.civil(2007, 1, 1)
+  end
+
+  it "parses a year in YY format" do
+    Date.strptime("00", "%y").should == Date.civil(2000, 1, 1)
+  end
+  
+  it "should be able to parse escapes" do
+    Date.strptime("00 % \n \t %1", "%y %% %n %t %%1").should == Date.civil(2000, 1, 1)
+  end
+
+  ############################
+  # Specs that combine stuff #
+  ############################
+
+  it "parses a full date" do
+    Date.strptime("Thu Apr  6 00:00:00 2000", "%c").should == Date.civil(2000, 4, 6)
+    Date.strptime("Thu Apr  6 00:00:00 2000", "%a %b %e %H:%M:%S %Y").should == Date.civil(2000, 4, 6)
+  end
+
+  it "parses a date with slashes" do
+    Date.strptime("04/06/00", "%D").should == Date.civil(2000, 4, 6)
+    Date.strptime("04/06/00", "%m/%d/%y").should == Date.civil(2000, 4, 6)
+  end
+
+  it "parses a date given as YYYY-MM-DD" do
+    Date.strptime("2000-04-06", "%F").should == Date.civil(2000, 4, 6)
+    Date.strptime("2000-04-06", "%Y-%m-%d").should == Date.civil(2000, 4, 6)
+  end
+
+  it "parses a commercial week" do
+    Date.strptime(" 9-Apr-2000", "%v").should == Date.civil(2000, 4, 9)
+    Date.strptime(" 9-Apr-2000", "%e-%b-%Y").should == Date.civil(2000, 4, 9)
+  end
+  
+  it "parses a date given MM/DD/YY" do
+    Date.strptime("04/06/00", "%x").should == Date.civil(2000, 4, 6)
+    Date.strptime("04/06/00", "%m/%d/%y").should == Date.civil(2000, 4, 6)
+  end
+  
+  it "parses a date given in full notation" do
+    Date.strptime("Sun Apr  9 00:00:00 +00:00 2000", "%+").should == Date.civil(2000, 4, 9)
+    Date.strptime("Sun Apr  9 00:00:00 +00:00 2000", "%a %b %e %H:%M:%S %Z %Y").should == Date.civil(2000, 4, 9)
+  end
+
+end

data/spec/date/succ_spec.rb

@@ -0,0 +1,20 @@
+require File.expand_path('../../spec_helper', __FILE__)
+
+describe "Date#succ" do
+  it "should be the next day" do
+    ds    = Date.civil(2008, 10, 11)
+    ds.succ.should == Date.civil(2008, 10, 12)
+    ds    = Date.civil(2008, 10, 31)
+    ds.succ.should == Date.civil(2008, 11, 1)
+    ds    = Date.commercial(2008, 2, 7)
+    ds.succ.should == Date.commercial(2008, 3, 1)
+    ds    = Date.jd(2008)
+    ds.succ.should == Date.jd(2009)
+    ds    = Date.ordinal(2008, 366)
+    ds.succ.should == Date.ordinal(2009, 1)
+  end
+
+  it "should be aliased as next" do
+    Date.civil(2008, 10, 11).next.should == Date.civil(2008, 10, 12)
+  end
+end

data/spec/date/today_spec.rb

@@ -0,0 +1,15 @@
+require File.expand_path('../../spec_helper', __FILE__)
+
+describe "Date.today" do
+  it "should be today's date" do
+    t = Time.now
+    d = Date.today
+    d.year.should == t.year
+    d.mon.should == t.mon
+    d.day.should == t.day
+  end
+  
+  it ".today should have an optional sg value" do
+    Date.today(1).should == Date.today
+  end
+end