friflaj_ri_cal 0.9.0

data/spec/ri_cal/component/freebusy_spec.rb

@@ -0,0 +1,10 @@
+require 'spec_helper'
+
+describe RiCal::Component::Freebusy do
+  
+  describe ".entity_name" do
+    it "should be VFREEBUSY" do
+      RiCal::Component::Freebusy.entity_name.should == "VFREEBUSY"
+    end
+  end
+end

data/spec/ri_cal/component/journal_spec.rb

@@ -0,0 +1,35 @@
+require 'spec_helper'
+
+describe RiCal::Component::Journal do
+  
+  describe ".entity_name" do
+    it "should be VJOURNAL" do
+      RiCal::Component::Journal.entity_name.should == "VJOURNAL"
+    end
+  end
+  
+  context ".start_time" do
+    it "should be the same as dtstart for a date time" do
+      event = RiCal.Journal {|e| e.dtstart = "20090525T151900"}
+      event.start_time.should == DateTime.civil(2009,05,25,15,19,0,0)
+    end
+    
+    it "should be the start of the day of dtstart for a date" do
+      event = RiCal.Journal {|e| e.dtstart = "20090525"}
+      event.start_time.should == DateTime.civil(2009,05,25,0,0,0,0)
+    end
+  end
+  
+  context ".finish_time" do
+    it "should be the same as dtstart for a date time" do
+      event = RiCal.Journal {|e| e.dtstart = "20090525T151900"}
+      event.finish_time.should == DateTime.civil(2009,05,25,15,19,0,0)
+    end
+    
+    it "should be the start of the day of dtstart for a date" do
+      event = RiCal.Journal {|e| e.dtstart = "20090525"}
+      event.finish_time.should == DateTime.civil(2009,05,25,0,0,0,0)
+    end
+  end
+  
+end

data/spec/ri_cal/component/t_z_info_timezone_spec.rb

@@ -0,0 +1,63 @@
+require 'spec_helper'
+
+describe RiCal::Component::TZInfoTimezone do
+
+  it "should produce an rfc representation" do
+    tz = RiCal::Component::TZInfoTimezone.new(TZInfo::Timezone.get("America/New_York"))
+    local_first = DateTime.parse("Apr 10, 2007")
+    local_last = DateTime.parse("Apr 6, 2008")
+    utc_first = tz.local_to_utc(local_first)
+    utc_last = tz.local_to_utc(local_last)
+    rez = tz.to_rfc2445_string(utc_first, utc_last)
+    rez.should == <<-ENDDATA
+BEGIN:VTIMEZONE
+TZID;X-RICAL-TZSOURCE=TZINFO:America/New_York
+BEGIN:DAYLIGHT
+DTSTART:20070311T020000
+RDATE:20070311T020000
+RDATE:20080309T020000
+TZOFFSETFROM:-0500
+TZOFFSETTO:-0400
+TZNAME:EDT
+END:DAYLIGHT
+BEGIN:STANDARD
+DTSTART:20071104T020000
+RDATE:20071104T020000
+TZOFFSETFROM:-0400
+TZOFFSETTO:-0500
+TZNAME:EST
+END:STANDARD
+END:VTIMEZONE
+ENDDATA
+  end
+
+  TZInfo::Timezone.all_identifiers.each do |tz|
+    context "TZInfo timezone #{tz}" do
+      before(:each) do
+        @calendar = RiCal.Calendar do |cal|
+          cal.event do |event|
+            event.description = "test"
+            event.dtstart = "TZID=#{tz}:20090530T123000"
+            event.dtend =   "TZID=#{tz}:20090530T123001"
+          end
+        end
+      end
+      it "should be allowed as a tzid" do
+        lambda {@calendar.export}.should_not raise_error
+      end
+      unless tz == "UTC"
+        it "should produce at least one period in the VTIMEZONE" do
+          @calendar.export.should match(/BEGIN:(STANDARD|DAYLIGHT)/)
+        end
+      end
+    end
+  end
+
+  it "should not raise an error with Ambigous times" do
+    tz = RiCal::Component::TZInfoTimezone.new(TZInfo::Timezone.get("America/New_York"))
+    local_start = DateTime.parse("2011-11-06T01:30:00+00:00")
+    # This time appears twice. Because at 2:00 am the clock falls back to 1:00 am again
+    local_end = DateTime.parse("Nov 30, 2012")
+    lambda { tz.export_local_to(StringIO.new, local_start, local_end) }.should_not raise_error(TZInfo::AmbiguousTime)
+  end
+end

