demingfactor-ri_cal 0.9.0

data/spec/ri_cal/core_extensions/string/conversions_spec.rb

@@ -0,0 +1,78 @@
+#- ©2009 Rick DeNatale, All rights reserved. Refer to the file README.txt for the license
+
+require File.join(File.dirname(__FILE__), %w[.. .. .. spec_helper])
+
+describe RiCal::CoreExtensions::String::Conversions do
+  context "#to_ri_cal_date_time_value" do
+    
+    it "should produce a DateTime property for a valid RFC 2445 datetime string" do
+      "20090304T123456".to_ri_cal_date_time_value.should == RiCal::PropertyValue::DateTime.new(nil, :value => "20090304T123456")
+    end
+    
+    it "should produce a DateTime property for a valid RFC 2445 datetime string with a TZID parameter" do
+      "TZID=America/New_York:20090304T123456".to_ri_cal_date_time_value.should == RiCal::PropertyValue::DateTime.new(nil, :params => {"TZID" => "America/New_York"}, :value => "20090304T123456")
+    end
+    
+    it "should raise an InvalidPropertyValue error if the string is not a valid RFC 2445 datetime string" do
+      lambda {"20090304".to_ri_cal_date_time_value}.should raise_error(RiCal::InvalidPropertyValue)
+    end
+  end
+  
+  context "#to_ri_cal_duration_value" do
+    
+    it "should produce a Duration property for a valid RFC 2445 duration string" do
+      "PT1H".to_ri_cal_duration_value.should == RiCal::PropertyValue::Duration.new(nil, :value => "PT1H")
+    end
+    
+    it "should raise an InvalidPropertyValue error if the string is not a valid RFC 2445 datetime string" do
+      lambda {"20090304".to_ri_cal_duration_value}.should raise_error(RiCal::InvalidPropertyValue)
+    end
+  end
+  
+  context "#to_ri_cal_date_or_date_time_value" do
+    
+    it "should produce a DateTime property for a valid RFC 2445 datetime string" do
+      "20090304T123456".to_ri_cal_date_or_date_time_value.should == RiCal::PropertyValue::DateTime.new(nil, :value => "20090304T123456")
+    end
+    
+    it "should produce a DateTime property for a valid RFC 2445 datetime string with a TZID parameter" do
+      "TZID=America/New_York:20090304T123456".to_ri_cal_date_or_date_time_value.should == RiCal::PropertyValue::DateTime.new(nil, :params => {"TZID" => "America/New_York"}, :value => "20090304T123456")
+    end
+
+    it "should produce a Date property for a valid RFC 2445 date string" do
+      "20090304".to_ri_cal_date_or_date_time_value.should == RiCal::PropertyValue::Date.new(nil, :value => "20090304")
+    end
+    
+    
+    it "should raise an InvalidPropertyValue error if the string is not a valid RFC 2445 date or datetime string" do
+      lambda {"2009/03/04".to_ri_cal_date_or_date_time_value}.should raise_error(RiCal::InvalidPropertyValue)
+    end
+  end
+  
+  context "#to_ri_cal_occurrence_list_value" do
+    
+    it "should produce a DateTime property for a valid RFC 2445 datetime string" do
+      "20090304T123456".to_ri_cal_occurrence_list_value.should == RiCal::PropertyValue::DateTime.new(nil, :value => "20090304T123456")
+    end
+    
+    it "should produce a DateTime property for a valid RFC 2445 datetime string with a TZID parameter" do
+      "TZID=America/New_York:20090304T123456".to_ri_cal_occurrence_list_value.should == RiCal::PropertyValue::DateTime.new(nil, :params => {"TZID" => "America/New_York"}, :value => "20090304T123456")
+    end
+
+    it "should produce a Date property for a valid RFC 2445 date string" do
+      "20090304".to_ri_cal_occurrence_list_value.should == RiCal::PropertyValue::Date.new(nil, :value => "20090304")
+    end
+    
+    it "should produce a Period property for a valid RFC 2445 period string (two time format)" do
+      "20090304T012345/20090304T023456".to_ri_cal_occurrence_list_value.should == RiCal::PropertyValue::Period.new(nil, :value => "20090304T012345/20090304T023456")
+    end
+
+    it "should produce a Period property for a valid RFC 2445 period string (time and duration format)" do
+      "20090304T012345/PT1H".to_ri_cal_occurrence_list_value.should == RiCal::PropertyValue::Period.new(nil, :value => "20090304T012345/PT1H")
+    end
+
+    it "should raise an InvalidPropertyValue error if the string is not a valid RFC 2445 date or datetime string" do
+      lambda {"foobar".to_ri_cal_date_or_date_time_value}.should raise_error(RiCal::InvalidPropertyValue)
+    end
+  end
+end

