demingfactor-ri_cal 0.9.0

data/spec/ri_cal/property_value/date_time_spec.rb

@@ -0,0 +1,383 @@
+#- ©2009 Rick DeNatale, All rights reserved. Refer to the file README.txt for the license
+
+require File.join(File.dirname(__FILE__), %w[.. .. spec_helper])
+require 'tzinfo'
+
+describe RiCal::PropertyValue::DateTime do
+  before(:each) do
+    @cal = RiCal.Calendar
+  end
+
+  def utc_datetime(string)
+    RiCal::PropertyValue::DateTime.new(@cal, :value => "#{string}Z")
+  end
+
+  def local_datetime(string, tzid = "America/New_York")
+    RiCal::PropertyValue::DateTime.new(@cal, :value => string, :params => {'TZID' => tzid})
+  end
+
+  context "time_with_zone_methods" do
+    context ".utc" do
+      context "for a datetime already in zulu time" do
+        before(:each) do
+          @it = utc_datetime("19970101T012300").utc
+        end
+
+        it "should return the same datetime" do
+          @it.should == utc_datetime("19970101T012300")
+        end
+
+        it "should return a result with a tzid of UTC" do
+          @it.utc.tzid.should == "UTC"
+        end
+      end
+
+      it "should raise an invalid timezone exception if the timezone of the receiver is unknown" do
+        lambda {local_datetime("19970101T012300", 'America/Caspian').utc}.should raise_error(RiCal::InvalidTimezoneIdentifier)
+      end
+
+      context "for a datetime with a tzid of America/New_York" do
+        before(:each) do
+          @it = local_datetime("19970101T012300")
+          @it = @it.utc
+        end
+
+        it "should return the equivalent utc time" do
+          @it.should == utc_datetime("19970101T062300")
+        end
+
+        it "should return a result with a tzid of UTC" do
+          @it.tzid.should == "UTC"
+        end
+      end
+
+      context ".in_timezone('America/New_York')" do
+
+        it "should raise an invalid timezone exception if the timezone of the receiver is unknown" do
+          lambda {local_datetime("19970101T012300", 'America/Caspian').in_time_zone('America/New_York')}.should raise_error(RiCal::InvalidTimezoneIdentifier)
+        end
+
+        context "for a datetime 19970101T012300 in zulu time" do
+          before(:each) do
+            @it = utc_datetime("19970101T012300").in_time_zone('America/New_York')
+          end
+
+          it "should return the 8:23 p. Dec 31, 1996" do
+            @it.should == local_datetime("19961231T202300")
+          end
+
+          it "should return a result with a tzid of UTC" do
+            @it.tzid.should == "America/New_York"
+          end
+        end
+
+        context "for a datetime 19970101T012300 with a tzid of America/New_York" do
+          before(:each) do
+            @it = local_datetime("19970101T012300").in_time_zone('America/New_York')
+          end
+
+          it "should return the same time" do
+            @it.should == local_datetime("19970101T012300")
+          end
+
+          it "should return a result with a tzid of UTC" do
+            @it.tzid.should == "America/New_York"
+          end
+        end
+
+        context "for a datetime 19970101T012300 with a tzid of America/Chicago" do
+          before(:each) do
+            @it = local_datetime("19970101T012300", "America/Chicago").in_time_zone('America/New_York')
+          end
+
+          it "should return Jan 1, 1997 02:23 a.m." do
+            @it.should == local_datetime("19970101T022300")
+          end
+
+          it "should return a result with a tzid of America/New_York" do
+            @it.tzid.should == "America/New_York"
+          end
+        end
+      end
+    end
+
+    context "for a datetime from an imported calendar" do
+
+      before(:each) do
+        cals = RiCal.parse_string <<-END_OF_DATA
+BEGIN:VCALENDAR
+METHOD:PUBLISH
+X-WR-TIMEZONE:America/New_York
+PRODID:-//Apple Inc.//iCal 3.0//EN
+CALSCALE:GREGORIAN
+X-WR-CALNAME:Test
+VERSION:2.0
+X-WR-RELCALID:58DB0663-196B-4B6B-A05A-A53049661280
+X-APPLE-CALENDAR-COLOR:#0252D4
+BEGIN:VTIMEZONE
+TZID:Europe/Paris
+BEGIN:DAYLIGHT
+TZOFFSETFROM:+0100
+TZOFFSETTO:+0200
+DTSTART:19810329T020000
+RRULE:FREQ=YEARLY;BYMONTH=3;BYDAY=-1SU
+TZNAME:CEST
+END:DAYLIGHT
+BEGIN:STANDARD
+TZOFFSETFROM:+0200
+TZOFFSETTO:+0100
+DTSTART:19961027T030000
+RRULE:FREQ=YEARLY;BYMONTH=10;BYDAY=-1SU
+TZNAME:CET
+END:STANDARD
+END:VTIMEZONE
+BEGIN:VTIMEZONE
+TZID:US/Eastern
+BEGIN:DAYLIGHT
+TZOFFSETFROM:-0500
+TZOFFSETTO:-0400
+DTSTART:20070311T020000
+RRULE:FREQ=YEARLY;BYMONTH=3;BYDAY=2SU
+TZNAME:EDT
+END:DAYLIGHT
+BEGIN:STANDARD
+TZOFFSETFROM:-0400
+TZOFFSETTO:-0500
+DTSTART:20071104T020000
+RRULE:FREQ=YEARLY;BYMONTH=11;BYDAY=1SU
+TZNAME:EST
+END:STANDARD
+END:VTIMEZONE
+BEGIN:VEVENT
+SEQUENCE:3
+TRANSP:OPAQUE
+UID:AC2EFB19-A8A8-49EF-929F-CA0975374ED6
+DTSTART:20090501T000000Z
+DTSTAMP:20090501T174405Z
+SUMMARY:UTC Event
+CREATED:20090501T174347Z
+DTEND:20090501T010000Z
+END:VEVENT
+BEGIN:VEVENT
+SEQUENCE:2
+TRANSP:OPAQUE
+UID:A5517A09-C53E-4E1F-A642-EA47680BF2B6
+DTSTART;TZID=US/Eastern:20090430T140000
+DTSTAMP:20090501T174428Z
+SUMMARY:Eastern Event
+CREATED:20090501T174415Z
+DTEND;TZID=US/Eastern:20090430T150000
+END:VEVENT
+BEGIN:VEVENT
+SEQUENCE:3
+TRANSP:OPAQUE
+UID:B5024763-9197-4A60-A96E-D8D59D578BB2
+DTSTART;TZID=Europe/Paris:20090430T140000
+DTSTAMP:20090501T174509Z
+SUMMARY:Paris Event
+CREATED:20090501T174439Z
+DTEND;TZID=Europe/Paris:20090430T150000
+END:VEVENT
+END:VCALENDAR
+       END_OF_DATA
+       @cal = cals.first
+     end
+
+     def find_event(summary)
+       @cal.events.find {|event| event.summary == summary}
+     end
+
+     context ".utc" do
+
+       it "should raise an invalid timezone exception if the timezone of the receiver is not in the calendar" do
+         lambda {local_datetime("19970101T012300", 'America/New_York').utc}.should raise_error(RiCal::InvalidTimezoneIdentifier)
+       end
+
+       context "for the DTSTART of the UTC Event" do
+         before(:each) do
+           @it = find_event("UTC Event").dtstart_property.utc
+         end
+
+         it "should return the same datetime" do
+           @it.should == utc_datetime("20090501T000000")
+         end
+
+         it "should return a result with a tzid of UTC" do
+           @it.utc.tzid.should == "UTC"
+         end
+       end
+
+       context "for the DTSTART of the Eastern Event" do
+         before(:each) do
+           @it = find_event("Eastern Event").dtstart_property.utc
+         end
+
+         it "should return the equivalent utc time" do
+           @it.should == utc_datetime("20090430T180000")
+         end
+
+         it "should return a result with a tzid of UTC" do
+           @it.tzid.should == "UTC"
+         end
+       end
+     end
+
+     context ".in_timezone('US/Eastern')" do
+
+       it "should raise an invalid timezone exception if the timezone of the receiver is not in the calendar" do
+         lambda {local_datetime("19970101T012300", 'America/New_York').in_time_zone("US/Eastern")}.should raise_error(RiCal::InvalidTimezoneIdentifier)
+       end
+
+       context "for the DTSTART of the UTC Event" do
+          before(:each) do
+            @it = find_event("UTC Event").dtstart_property.in_time_zone("US/Eastern")
+          end
+
+         it "should return 8:00 p.m. Apr 30, 2009" do
+           @it.should == local_datetime("20090430T2000000", "US/Eastern")
+         end
+
+         it "should return a result with a tzid of US/Eastern" do
+           @it.tzid.should == "US/Eastern"
+         end
+       end
+
+       context "for the DTSTART of the Eastern Event" do
+         before(:each) do
+           @it = find_event("Eastern Event").dtstart_property.in_time_zone("US/Eastern")
+         end
+
+         it "should return the same time" do
+           @it.should == local_datetime("20090430T140000", "US/Eastern")
+         end
+
+         it "should return a result with a tzid of UTC" do
+           @it.tzid.should == "US/Eastern"
+         end
+       end
+
+       context "for the DTSTART of the Paris Event" do
+         before(:each) do
+           @it = find_event("Paris Event").dtstart_property.in_time_zone("US/Eastern")
+         end
+
+         it "should return 8:00 a.m. on Apr 30, 2009" do
+           @it.should == local_datetime("20090430T080000", "US/Eastern")
+         end
+
+         it "should return a result with a tzid of US/Eastern" do
+           @it.tzid.should == "US/Eastern"
+         end
+       end
+     end
+   end
+ end
+
+  context ".from_separated_line" do
+    it "should return a RiCal::PropertyValue::Date if the value doesn't contain a time specification" do
+      RiCal::PropertyValue::DateTime.or_date(nil, :value => "19970714").should be_kind_of(RiCal::PropertyValue::Date)
+    end
+
+    it "should return a RiCal::PropertyValue::DateTime if the value does contain a time specification" do
+      RiCal::PropertyValue::DateTime.or_date(nil, :value => "19980118T230000").should be_kind_of(RiCal::PropertyValue::DateTime)
+    end
+  end
+
+  context ".advance" do
+    it "should advance by one week if passed :days => 7" do
+      dt1 = RiCal::PropertyValue::DateTime.new(nil, :value => "20050131T230000")
+      dt2 = RiCal::PropertyValue::DateTime.new(nil, :value => "20050207T230000")
+      dt1.advance(:days => 7).should == dt2
+    end
+  end
+
+  context "subtracting one date-time from another" do
+
+    it "should produce the right RiCal::PropertyValue::Duration" do
+      dt1 = RiCal::PropertyValue::DateTime.new(nil, :value => "19980118T230000")
+      dt2 = RiCal::PropertyValue::DateTime.new(nil, :value => "19980119T010000")
+      @it = dt2 - dt1
+      @it.should == RiCal::PropertyValue::Duration.new(nil, :value => "+PT2H")
+    end
+  end
+
+  context "adding a RiCal::PropertyValue::Duration to a RiCal::PropertyValue::DateTime" do
+
+    it "should produce the right RiCal::PropertyValue::DateTime" do
+      dt1 = RiCal::PropertyValue::DateTime.new(nil, :value => "19980118T230000")
+      duration = RiCal::PropertyValue::Duration.new(nil, :value => "+PT2H")
+      @it = dt1 + duration
+      @it.should == RiCal::PropertyValue::DateTime.new(nil, :value => "19980119T010000")
+    end
+  end
+
+  context "subtracting a RiCal::PropertyValue::Duration from a RiCal::PropertyValue::DateTime" do
+
+    it "should produce the right RiCal::PropertyValue::DateTime" do
+      dt1 = RiCal::PropertyValue::DateTime.new(nil, :value => "19980119T010000")
+      duration = RiCal::PropertyValue::Duration.new(nil, :value => "+PT2H")
+      @it = dt1 - duration
+      @it.should == RiCal::PropertyValue::DateTime.new(nil, :value => "19980118T230000")
+    end
+  end
+  context "when setting the default timezone identifier" do
+
+    before(:each) do
+      RiCal::PropertyValue::DateTime.default_tzid = "America/Chicago"
+      @time = Time.mktime(2009,2,5,19,17,11)
+      @it = RiCal::PropertyValue::DateTime.convert(nil, @time)
+    end
+
+    after(:each) do
+      RiCal::PropertyValue::DateTime.default_tzid = "UTC"
+    end
+
+    it "should update the default timezone to America/Chicago" do
+      @it.params.should == {'TZID' => 'America/Chicago'}
+    end
+
+    it "should not have a tzid when default_tzid is :floating" do
+      RiCal::PropertyValue::DateTime.default_tzid = :floating
+      dt = RiCal::PropertyValue::DateTime.convert(nil, @time)
+      dt.params.should == {}
+    end
+  end
+
+  context ".convert(rubyobject)" do
+    describe "for a Time instance of  Feb 05 19:17:11"
+    before(:each) do
+      @time = Time.mktime(2009,2,5,19,17,11)
+    end
+
+    context "with a normal a normal time instance" do
+      describe "when the default timezone identifier is UTC" do
+        before(:each) do
+          @it = RiCal::PropertyValue::DateTime.convert(nil, @time)
+        end
+
+        it "should have a TZID of UTC" do
+          @it.tzid.should == 'UTC'
+        end
+
+        it "should have the right value" do
+          @it.value.should == "20090205T191711Z"
+        end
+      end
+      
+      context "when the default timezone has been set to 'America/Chicago" do
+        before(:each) do
+          RiCal::PropertyValue::DateTime.stub!(:default_tzid).and_return("America/Chicago")
+          @it = RiCal::PropertyValue::DateTime.convert(nil, @time)
+        end
+
+        it "should have a TZID of America/Chicago" do
+          @it.tzid.should == 'America/Chicago'
+        end
+
+        it "should have the right value" do
+          @it.value.should == "20090205T191711"
+        end
+      end
+    end
+  end
+end