data/spec/ri_cal/component/timezone_spec.rb

@@ -0,0 +1,233 @@
+require 'spec_helper'
+
+describe RiCal::Component::Timezone do
+
+  context ".entity_name" do
+    it "should be VTIMEZONE" do
+      RiCal::Component::Timezone.entity_name.should == "VTIMEZONE"
+    end
+  end
+
+  context "for a Timezone with no DST periods" do
+    before(:each) do
+      @it = RiCal.parse_string rectify_ical(<<-'ENDCAL')
+      BEGIN:VTIMEZONE
+      TZID:Australia/Brisbane
+      X-LIC-LOCATION:Australia/Brisbane
+      BEGIN:STANDARD
+      TZOFFSETFROM:+1000
+      TZOFFSETTO:+1000
+      TZNAME:EST
+      DTSTART:19700101T000000
+      END:STANDARD
+      END:VTIMEZONE
+      ENDCAL
+      @it = @it.first
+    end
+
+    context ".periods_for_local" do
+      it "should return a single period" do
+        @it.periods_for_local(DateTime.parse("20090530T100000")).length.should == 1
+      end
+    end
+  end
+
+  context "from an iCal.app calendar for America/New_York starting March 11 2007" do
+    before(:each) do
+      @it = RiCal.parse_string rectify_ical(<<-'ENDCAL')
+      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
+      ENDCAL
+      @it = @it.first
+    end
+
+    it "should be a Timezone" do
+      @it.should be_kind_of(RiCal::Component::Timezone)
+    end
+
+    context ".local_to_utc" do
+      it "should produce 2/27/2009 18:00 UTC for 2/27/2009 13:00" do
+        expected = RiCal::PropertyValue::DateTime.new(nil, :value => "20090227T1800Z" )
+        @it.local_to_utc(DateTime.parse("Feb 27, 2009 13:00")).should == expected
+      end
+    end
+
+    context ".utc_to_local" do
+      it "should produce 2/27/2009 13:00 EST for 2/27/2009 18:00 UTC" do
+        expected = RiCal::PropertyValue::DateTime.new(nil, :params => {'TZID' => 'US/Eastern'}, :value => "20090227T1300" )
+        @it.utc_to_local(DateTime.parse("Feb 27, 2009 18:00")).should == expected
+      end
+    end
+
+    context ".period_for_local" do
+      it "should raise TZInfo::PeriodNotFound for an invalid local time, e.g. Mar 8, 2009 2:30" do
+        lambda {@it.period_for_local(DateTime.parse("Mar 8, 2009 2:30"))}.should raise_error(TZInfo::PeriodNotFound)
+      end
+
+      context "for an ambiguous local time , e.g. Nov 1, 2009 2:00" do
+        context "lacking a dst parameter or block" do
+          it "should raise TZInfo::AmbiguousTime" do
+            lambda {@it.period_for_local(DateTime.parse("Nov 1, 2009 2:00"))}.should raise_error(TZInfo::AmbiguousTime)
+          end
+        end
+
+        context "with a dst parameter" do
+          it "should return a dst period if the dst parameter is true" do
+            @it.period_for_local(DateTime.parse("Nov 1, 2009 2:00"), true).should be_dst
+          end
+
+          it "should return a std period if the dst parameter is false" do
+            @it.period_for_local(DateTime.parse("Nov 1, 2009 2:00"), false).should_not be_dst
+          end
+        end
+
+        context "with a block" do
+          it "should return a period if the block returns a TimezonePeriod" do
+            mock_period = ::RiCal::Component::Timezone::TimezonePeriod.new(nil)
+            @it.period_for_local(DateTime.parse("Nov 1, 2009 2:00")) { |results| mock_period}.should == mock_period
+          end
+
+          it "should return a period if the block returns a single element array" do
+            mock_period = :foo
+            @it.period_for_local(DateTime.parse("Nov 1, 2009 2:00")) { |results| [ mock_period]}.should == mock_period
+          end
+
+          it "should raise TZInfo::PeriodNotFound if the block returns a multi-element array" do
+            lambda {
+              @it.period_for_local(DateTime.parse("Mar 8, 2009 2:30")) {|results| [1,2]}}.should raise_error(TZInfo::PeriodNotFound)
+            end
+          end
+        end
+      end
+
+    context ".periods_for_local" do
+      context "for the date on which DST begins springing ahead e.g. Mar 8, 2009" do
+        it "should return a 1 element array for 1 second before the transition time" do
+          @it.periods_for_local(DateTime.parse("Mar 8, 2009 1:59:59")).length.should == 1
+        end
+
+        it "should return an empty array for the transition time" do
+          @it.periods_for_local(DateTime.parse("Mar 8, 2009 2:00:00")).should == []
+        end
+
+        it "should return an empty array for 1 second after the transition time" do
+          @it.periods_for_local(DateTime.parse("Mar 8, 2009 2:00:01")).should == []
+        end
+
+        it "should return an empty array for 1 second before the spring ahead time" do
+          @it.periods_for_local(DateTime.parse("Mar 8, 2009 2:59:59")).should == []
+        end
+
+        it "should return a 1 element array for the spring ahead time" do
+          @it.periods_for_local(DateTime.parse("Mar 8, 2009 3:00:00")).length.should == 1
+        end
+      end
+
+      context "for the date on which DST ends falling back e.g. Nov 11, 2009" do
+        it "should return a 1 element array for 1 second before the transition time" do
+          @it.periods_for_local(DateTime.parse("Nov 1, 2009 1:59:59")).length.should == 1
+        end
+
+        it "should return a 2 element array for the transition time" do
+          @it.periods_for_local(DateTime.parse("Nov 1, 2009 2:00:00")).length.should == 2
+        end
+
+        it "should return a 2 element array for 1 second after the transition time" do
+          @it.periods_for_local(DateTime.parse("Nov 1, 2009 2:00:01")).length.should == 2
+        end
+
+        it "should return a 2 element array for 59 minutes and 59 seconds after the transition time" do
+          @it.periods_for_local(DateTime.parse("Nov 1, 2009 2:59:59")).length.should == 2
+        end
+
+        it "should return a 2 element array for 1 hour after the transition time" do
+          @it.periods_for_local(DateTime.parse("Nov 1, 2009 3:00:00")).length.should == 2
+        end
+
+        it "should return a 2 element array for 1 hour and 1 second after the transition time" do
+          @it.periods_for_local(DateTime.parse("Nov 1, 2009 3:00:01")).length.should == 2
+        end
+      end
+    end
+  end
+
+  context "Bug report from paulsm" do
+    before(:each) do
+      cals = RiCal.parse_string rectify_ical(<<-'ENDCAL')
+      BEGIN:VCALENDAR
+      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:1884C7F8-BC8E-457F-94AC-297871967D5E
+      X-APPLE-CALENDAR-COLOR:#2CA10B
+      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:5
+      TRANSP:OPAQUE
+      UID:00481E53-9258-4EA7-9F8D-947D3041A3F2
+      DTSTART;TZID=US/Eastern:20090224T090000
+      DTSTAMP:20090225T000908Z
+      SUMMARY:Test Event
+      CREATED:20090225T000839Z
+      DTEND;TZID=US/Eastern:20090224T100000
+      RRULE:FREQ=DAILY;INTERVAL=1;UNTIL=20090228T045959Z
+      END:VEVENT
+      END:VCALENDAR
+      ENDCAL
+      @event = cals.first.events.first
+    end
+  
+    context "the events dtstart" do
+      it "should be the right DateTime" do
+        @event.dtstart.should == DateTime.civil(2009, 2, 24, 9, 0, 0, Rational(-5, 24))
+      end
+  
+      it "should have the right tzid" do
+        @event.dtstart.tzid.should == "US/Eastern"
+      end
+    end
+  
+    context "the events dtend" do
+      it "should be the right DateTime" do
+        @event.dtend.should == DateTime.civil(2009, 2, 24, 10, 0, 0, Rational(-5, 24))
+      end
+  
+      it "should have the right tzid" do
+        @event.dtend.tzid.should == "US/Eastern"
+      end
+    end
+  end
+end