data/spec/ri_cal/core_extensions/time/calculations_spec.rb

@@ -0,0 +1,188 @@
+#- ©2009 Rick DeNatale, All rights reserved. Refer to the file README.txt for the license
+
+require File.join(File.dirname(__FILE__), %w[.. .. .. spec_helper])
+
+describe RiCal::CoreExtensions::Time::Calculations do
+
+  describe ".iso_week_num" do
+
+    it "should calculate week 1 for January 1, 2001 for a wkst of 1 (Monday)" do
+      Date.new(2001, 1,1).iso_week_num(1).should == 1
+    end
+
+    it "should calculate week 1 for January 7, 2001 for a wkst of 1 (Monday)" do
+      Date.new(2001, 1,7).iso_week_num(1).should == 1
+    end
+
+    it "should calculate week 2 for January 8, 2001 for a wkst of 1 (Monday)" do
+      Date.new(2001, 1,8).iso_week_num(1).should == 2
+    end
+
+    it "should calculate week 52 for December 31, 2000 for a wkst of 1 (Monday)" do
+      Date.new(2000, 12,31).iso_week_num(1).should == 52
+    end
+
+    it "should calculate week 52 for January 1, 2001 for a wkst of 2 (Tuesday)" do
+      Date.new(2001, 1, 1).iso_week_num(2).should == 52
+    end
+
+    it "should calculate week 1 for Dec 31, 2003 for a wkst of 1 (Monday)" do
+      Date.new(2003, 12, 31).iso_week_num(1).should == 1
+    end
+  end
+  
+  describe ".iso_year" do
+    it "should be 1999 for January 2 2000" do
+      Date.new(2000, 1, 2).iso_year(1).should == 1999
+    end
+    
+    it "should be 1998 for December 29, 1997" do
+      Date.new(1997, 12, 29).iso_year(1).should == 1998
+    end
+  end
+
+  describe ".iso_year_start" do
+
+    it "should calculate January 4 1999 for January 2 2000 for a wkst of 1 (Monday)" do
+      Date.new(2000, 1, 2).iso_year_start(1).to_s.should == Date.new(1999, 1, 4).to_s
+    end
+
+    it "should calculate January 3 2000 for January 3 2000 for a wkst of 1 (Monday)" do
+      Date.new(2000, 1, 3).iso_year_start(1).to_s.should == Date.new(2000, 1, 3).to_s
+    end
+
+    it "should calculate January 3 2000 for January 4 2000 for a wkst of 1 (Monday)" do
+      Date.new(2000, 1, 4).iso_year_start(1).to_s.should == Date.new(2000, 1, 3).to_s
+    end
+
+    it "should calculate January 3 2000 for December 31 2000 for a wkst of 1 (Monday)" do
+      Date.new(2000, 12, 31).iso_year_start(1).to_s.should == Date.new(2000, 1, 3).to_s
+    end
+
+    it "should calculate week January 1, 2001 for January 1, 2001 for a wkst of 1 (Monday)" do
+      Date.new(2001, 1,1).iso_year_start(1).should == Date.new(2001, 1, 1)
+    end
+
+    it "should calculate week January 1, 2001 for July 4, 2001 for a wkst of 1 (Monday)" do
+      Date.new(2001, 7,4).iso_year_start(1).should == Date.new(2001, 1, 1)
+    end
+
+    it "should calculate January 3 2000 for January 3 2000" do
+      Date.new(2000, 1, 3).iso_year_start(1).to_s.should == Date.new(2000, 1, 3).to_s
+    end
+
+    it "should calculate January 3 2000 for January 4 2000" do
+      Date.new(2000, 1, 4).iso_year_start(1).to_s.should == Date.new(2000, 1, 3).to_s
+    end
+
+    # it "should calculate week 1 for January 7, 2001 for a wkst of 1 (Monday)" do
+    #   Date.new(2001, 1,7).iso_week_num(1).should == 1
+    # end
+    #
+    # it "should calculate week 2 for January 8, 2001 for a wkst of 1 (Monday)" do
+    #   Date.new(2001, 1,8).iso_week_num(1).should == 2
+    # end
+    #
+    # it "should calculate week 52 for December 31, 2000 for a wkst of 1 (Monday)" do
+    #   Date.new(2000, 12,31).iso_week_num(1).should == 52
+    # end
+    #
+    # it "should calculate week 52 for January 1, 2001 for a wkst of 2 (Tuesday)" do
+    #   Date.new(2001, 1, 1).iso_week_num(2).should == 52
+    # end
+    #
+    # it "should calculate week 1 for Dec 31, 2003 for a wkst of 1 (Monday)" do
+    #   Date.new(2003, 12, 31).iso_week_num(1).should == 1
+    # end
+  end
+
+  describe "#iso_week_one" do
+
+    before(:each) do
+      @it = RiCal::CoreExtensions::Time::Calculations
+    end
+
+    describe "with a monday week start" do
+      it "should return Jan 3, 2000 for 2000" do
+        @it.iso_week_one(2000, 1).should == Date.new(2000, 1, 3)
+      end
+
+      it "should return Jan 1, 2001 for 2001" do
+        @it.iso_week_one(2001, 1).should == Date.new(2001, 1,1)
+      end
+
+      it "should return Dec 31, 2001 for 2002" do
+        @it.iso_week_one(2002, 1).should == Date.new(2001, 12, 31)
+      end
+
+      it "should return Dec 30, 2002 for 2003" do
+        @it.iso_week_one(2003, 1).should == Date.new(2002, 12, 30)
+      end
+
+      it "should return Dec 29, 2003 for 2004" do
+        @it.iso_week_one(2004, 1).should == Date.new(2003, 12, 29)
+      end
+    end
+
+    it "should return Jan 2, 2001 for 2001 with a Tuesday week start" do
+      @it.iso_week_one(2001, 2).should == Date.new(2001, 1, 2)
+    end
+
+    it "should return Jan 3, 2001 for 2001 with a Wednesday week start" do
+      @it.iso_week_one(2001, 3).should == Date.new(2001, 1, 3)
+    end
+
+    it "should return Jan 4, 2001 for 2001 with a Thursday week start" do
+      @it.iso_week_one(2001, 4).should == Date.new(2001, 1, 4)
+    end
+
+    it "should return Dec 29, 2000 for 2001 with a Friday week start" do
+      @it.iso_week_one(2001, 5).should == Date.new(2000, 12, 29)
+    end
+
+    it "should return Dec 30, 2000 for 2001 with a Saturday week start" do
+      @it.iso_week_one(2001, 6).should == Date.new(2000, 12, 30)
+    end
+
+    it "should return Dec 31, 2000 for 2001 with a Sunday week start" do
+      @it.iso_week_one(2001, 0).should == Date.new(2000, 12, 31)
+    end
+  end
+
+  describe ".leap_year?" do
+    it "should return true for 2000" do
+      Date.parse("1/3/2000").should be_leap_year
+    end
+
+    it "should return false for 2007" do
+      Date.parse("1/3/2007").should_not be_leap_year
+    end
+
+    it "should return true for 2008" do
+      Date.parse("1/3/2008").should be_leap_year
+    end
+
+    it "should return false for 2100" do
+      Date.parse("1/3/2100").should_not be_leap_year
+    end
+  end
+
+  describe ".days_in_month" do
+
+    it "should return 29 for February in a leap year" do
+      Date.new(2008, 2, 1).days_in_month.should == 29
+    end
+
+    it "should return 28 for February in a non-leap year" do
+      Date.new(2009, 2, 1).days_in_month.should == 28
+    end
+
+    it "should return 31 for January in a leap year" do
+      Date.new(2008, 1, 1).days_in_month.should == 31
+    end
+
+    it "should return 31 for January in a non-leap year" do
+      Date.new(2009, 1, 1).days_in_month.should == 31
+    end
+  end
+end

