ri_cal 0.5.0

data/spec/ri_cal/component/freebusy_spec.rb

@@ -0,0 +1,12 @@
+#- ©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::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,37 @@
+#- ©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::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,36 @@
+#- ©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 'rubygems'
+require 'tzinfo'
+
+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:20070311T030000
+RDATE:20070311T030000,20080309T030000
+TZOFFSETFROM:-0500
+TZOFFSETTO:-0400
+TZNAME:EDT
+END:DAYLIGHT
+BEGIN:STANDARD
+DTSTART:20071104T010000
+RDATE:20071104T010000
+TZOFFSETFROM:-0400
+TZOFFSETTO:-0500
+TZNAME:EST
+END:STANDARD
+END:VTIMEZONE
+ENDDATA
+  end
+end

data/spec/ri_cal/component/timezone_spec.rb

@@ -0,0 +1,218 @@
+#- ©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::Component::Timezone do
+
+  context ".entity_name" do
+    it "should be VTIMEZONE" do
+      RiCal::Component::Timezone.entity_name.should == "VTIMEZONE"
+    end
+  end
+
+  context "from an iCal.app calendar for America/New_York starting March 11 2007" do
+    before(:each) do
+      @it = RiCal.parse_string <<TZEND
+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
+TZEND
+      @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 <<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,112 @@
+#- ©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::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 = "+P1H"
+        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 = "P1H".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 = "P1H"
+      @it.due_property.should == nil
+    end
+  end
+end

data/spec/ri_cal/component_spec.rb

