smart_month 1.0.0

data/test/spec/date/strptime_spec.rb

@@ -0,0 +1,143 @@
+require 'date' 
+require File.dirname(__FILE__) + '/../../spec_helper'
+
+describe "Date#strftime" do
+
+  it "should be able to parse without arguments" do
+    Date.strptime.should == Date.civil(-4712, 1, 1)
+  end
+
+  it "should be able to parse the default 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 "should be able to parse the full day name" do
+    d = Date.today
+    # strptime assumed week that start on sunday, not monday
+    week = d.cweek
+    week += 1 if d.cwday == 7
+    Date.strptime("Thursday", "%A").should == Date.commercial(d.cwyear, week, 4)
+  end
+
+  it "should be able to parse the short day name" do
+    d = Date.today
+    # strptime assumed week that start on sunday, not monday
+    week = d.cweek
+    week += 1 if d.cwday == 7
+    Date.strptime("Thu", "%a").should == Date.commercial(d.cwyear, week, 4)
+  end
+
+  it "should be able to parse the full month name" do
+    d = Date.today
+    Date.strptime("April", "%B").should == Date.civil(d.year, 4, 1)
+  end
+
+  it "should be able to parse the 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 "should be able to parse the century" do
+    Date.strptime("06 20", "%y %C").should == Date.civil(2006, 1, 1)
+  end
+
+  it "should be able to parse the month day with leading zeroes" do
+    d = Date.today
+    Date.strptime("06", "%d").should == Date.civil(d.year, d.month, 6)
+  end
+
+  it "should be able to parse the month day with leading spaces" do
+    d = Date.today
+    Date.strptime(" 6", "%e").should == Date.civil(d.year, d.month, 6)
+  end
+
+  it "should be able to parse the 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 "should be able to parse the 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 "should be able to parse the 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 "should be able to parse the 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 show the week number with the week starting on sunday and monday" do
+    d = Date.today
+    Date.strptime("14", "%U").should == Date.commercial(d.cwyear, 14, 7)
+    Date.strptime("14", "%W").should == Date.commercial(d.cwyear, 15, 7)
+  end
+  
+  it "should be able to show the commercial week day" do
+    Date.strptime("2008 1", "%G %u").should == Date.civil(2007, 12, 31)
+  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 "should be able to show the week day" do
+    d = Date.today
+    Date.strptime("2007 4", "%Y %w").should == Date.civil(2007, 1, 4)
+  end
+
+  it "should be able to show the year in YYYY format" do
+    Date.strptime("2007", "%Y").should == Date.civil(2007, 1, 1)
+  end
+
+  it "should be able to show the year in YY format" do
+    Date.strptime("00", "%y").should == Date.civil(2000, 1, 1)
+  end
+
+  ############################
+  # Specs that combine stuff #
+  ############################
+
+  it "should be able to parse the date in full" 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 "should be able to parse the 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 "should be able to parse the date 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 "should be able to show the 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 "should be able to show 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 "should be able to show a 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/test/spec/date/upto_spec.rb

@@ -0,0 +1,18 @@
+require 'date' 
+require File.dirname(__FILE__) + '/../../spec_helper'
+
+describe "Date#upto" 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.upto(ds) do |d|
+      d.should <= ds
+      d.should >= de
+      count += 1
+    end
+    count.should == 13
+  end
+
+end

data/test/spec/parsedate/parsedate.rb