data/spec/ri_cal/core_extensions/time/week_day_predicates_spec.rb

@@ -0,0 +1,45 @@
+#- ©2009 Rick DeNatale, All rights reserved. Refer to the file README.txt for the license
+
+require File.join(File.dirname(__FILE__), %w[.. .. .. spec_helper])
+
+describe RiCal::CoreExtensions::Time::WeekDayPredicates do
+
+  describe ".nth_wday_in_month" do
+    it "should return Feb 28, 2005 for the 4th Monday for a date in February 2005" do
+      expected = RiCal::PropertyValue::Date.new(nil, :value => "20050228")
+      it = Date.parse("Feb 7, 2005").nth_wday_in_month(4, 1)
+      it.should == expected
+    end
+  end
+
+  describe ".nth_wday_in_month?" do
+    it "should return true for Feb 28, 2005 for the 4th Monday" do
+      Date.parse("Feb 28, 2005").nth_wday_in_month?(4, 1).should be
+    end
+  end
+
+  describe ".start_of_week_with_wkst" do
+    describe "for Wednesday Sept 10 1997" do
+      before(:each) do
+        @date = Date.parse("Sept 10, 1997")
+      end
+
+      it "should return a Date of Sept 7, 1997 00:00 for a wkst of 0 - Sunday" do
+        @date.start_of_week_with_wkst(0).should == Date.parse("Sept 7, 1997")
+      end
+
+      it "should return a Date of Sept 8, 1997 00:00 for a wkst of 1 - Monday" do
+        @date.start_of_week_with_wkst(1).should == Date.parse("Sept 8, 1997")
+      end
+
+      it "should return a Date of Sept 10, 1997 00:00 for a wkst of 3 - Wednesday" do
+        @date.start_of_week_with_wkst(3).should == Date.parse("Sept 10, 1997")
+      end
+
+      it "should return a Date of Sept 4, 1997 00:00 for a wkst of 4 - Thursday" do
+        @date.start_of_week_with_wkst(4).should == Date.parse("Sept 4, 1997")
+      end
+    end
+
+  end
+end