@@ -0,0 +1,224 @@
+#- ©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::Component do
+
+  context "building blocks" do
+
+    context "building an empty calendar" do
+      before(:each) do
+        @it = RiCal.Calendar.to_s
+      end
+
+      it "should have the default prodid" do
+        @it.should match(%r{^PRODID;X-RICAL-TZSOURCE=TZINFO:-//com.denhaven2/NONSGML ri_cal gem//EN$})
+      end
+
+      it "should have the default calscale" do
+        @it.should match(%r{^CALSCALE:GREGORIAN$})
+      end
+
+      it "should have the default icalendar version" do
+        @it.should match(%r{^VERSION:2\.0$})
+      end
+    end
+
+    context "building a calendar with time zones" do
+      it 'should allow specifying the time zone identifier' do
+        event = RiCal.Event do
+          dtstart     DateTime.parse("Feb 20, 1962 14:47:39").set_tzid('US/Pacific')
+        end
+        event.dtstart_property.should == dt_prop(DateTime.parse("Feb 20, 1962 14:47:39"), tzid = 'US/Pacific')
+      end
+
+      context "adding an exception date" do
+        
+        before(:each) do
+          @cal =  RiCal.Calendar do
+            event do
+              add_exdate 'US/Eastern', "19620220T144739"
+            end
+          end
+          @event = @cal.events.first
+          @prop = @event.exdate_property.first
+        end
+
+        it "should produce an OccurrenceList for the property" do
+          @prop.should be_instance_of(RiCal::PropertyValue::OccurrenceList)
+        end
+
+        it "should have a property with the right ical representation" do
+          @prop.to_s.should == ";TZID=US/Eastern:19620220T144739"
+        end
+        
+        context "its ruby_value" do
+          it "should have the right value" do
+            @prop.ruby_value.should == [DateTime.civil(1962, 2, 20, 14, 47, 39, Rational(-5, 24))]
+          end
+          
+          it "should have the right tzid" do
+            @prop.ruby_value.first.tzid.should == "US/Eastern"
+          end
+        end
+      end
+    end
+
+    context "with a block with 1 parameter" do
+      before(:each) do
+        @it = RiCal.Event do |event|
+          event.description = "MA-6 First US Manned Spaceflight"
+          event.dtstart = DateTime.parse("Feb 20, 1962 14:47:39")
+          event.dtend = DateTime.parse("Feb 20, 1962 19:43:02")
+          event.location = "Cape Canaveral"
+          event.add_attendee "john.glenn@nasa.gov"
+          event.alarm do
+            description "Segment 51"
+          end
+          event.alarm do |alarm|
+            alarm.description = "Second alarm"
+          end
+        end
+      end
+
+      it "should have the right description" do
+        @it.description.should == "MA-6 First US Manned Spaceflight"
+      end
+      it "should have the right dtstart" do
+        @it.dtstart.should == DateTime.parse("Feb 20, 1962 14:47:39")
+      end
+
+      it "should have a zulu time dtstart property" do
+        @it.dtstart_property.tzid.should == "UTC"
+      end
+
+      it "should have the right dtend" do
+        @it.dtend.should == DateTime.parse("Feb 20, 1962 19:43:02")
+      end
+
+      it "should have a zulu time dtend property" do
+        @it.dtend_property.tzid.should == "UTC"
+      end
+
+      it "should have the right location" do
+        @it.location.should == "Cape Canaveral"
+      end
+
+      it "should have the right attendee" do
+        @it.attendee.should include("john.glenn@nasa.gov")
+      end
+
+      it "should have 2 alarms" do
+        @it.alarms.length.should == 2
+      end
+
+      it ".the alarms should have the right description" do
+        @it.alarms.first.description.should == "Segment 51"
+        @it.alarms.last.description.should == "Second alarm"
+      end
+    end
+
+    context "building an event for MA-6" do
+      before(:each) do
+        @it = RiCal.Event do
+          description "MA-6 First US Manned Spaceflight"
+          dtstart     DateTime.parse("Feb 20, 1962 14:47:39")
+          dtend       DateTime.parse("Feb 20, 1962 19:43:02")
+          location    "Cape Canaveral"
+          add_attendee "john.glenn@nasa.gov"
+          alarm do
+            description "Segment 51"
+          end
+        end
+      end
+
+      it "should have the right description" do
+        @it.description.should == "MA-6 First US Manned Spaceflight"
+      end
+
+      it "should have the right dtstart" do
+        @it.dtstart.should == DateTime.parse("Feb 20, 1962 14:47:39")
+      end
+
+      it "should have a zulu time dtstart property" do
+        @it.dtstart_property.tzid.should == "UTC"
+      end
+
+      it "should have the right dtend" do
+        @it.dtend.should == DateTime.parse("Feb 20, 1962 19:43:02")
+      end
+
+      it "should have a zulu time dtend property" do
+        @it.dtend_property.tzid.should == "UTC"
+      end
+
+      it "should have the right location" do
+        @it.location.should == "Cape Canaveral"
+      end
+
+      it "should have the right attendee" do
+        @it.attendee.should include("john.glenn@nasa.gov")
+      end
+
+      it "should have 1 alarm" do
+        @it.alarms.length.should == 1
+      end
+
+      it "should have an alarm with the right description" do
+        @it.alarms.first.description.should == "Segment 51"
+      end
+    end
+
+    context "building a complex calendar" do
+
+      before(:each) do
+        @it = RiCal.Calendar do
+          add_x_property 'x_wr_calname', 'My Personal Calendar'
+          event do
+            summary     'A Recurring Event'
+            description "This is some really long note content. It should be appropriately folded in the generated file.\nCarriage returns should work, too."
+            dtstart     DateTime.parse('Feb 20, 2009 20:30:00')
+            dtend       DateTime.parse('Feb 20, 2009 21:30:00')
+            location    'North Carolina'
+            dtstamp     Time.now
+            rrule       :freq => 'daily', :interval => 1
+          end
+        end
+      end
+
+      it 'should have an x_wr_calname property with the value "My Personal Calendar"' do
+        @it.x_wr_calname.should == "My Personal Calendar"
+      end
+
+      context "event with a long description and a dsl built recurence rule" do
+        before(:each) do
+          @cal = @it
+          @it = @cal.events.first
+        end
+
+        context "its description" do
+          it "should pass through correctly" do
+           @it.description.should == "This is some really long note content. It should be appropriately folded in the generated file.\nCarriage returns should work, too."
+          end
+        end
+
+        context "its rrule" do
+
+          it "should have a 1 rrule" do
+            @it.rrule.length.should == 1
+          end
+
+          it "should have the right rrule" do
+            @it.rrule.first.should == "FREQ=DAILY"
+          end
+
+          it "should have the right rrule hash" do
+            @it.rrule_property.first.to_options_hash.should == {:freq => 'DAILY', :interval => 1}
+          end
+        end
+      end
+    end
+
+  end
+end