@@ -0,0 +1,95 @@
+require File.dirname(__FILE__) + "/../../spec_helper"
+require "parsedate"
+
+describe "ParseDate.parsedate" do
+  it "returns Array of 8 nils given an empty String" do
+    ParseDate.parsedate("").should == [nil] * 8
+  end
+
+  it "raises TypeError given nil" do
+    lambda { ParseDate.parsedate(nil) }.should raise_error(TypeError)
+  end
+
+  it "raises NoMethodError given Time" do
+    lambda { ParseDate.parsedate(Time.now) }.should raise_error(NoMethodError)
+  end
+
+  it "returns Array with weekday number, given a full day name" do
+    ParseDate.parsedate("Sunday").should == [nil] * 7 + [0]
+  end
+
+  it "returns Array with weekday number, given a 3 letter day name" do
+    ParseDate.parsedate("mon").should == [nil] * 7 + [1]
+  end
+
+  it "returns Array with weekday number, given a String containing a word starting with day" do
+    ParseDate.parsedate("ignore friday monday ignore").should == [nil] * 7 + [5]
+    ParseDate.parsedate("ignorefriday").should == [nil] * 8
+    ParseDate.parsedate("fridayignore").should == [nil] * 7 + [5]
+    # friday, not monday!
+    ParseDate.parsedate("friends on monday").should == [nil] * 7 + [5]
+  end
+
+  it "returns Array of 8 nils, given a single digit String" do
+    ParseDate.parsedate("8").should == [nil] * 8
+  end
+
+  it "returns Array with day set, given a String of 2 digits" do
+    ParseDate.parsedate("08").should == [nil, nil] + [8] + [nil] * 5
+    ParseDate.parsedate("99").should == [nil, nil] + [99] + [nil] * 5
+  end
+
+  it "returns Array of 8 nils, given a String of 3 digits" do
+    ParseDate.parsedate("100").should == [nil] * 8
+  end
+
+  it "returns Array with month and day set, given a String of 4 digits" do
+    ParseDate.parsedate("1050").should == [nil] + [10,50] + [nil] * 5
+  end
+
+  it "returns Array with year set, given a String of 5 digits" do
+    ParseDate.parsedate("10500").should == [10] + [nil] * 7
+  end
+
+  it "returns Array with date fields set, given a String of 6 digits" do
+    ParseDate.parsedate("105070").should == [10, 50, 70] + [nil] * 5
+  end
+
+  it "returns Array with 4-digit year set, given a String of 7 digits" do
+    ParseDate.parsedate("1050701").should == [1050] + [nil] * 7
+  end
+
+  it "returns Array with date fields set, given a String of 8 digits" do
+    ParseDate.parsedate("10507011").should == [1050, 70, 11] + [nil] * 5
+  end
+
+  it "returns Array of 8 nils, given a odd-sized String of 9 or more digits" do
+    ParseDate.parsedate("123456789").should == [nil] * 8
+    ParseDate.parsedate("12345678901").should == [nil] * 8
+  end
+
+  it "returns Array with date & hour fields set, given a String of 10 digits" do
+    ParseDate.parsedate("1234567890").should == [1234, 56, 78, 90] + [nil] * 4
+  end
+
+  it "returns Array with date, hour & minute fields set, given a String of 12 digits" do
+    ParseDate.parsedate("123456789012").should == [1234, 56, 78, 90, 12] + [nil] * 3
+  end
+
+  it "returns Array with date & time fields set, given a String of 14 digits" do
+    ParseDate.parsedate("12345678901234").should == [1234, 56, 78, 90, 12, 34, nil, nil]
+  end
+
+  it "returns Array with year and month set, given a String like nn-nn" do
+    ParseDate.parsedate("08-09").should == [8,9] + [nil] * 6
+    ParseDate.parsedate("08-09",true).should == [2008,9] + [nil] * 6
+  end
+
+  it "returns Array with day and hour set, given a String like n-nn" do
+    ParseDate.parsedate("8-09").should == [nil,nil] + [9,8] + [nil] * 4
+  end
+  
+  it "returns Array with day and timezone set, given a String like nn-n" do
+    ParseDate.parsedate("08-9").should == [nil,nil,8,nil,nil,nil,"-9",nil]
+  end
+end

data/test/spec/time/httpdate_spec.rb