data/spec/ri_cal/property_value/duration_spec.rb

@@ -0,0 +1,126 @@
+#- ©2009 Rick DeNatale, All rights reserved. Refer to the file README.txt for the license
+
+require File.join(File.dirname(__FILE__), %w[.. .. spec_helper])
+require 'date'
+
+describe RiCal::PropertyValue::Duration do
+
+  context "with various values" do
+    def value_expectations(dv, values = {})
+      values = {:weeks => 0, :days => 0, :hours => 0, :minutes => 0, :seconds => 0}.merge(values)
+      dv.weeks.should == values[:weeks]
+      dv.days.should == values[:days]
+      dv.hours.should == values[:hours]
+      dv.minutes.should == values[:minutes]
+      dv.seconds.should == values[:seconds]
+    end
+
+    it ".+P7W should have represent 7 weeks" do
+      value_expectations(RiCal::PropertyValue::Duration.new(nil, :value => "+P7W"), :weeks => 7)
+    end
+
+    it ".P15DT5H0M20S should have represent 15 days, 5 hours and 20 seconds" do
+      value_expectations(RiCal::PropertyValue::Duration.new(nil, :value => "P15DT5H0M20S"), :days => 15, :hours => 5, :seconds => 20)
+    end
+
+    it ".+P2D should have represent 2 days" do
+      value_expectations(RiCal::PropertyValue::Duration.new(nil, :value => "+P2D"), :days => 2)
+    end
+
+    it ".+PT3H should have represent 3 hours" do
+      value_expectations(RiCal::PropertyValue::Duration.new(nil, :value => "+PT3H"), :hours => 3)
+    end
+
+    it ".+PT15M should have represent 15 minutes" do
+      value_expectations(RiCal::PropertyValue::Duration.new(nil, :value => "+PT15M"), :minutes => 15)
+    end
+
+    it ".+PT45S should have represent 45 seconds" do
+      value_expectations(RiCal::PropertyValue::Duration.new(nil, :value => "+PT45S"), :seconds => 45)
+    end
+  end
+
+  context ".==" do
+    it "should return true for two durations of one day" do
+      RiCal::PropertyValue.new(nil, :value => "+P1D").should == RiCal::PropertyValue.new(nil, :value => "+P1D")
+    end
+  end
+
+  context ".from_datetimes" do
+
+    context "starting at 11:00 pm, and ending at 1:01:02 am the next day" do
+      before(:each) do
+        @it = RiCal::PropertyValue::Duration.from_datetimes(nil,
+        DateTime.parse("Sep 1, 2008 23:00"),
+        DateTime.parse("Sep 2, 2008 1:01:02")
+        )
+      end
+
+      it "should produce a duration" do
+        @it.class.should == RiCal::PropertyValue::Duration
+      end
+
+      it "should have a value of '+P2H1M2S'" do
+        @it.value.should == '+PT2H1M2S'
+      end
+
+      it "should contain zero days" do
+        @it.days.should == 0
+      end
+
+      it "should contain two hours" do
+        @it.hours.should == 2
+      end
+
+      it "should contain one minute" do
+        @it.minutes.should == 1
+      end
+
+      it "should contain one minute" do
+        @it.minutes.should == 1
+      end
+    end
+
+    context "starting at 00:00, and ending at 00:00 the next day" do
+      before(:each) do
+        @it = RiCal::PropertyValue::Duration.from_datetimes(nil,
+        DateTime.parse("Sep 1, 2008 00:00"),
+        DateTime.parse("Sep 2, 2008 00:00")
+        )
+      end
+
+      it "should produce a duration" do
+        @it.class.should == RiCal::PropertyValue::Duration
+      end
+
+      it "should have a value of '+P1D'" do
+        @it.value.should == '+P1D'
+      end
+
+      it "should contain zero days" do
+        @it.days.should == 1
+      end
+
+      it "should contain zero hours" do
+        @it.hours.should == 0
+      end
+
+      it "should contain zero minutes" do
+        @it.minutes.should == 0
+      end
+
+      it "should contain zero minutes" do
+        @it.minutes.should == 0
+      end
+    end
+
+    it "should work when start > finish" do
+      lambda {
+        RiCal::PropertyValue::Duration.from_datetimes(nil,
+        DateTime.parse("Sep 2, 2008 1:01:02"),
+        DateTime.parse("Sep 1, 2008 23:00")
+        )
+        }.should_not raise_error(ArgumentError)
+      end
+    end
+  end