data/spec/ri_cal/fast_date_time_spec.rb

@@ -0,0 +1,77 @@
+#- ©2009 Rick DeNatale, All rights reserved. Refer to the file README.txt for the license
+
+require File.join(File.dirname(__FILE__), %w[.. spec_helper])
+
+module RiCal
+
+  describe RiCal::FastDateTime do
+    context "#utc" do
+      it "should not change if it is already UTC" do
+        FastDateTime.new(2009, 5, 29, 19, 3, 0, 0).utc.should == FastDateTime.new(2009, 5, 29, 19, 3, 0, 0)        
+      end
+      
+      it "should change the time by the offset" do
+        FastDateTime.new(2010, 4, 15, 16, 3, 0, -4*60*60).utc.should == FastDateTime.new(2010, 4, 15, 20, 3, 0, 0)
+      end
+    end
+    
+    context "#==" do
+      it "should detect equal FastDateTimes" do
+        FastDateTime.new(2009, 5, 29, 19, 3, 0, 0).should == 
+        FastDateTime.new(2009, 5, 29, 19, 3, 0, 0)
+      end
+
+      it "should detect unequal FastDateTimes" do
+        FastDateTime.new(2009, 5, 29, 19, 3, 0, 0).should_not == 
+        FastDateTime.new(2009, 5, 29, 19, 3, 10, 0)      
+      end
+
+      context "#advance" do
+        it "should advance one second" do
+          FastDateTime.new(2009, 5, 29, 19, 3, 0, 0).advance(:seconds => 1).should == 
+          FastDateTime.new(2009, 5, 29, 19, 3, 1, 0)
+        end
+
+        it "should advance minus one second" do
+          FastDateTime.new(2009, 5, 29, 19, 3, 0, 0).advance(:seconds => -1).should == 
+          FastDateTime.new(2009, 5, 29, 19, 2, 59, 0)
+        end
+
+        it "should advance 70 seconds" do
+          FastDateTime.new(2009, 5, 29, 19, 3, 0, 0).advance(:seconds => 70).should == 
+          FastDateTime.new(2009, 5, 29, 19, 4, 10, 0)
+        end
+
+        it "should advance -70 seconds" do
+          FastDateTime.new(2009, 5, 29, 19, 3, 0, 0).advance(:seconds => -70).should == 
+          FastDateTime.new(2009, 5, 29, 19, 1, 50, 0)
+        end
+        
+        it "should advance one minute" do
+          FastDateTime.new(2009, 5, 29, 19, 3, 0, 0).advance(:minutes => 1).should == 
+          FastDateTime.new(2009, 5, 29, 19, 4, 0, 0)
+        end
+
+        it "should advance minus one minute" do
+          FastDateTime.new(2009, 5, 29, 19, 3, 0, 0).advance(:minutes => -1).should == 
+          FastDateTime.new(2009, 5, 29, 19, 2, 0, 0)
+        end
+
+        it "should advance 70 minutes" do
+          FastDateTime.new(2009, 5, 29, 19,  3, 0, 0).advance(:minutes => 70).should == 
+          FastDateTime.new(2009, 5, 29, 20, 13, 0, 0)
+        end
+
+        it "should advance -70 minutes" do
+          FastDateTime.new(2009, 5, 29, 19,  3, 0, 0).advance(:minutes => -70).should == 
+          FastDateTime.new(2009, 5, 29, 17, 53, 0, 0)
+        end
+        
+        it "should advance properly over a date" do
+          FastDateTime.new(2009, 5, 29, 23,  3, 0, 0).advance(:minutes => 70).should == 
+          FastDateTime.new(2009, 5, 30,  0, 13, 0, 0)          
+        end
+      end
+    end
+  end
+end