@@ -0,0 +1,21 @@
+require File.dirname(__FILE__) + '/../../spec_helper'
+require 'time'
+
+describe "Time.httpdate" do
+  it "parses RFC-2616 strings" do
+    t = Time.utc(1994, 11, 6, 8, 49, 37)
+    t.should == Time.httpdate("Sun, 06 Nov 1994 08:49:37 GMT")
+    
+    # relies on Time.parse (not yet implemented)
+    # t.should == Time.httpdate("Sunday, 06-Nov-94 08:49:37 GMT")
+    
+    t.should == Time.httpdate("Sun Nov  6 08:49:37 1994")
+    Time.utc(1995, 11, 15, 6, 25, 24).should == Time.httpdate("Wed, 15 Nov 1995 06:25:24 GMT")
+    Time.utc(1995, 11, 15, 4, 58, 8).should == Time.httpdate("Wed, 15 Nov 1995 04:58:08 GMT")
+    Time.utc(1994, 11, 15, 8, 12, 31).should == Time.httpdate("Tue, 15 Nov 1994 08:12:31 GMT")
+    Time.utc(1994, 12, 1, 16, 0, 0).should == Time.httpdate("Thu, 01 Dec 1994 16:00:00 GMT")
+    Time.utc(1994, 10, 29, 19, 43, 31).should == Time.httpdate("Sat, 29 Oct 1994 19:43:31 GMT")
+    Time.utc(1994, 11, 15, 12, 45, 26).should == Time.httpdate("Tue, 15 Nov 1994 12:45:26 GMT")
+    Time.utc(1999, 12, 31, 23, 59, 59).should == Time.httpdate("Fri, 31 Dec 1999 23:59:59 GMT")   
+  end
+end

data/test/spec/time/iso8601_spec.rb

@@ -0,0 +1,7 @@
+require File.dirname(__FILE__) + '/../../spec_helper'
+require File.dirname(__FILE__) + '/shared/xmlschema'
+require 'time'
+
+describe "Time.xmlschema" do
+  it_behaves_like :time_xmlschema, :iso8601
+end

data/test/spec/time/rfc2822_spec.rb

@@ -0,0 +1,7 @@
+require File.dirname(__FILE__) + '/../../spec_helper'
+require File.dirname(__FILE__) + '/shared/rfc2822'
+require 'time'
+
+describe "Time.rfc2822" do
+  it_behaves_like :time_rfc2822, :rfc2822
+end

data/test/spec/time/rfc822_spec.rb

@@ -0,0 +1,7 @@
+require File.dirname(__FILE__) + '/../../spec_helper'
+require File.dirname(__FILE__) + '/shared/rfc2822'
+require 'time'
+
+describe "Time.rfc822" do
+  it_behaves_like :time_rfc2822, :rfc822
+end

data/test/spec/time/shared/rfc2822.rb