data/spec/ri_cal/property_value/occurrence_list_spec.rb

@@ -0,0 +1,72 @@
+#- ©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::PropertyValue::OccurrenceList do
+
+  context ".convert method" do
+    context "with a single datetime" do
+      before(:each) do
+        @it = RiCal::PropertyValue::OccurrenceList.convert(nil, DateTime.parse("5 May 2009, 9:32 am"))
+      end
+
+      it "should produce the right ical representation" do
+        @it.to_s.should == ":20090505T093200Z"
+      end
+
+      it "should have the right ruby value" do
+        @it.ruby_value.should == [DateTime.parse("5 May 2009, 9:32 am")]
+      end
+
+      it "should have the right elements" do
+        @it.send(:elements).should == [RiCal::PropertyValue::DateTime.new(nil, :value => "20090505T093200Z" )]
+      end
+    end
+
+    context "with conflicting timezones" do
+      before(:each) do
+        @event = RiCal.Event
+      end
+
+      it "should raise an InvalidPropertyValue if an argument does not match an explicit time zone" do
+        lambda {RiCal::PropertyValue::OccurrenceList.convert(@event, "America/New_York", Time.now.set_tzid("America/Chicago"))}.should raise_error(RiCal::InvalidPropertyValue)
+      end
+
+      it "should raise an InvalidPropertyValue if the arguments have mixed time zones" do
+        lambda {RiCal::PropertyValue::OccurrenceList.convert(@event, Time.now.set_tzid("America/New_York"), Time.now.set_tzid("America/Chicago"))}.should raise_error(RiCal::InvalidPropertyValue)
+      end
+    end
+
+    context "with a tzid and a single datetime" do
+      before(:each) do
+        timezone = mock("Timezone",
+          :rational_utc_offset => Rational(-5, 24),
+          :local_to_utc => RiCal::PropertyValue.date_or_date_time(nil, :value => "19620220T194739"),
+          :name => 'America/New_York'
+          )
+
+        timezone_finder = mock("tz_finder", :find_timezone => timezone, :default_tzid => "UTC", :tz_info_source? => true)
+        @it = RiCal::PropertyValue::OccurrenceList.convert(timezone_finder, 'America/New_York', "19620220T144739")
+      end
+
+      it "should produce the right ical representation" do
+        @it.to_s.should == ";TZID=America/New_York:19620220T144739"
+      end
+
+      context "its ruby value" do
+
+        it "should be the right DateTime" do
+          @it.ruby_value.should == [result_time_in_zone(1962, 2, 20, 14, 47, 39, 'America/New_York')]
+        end
+
+        it "should have the right tzid" do
+          @it.ruby_value.first.tzid.should == "America/New_York"
+        end
+      end
+
+      it "should have the right elements" do
+        @it.send(:elements).should == [RiCal::PropertyValue::DateTime.new(nil, :params=> {'TZID' => 'America/New_York'}, :value => "19620220T144739" )]
+      end
+    end
+  end
+end