data/spec/ri_cal/inf_loop_spec.rb

@@ -0,0 +1,78 @@
+#- ©2009 Rick DeNatale, All rights reserved. Refer to the file README.txt for the license
+
+require 'rubygems'
+require File.join(File.dirname(__FILE__), %w[.. spec_helper])
+
+describe "an event with unneeded by parts" do
+  before(:each) do
+    rawdata = <<END_STR
+BEGIN:VCALENDAR
+PRODID:-//Google Inc//Google Calendar 70.9054//EN
+VERSION:2.0
+CALSCALE:GREGORIAN
+METHOD:PUBLISH
+X-WR-CALNAME:RICal teste
+X-WR-TIMEZONE:America/Sao_Paulo
+X-WR-CALDESC:
+BEGIN:VTIMEZONE
+TZID:America/Sao_Paulo
+X-LIC-LOCATION:America/Sao_Paulo
+BEGIN:DAYLIGHT
+TZOFFSETFROM:-0300
+TZOFFSETTO:-0200
+TZNAME:BRST
+DTSTART:19701018T000000
+RRULE:FREQ=YEARLY;BYMONTH=10;BYDAY=3SU
+END:DAYLIGHT
+BEGIN:STANDARD
+TZOFFSETFROM:-0300
+TZOFFSETTO:-0300
+TZNAME:BRT
+DTSTART:19700215T000000
+RRULE:FREQ=YEARLY;BYMONTH=2;BYDAY=3SU
+END:STANDARD
+END:VTIMEZONE
+BEGIN:VEVENT
+DTSTART;VALUE=DATE:19400713
+DTEND;VALUE=DATE:19400714
+RRULE:FREQ=YEARLY;BYMONTH=7;BYMONTHDAY=13
+DTSTAMP:20091109T161426Z
+UID:CD0000008B9511D182D800C04FB1625DF48568F41595384496C2570C025DC032
+CREATED:20090924T160743Z
+DESCRIPTION: Description test 12
+LAST-MODIFIED:20090924T160945Z
+LOCATION: Location test 12
+SEQUENCE:0
+STATUS:CONFIRMED
+SUMMARY: Event test 12
+TRANSP:TRANSPARENT
+END:VEVENT
+END:VCALENDAR
+END_STR
+    @cal = RiCal.parse_string(rawdata).first
+    @event = @cal.events.first
+  end
+  
+  it "should enumerate 10 events from July 13, 1940 to July 13, 1949 when count is 10" do
+    @event.occurrences(:count => 10).map {|occurrence| occurrence.dtstart}.should == (0..9).map {|y|
+      Date.parse("July 13, #{1940+y}")
+      }
+  end
+  
+  # describe "with a dtstart outside the recurrence rule" do
+  #   before(:each) do
+  #     @event.dtstart = Date.parse("July 12, 1940")
+  #   end
+  #   
+  #   it "should enumerate 10 events first July 12, 1940, July 13, 1940, July 13, 1941 when count is 3" do
+  #     @event.occurrences(:count => 3).map {|occurrence| occurrence.dtstart.to_s}.should == [
+  #       Date.parse("July 12, 1940").to_s,
+  #       Date.parse("July 13, 1940").to_s,
+  #       Date.parse("July 13, 1941").to_s
+  #     ]
+  #       
+  #   end
+  # 
+  # end
+  
+end