data/spec/ri_cal/component/todo_spec.rb

@@ -0,0 +1,110 @@
+require 'spec_helper'
+
+describe RiCal::Component::Todo do
+  
+  context ".start_time" do
+    it "should be the same as dtstart for a date time" do
+      todo = RiCal.Todo {|e| e.dtstart = "20090525T151900"}
+      todo.start_time.should == DateTime.civil(2009,05,25,15,19,0,0)
+    end
+    
+    it "should be the start of the day of dtstart for a date" do
+      todo = RiCal.Todo {|e| e.dtstart = "20090525"}
+      todo.start_time.should == DateTime.civil(2009,05,25,0,0,0,0)
+    end
+    
+    it "should be nil if the dtstart property is not set" do
+      RiCal.Todo.start_time.should be_nil
+    end
+  end
+  
+  context ".finish_time" do
+    before(:each) do
+      @todo = RiCal.Todo {|t| t.dtstart = "20090525T151900"}
+    end
+
+    context "with a given due" do
+      it "should be the same as due for a date time" do
+        @todo.due = "20090525T161900"
+        @todo.finish_time.should == DateTime.civil(2009,05,25,16,19,0,0)
+      end
+    end
+
+    context "with no due" do
+      context "and a duration" do
+        before(:each) do
+          @todo.duration = "+PT1H"
+        end
+        
+        it "should be the dtstart plus the duration" do
+          @todo.finish_time.should == DateTime.civil(2009,5,25,16,19,0,0)
+        end
+        
+        it "should be nil if the dtstart property is not set" do
+          @todo.dtstart_property = nil
+          @todo.finish_time.should be_nil
+        end
+      end
+
+      context "and no duration" do
+        it "should be nil" do
+          @todo.finish_time.should be_nil
+        end
+      end
+    end
+  end
+
+  describe "with both due and duration specified" do
+    before(:each) do
+      @it = RiCal::Component::Todo.parse_string("BEGIN:VTODO\nDUE:19970903T190000Z\nDURATION:H1\nEND:VTODO").first
+    end
+    
+    it "should be invalid" do
+      @it.should_not be_valid
+    end
+  end
+
+  describe "with a duration property" do
+    before(:each) do
+      @it = RiCal::Component::Todo.parse_string("BEGIN:VTODO\nDURATION:H1\nEND:VTODO").first
+    end
+
+    it "should have a duration property" do
+      @it.duration_property.should be
+    end
+    
+    it "should have a duration of 1 Hour" do
+      @it.duration_property.value.should == "H1"
+    end
+    
+    it "should reset the duration property if the due property is set" do
+      @it.due_property = "19970101T012345".to_ri_cal_date_time_value
+      @it.duration_property.should be_nil
+    end
+    
+    it "should reset the duration property if the dtend ruby value is set" do
+      @it.due = "19970101"
+      @it.duration_property.should == nil
+    end
+  end
+
+  describe "with a due property" do
+    before(:each) do
+      @it = RiCal::Component::Todo.parse_string("BEGIN:VTODO\nDUE:19970903T190000Z\nEND:VTODO").first
+    end
+
+    it "should have a due property" do
+      @it.due_property.should be
+    end
+    
+    it "should reset the due property if the duration property is set" do
+      @it.duration_property = "PT1H".to_ri_cal_duration_value
+      @it.due_property.should be_nil
+    end
+    
+    it "should reset the duration property if the dtend ruby value is set" do
+      @it.duration = "PT1H"
+      @it.due_property.should == nil
+    end
+  end
+end