@@ -0,0 +1,65 @@
+describe :time_rfc2822, :shared => true do
+  it "parses RFC-822 strings" do
+    t1 = (Time.utc(1976, 8, 26, 14, 30) + 4 * 3600)
+    t2 = Time.rfc2822("26 Aug 76 14:30 EDT")
+    t1.should == t2
+
+    t3 = Time.utc(1976, 8, 27, 9, 32) + 7 * 3600
+    t4 = Time.rfc2822("27 Aug 76 09:32 PDT")
+    t3.should == t4
+  end
+
+  it "parses RFC-2822 strings" do
+    t1 = Time.utc(1997, 11, 21, 9, 55, 6) + 6 * 3600
+    t2 = Time.rfc2822("Fri, 21 Nov 1997 09:55:06 -0600")
+    t1.should == t2
+
+    t3 = Time.utc(2003, 7, 1, 10, 52, 37) - 2 * 3600
+    t4 = Time.rfc2822("Tue, 1 Jul 2003 10:52:37 +0200")
+    t3.should == t4
+
+    t5 = Time.utc(1997, 11, 21, 10, 1, 10) + 6 * 3600
+    t6 = Time.rfc2822("Fri, 21 Nov 1997 10:01:10 -0600")
+    t5.should == t6
+
+    t7 = Time.utc(1997, 11, 21, 11, 0, 0) + 6 * 3600
+    t8 = Time.rfc2822("Fri, 21 Nov 1997 11:00:00 -0600")
+    t7.should == t8
+
+    t9 = Time.utc(1997, 11, 24, 14, 22, 1) + 8 * 3600
+    t10 = Time.rfc2822("Mon, 24 Nov 1997 14:22:01 -0800")
+    t9.should == t10
+
+    begin
+      Time.at(-1)
+    rescue ArgumentError
+      # ignore
+    else
+      t11 = Time.utc(1969, 2, 13, 23, 32, 54) + 3 * 3600 + 30 * 60
+      t12 = Time.rfc2822("Thu, 13 Feb 1969 23:32:54 -0330")
+      t11.should == t12
+
+      t13 = Time.utc(1969, 2, 13, 23, 32, 0) + 3 * 3600 + 30 * 60
+      t14 = Time.rfc2822(" Thu,
+      13
+        Feb
+          1969
+      23:32
+               -0330 (Newfoundland Time)")
+      t13.should == t14
+    end
+
+    t15 = Time.utc(1997, 11, 21, 9, 55, 6)
+    t16 = Time.rfc2822("21 Nov 97 09:55:06 GMT")
+    t15.should == t16
+
+    t17 = Time.utc(1997, 11, 21, 9, 55, 6) + 6 * 3600
+    t18 = Time.rfc2822("Fri, 21 Nov 1997 09 :   55  :  06 -0600")
+    t17.should == t18
+
+    lambda {
+      # inner comment is not supported.
+      Time.rfc2822("Fri, 21 Nov 1997 09(comment):   55  :  06 -0600")
+    }.should raise_error(ArgumentError)
+  end
+end

data/test/spec/time/shared/xmlschema.rb

@@ -0,0 +1,53 @@
+describe :time_xmlschema, :shared => true do
+  it "parses ISO-8601 strings" do
+    t = Time.utc(1985, 4, 12, 23, 20, 50, 520000)
+    s = "1985-04-12T23:20:50.52Z"
+    t.should == Time.xmlschema(s)
+    #s.should == t.xmlschema(2)
+
+    t = Time.utc(1996, 12, 20, 0, 39, 57)
+    s = "1996-12-19T16:39:57-08:00"
+    t.should == Time.xmlschema(s)
+    # There is no way to generate time string with arbitrary timezone.
+    s = "1996-12-20T00:39:57Z"
+    t.should == Time.xmlschema(s)
+    #assert_equal(s, t.xmlschema)
+
+    t = Time.utc(1990, 12, 31, 23, 59, 60)
+    s = "1990-12-31T23:59:60Z"
+    t.should == Time.xmlschema(s)
+    # leap second is representable only if timezone file has it.
+    s = "1990-12-31T15:59:60-08:00"
+    t.should == Time.xmlschema(s)
+
+    begin
+      Time.at(-1)
+    rescue ArgumentError
+      # ignore
+    else
+      t = Time.utc(1937, 1, 1, 11, 40, 27, 870000)
+      s = "1937-01-01T12:00:27.87+00:20"
+      t.should == Time.xmlschema(s)
+    end
+
+    # more
+
+    # (Time.utc(1999, 5, 31, 13, 20, 0) + 5 * 3600).should == Time.xmlschema("1999-05-31T13:20:00-05:00")
+    # (Time.local(2000, 1, 20, 12, 0, 0)).should == Time.xmlschema("2000-01-20T12:00:00")
+    # (Time.utc(2000, 1, 20, 12, 0, 0)).should == Time.xmlschema("2000-01-20T12:00:00Z")
+    # (Time.utc(2000, 1, 20, 12, 0, 0) - 12 * 3600).should == Time.xmlschema("2000-01-20T12:00:00+12:00")
+    # (Time.utc(2000, 1, 20, 12, 0, 0) + 13 * 3600).should == Time.xmlschema("2000-01-20T12:00:00-13:00")
+    # (Time.utc(2000, 3, 4, 23, 0, 0) - 3 * 3600).should == Time.xmlschema("2000-03-04T23:00:00+03:00")
+    # (Time.utc(2000, 3, 4, 20, 0, 0)).should == Time.xmlschema("2000-03-04T20:00:00Z")
+    # (Time.local(2000, 1, 15, 0, 0, 0)).should == Time.xmlschema("2000-01-15T00:00:00")
+    # (Time.local(2000, 2, 15, 0, 0, 0)).should == Time.xmlschema("2000-02-15T00:00:00")
+    # (Time.local(2000, 1, 15, 12, 0, 0)).should == Time.xmlschema("2000-01-15T12:00:00")
+    # (Time.utc(2000, 1, 16, 12, 0, 0)).should == Time.xmlschema("2000-01-16T12:00:00Z")
+    # (Time.local(2000, 1, 1, 12, 0, 0)).should == Time.xmlschema("2000-01-01T12:00:00")
+    # (Time.utc(1999, 12, 31, 23, 0, 0)).should == Time.xmlschema("1999-12-31T23:00:00Z")
+    # (Time.local(2000, 1, 16, 12, 0, 0)).should == Time.xmlschema("2000-01-16T12:00:00")
+    # (Time.local(2000, 1, 16, 0, 0, 0)).should == Time.xmlschema("2000-01-16T00:00:00")
+    # (Time.utc(2000, 1, 12, 12, 13, 14)).should == Time.xmlschema("2000-01-12T12:13:14Z")
+    # (Time.utc(2001, 4, 17, 19, 23, 17, 300000)).should == Time.xmlschema("2001-04-17T19:23:17.3Z")
+  end
+end

data/test/spec/time/xmlschema_spec.rb

@@ -0,0 +1,7 @@
+require File.dirname(__FILE__) + '/../../spec_helper'
+require File.dirname(__FILE__) + '/shared/xmlschema'
+require 'time'
+
+describe "Time.xmlschema" do
+  it_behaves_like :time_xmlschema, :xmlschema
+end

data/test/spec_helper.rb

@@ -0,0 +1,56 @@
+# quickly load smart month into the test spec
+$LOAD_PATH << File.dirname(__FILE__) + '/../'
+require 'lib/smart_month'
+
+unless ENV['MSPEC_RUNNER']
+  begin
+    require "pp"
+    require 'mspec/version'
+    require 'mspec/helpers'
+    require 'mspec/guards'
+    require 'mspec/runner/shared'
+    require 'mspec/matchers/be_ancestor_of'
+    require 'mspec/matchers/output'
+    require 'mspec/matchers/output_to_fd'
+    require 'mspec/matchers/complain'
+    require 'mspec/matchers/equal_element'
+    require 'mspec/matchers/equal_utf16'
+    require 'mspec/matchers/match_yaml'
+
+
+
+    # Code to setup HOME directory correctly on Windows
+    # This duplicates Ruby 1.9 semantics for defining HOME
+    platform_is :windows do
+      if ENV['HOME']
+        ENV['HOME'] = ENV['HOME'].tr '\\', '/'
+      elsif ENV['HOMEDIR'] && ENV['HOMEDRIVE']
+        ENV['HOME'] = File.join(ENV['HOMEDRIVE'], ENV['HOMEDIR'])
+      elsif ENV['HOMEDIR']
+        ENV['HOME'] = ENV['HOMEDIR']
+      elsif ENV['HOMEDRIVE']
+        ENV['HOME'] = ENV['HOMEDRIVE']
+      elsif ENV['USERPROFILE']
+        ENV['HOME'] = ENV['USERPROFILE']
+      else
+        puts "No suitable HOME environment found. This means that all of"
+        puts "HOME, HOMEDIR, HOMEDRIVE, and USERPROFILE are not set"
+        exit 1
+      end
+    end
+
+    TOLERANCE = 0.00003 unless Object.const_defined?(:TOLERANCE)
+  rescue LoadError
+    puts "Please install the MSpec gem to run the specs."
+    exit 1
+  end
+end
+
+minimum_version = "1.5.9"
+unless MSpec::VERSION >= minimum_version
+  puts "Please install MSpec version >= #{minimum_version} to run the specs"
+  exit 1
+end
+
+$VERBOSE = nil unless ENV['OUTPUT_WARNINGS']
+