data/spec/ri_cal/property_value/period_spec.rb

@@ -0,0 +1,63 @@
+#- ©2009 Rick DeNatale, All rights reserved. Refer to the file README.txt for the license
+
+require File.join(File.dirname(__FILE__), %w[.. .. spec_helper])
+
+# RFC 2445 Section 4.3.9 pp 39-40
+describe RiCal::PropertyValue::Period do
+  
+  before(:each) do
+    @start_dt = RiCal::PropertyValue::DateTime.new(nil, :value => "19970101T180000Z")
+    @end_dt = RiCal::PropertyValue::DateTime.new(nil, :value => "19970102T070000Z")
+    @duration = RiCal::PropertyValue::Duration.from_datetimes(nil, @start_dt.to_datetime, @end_dt.to_datetime)
+  end
+  
+  describe "with an explicit period" do
+    before(:each) do
+      @value_string = "#{@start_dt.value}/#{@end_dt.value}"
+      @it = RiCal::PropertyValue::Period.new(nil, :value => @value_string)
+    end
+    
+    it "should have the correct dtstart value" do
+      @it.dtstart.should == @start_dt
+    end
+    
+    it "should have the correct dtend value" do
+      @it.dtend.should == @end_dt
+    end
+    
+    it "should have the correct duration value" do
+      @it.duration.should == @duration
+    end
+    
+    it "should have the correct string value" do
+      @it.to_s.should == ":#{@value_string}"
+    end
+    
+    it "should be its own ruby_value" do
+      @it.ruby_value.should == @it      
+    end
+  end
+  
+  describe "with a start time and period" do
+    before(:each) do
+      @value_string = "#{@start_dt.value}/#{@duration.value}"
+      @it = RiCal::PropertyValue::Period.new(nil, :value => @value_string)
+    end
+    
+    it "should have the correct dtstart value" do
+      @it.dtstart.should == @start_dt
+    end
+    
+    it "should have the correct dtend value" do
+      @it.dtend.should == @end_dt
+    end
+    
+    it "should have the correct duration value" do
+      @it.duration.should == @duration
+    end
+    
+    it "should have the correct string value" do
+      @it.to_s.should == ":#{@value_string}"
+    end
+  end
+end

data/spec/ri_cal/property_value/recurrence_rule/recurring_year_day_spec.rb

@@ -0,0 +1,21 @@
+#- ©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::PropertyValue::RecurrenceRule::RecurringYearDay do
+
+  def set_it(which, rule=nil)
+    @it = RiCal::PropertyValue::RecurrenceRule::RecurringYearDay.new(which, rule)
+  end
+  
+  def time_property(str)
+    RiCal::PropertyValue.date_or_date_time(nil, :value => str)
+  end
+
+  describe ".matches_for(time)" do
+
+    it "should return an array containing January 1, in the times year for the the 1st day" do
+      set_it(1).matches_for(time_property("19970603T090000")).should == [time_property("19970101T090000")]
+    end
+  end
+end