rubyredrick-ri_cal 0.0.2

data/spec/ri_cal/component/event_spec.rb

@@ -0,0 +1,157 @@
+#- ©2009 Rick DeNatale
+#- All rights reserved
+
+require File.join(File.dirname(__FILE__), %w[.. .. spec_helper])
+
+describe RiCal::Component::Event do
+
+  describe ".entity_name" do
+    it "should be VEVENT" do
+      RiCal::Component::Event.entity_name.should == "VEVENT"
+    end
+  end
+
+  context "with an rrule" do
+    before(:each) do
+      @it = RiCal::Component::Event.parse_string("BEGIN:VEVENT\nRRULE:FREQ=DAILY\nEND:VEVENT").first
+    end
+
+    it "should have an array of rrules" do
+      @it.rrule.should be_kind_of(Array)
+    end
+  end
+
+  context "description property" do
+    before(:each) do
+      @ical_desc = "posted by Joyce per Zan\\nASheville\\, Rayan's Restauratn\\, Biltm\n ore Square"
+      @ruby_desc = "posted by Joyce per Zan\nASheville, Rayan's Restauratn, Biltmore Square"
+      @it = RiCal::Component::Event.parse_string("BEGIN:VEVENT\nDESCRIPTION:#{@ical_desc}\nEND:VEVENT").first
+    end
+
+    it "should product the converted ruby value" do
+      @it.description.should == @ruby_desc
+    end
+
+    it "should produce escaped text for ical" do
+      @it.description = "This is a\nnew description, yes; it is"
+      @it.description_property.value.should == 'This is a\nnew description\, yes\; it is'
+    end
+
+  end
+
+  context "with both dtend and duration specified" do
+    before(:each) do
+      @it = RiCal::Component::Event.parse_string("BEGIN:VEVENT\nDTEND:19970903T190000Z\nDURATION:H1\nEND:VEVENT").first
+    end
+
+    it "should be invalid" do
+      @it.should_not be_valid
+    end
+  end
+
+  context "with a duration property" do
+    before(:each) do
+      @it = RiCal::Component::Event.parse_string("BEGIN:VEVENT\nDURATION:H1\nEND:VEVENT").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 dtend property is set" do
+      @it.dtend_property = "19970101".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.dtend = "19970101"
+      @it.duration_property.should == nil
+    end
+  end
+
+  context "with a dtend property" do
+    before(:each) do
+      @it = RiCal::Component::Event.parse_string("BEGIN:VEVENT\nDTEND:19970903T190000Z\nEND:VEVENT").first
+    end
+
+    it "should have a duration property" do
+      @it.dtend_property.should be
+    end
+
+    it "should reset the dtend property if the duration property is set" do
+      @it.duration_property = "H1".to_ri_cal_duration_value
+      @it.dtend_property.should be_nil
+    end
+
+    it "should reset the dtend property if the duration ruby value is set" do
+      @it.duration = "H1".to_ri_cal_duration_value
+      @it.dtend_property.should be_nil
+    end
+  end
+
+  context "with a nested alarm component" do
+    before(:each) do
+      @it = RiCal::Component::Event.parse_string("BEGIN:VEVENT\nDTEND:19970903T190000Z\n\nBEGIN:VALARM\nEND:VALARM\nEND:VEVENT").first
+    end
+
+    it "should have one alarm" do
+      @it.alarms.length.should == 1
+    end
+
+    it "which should be an Alarm component" do
+      @it.alarms.first.should be_kind_of(RiCal::Component::Alarm)
+    end
+  end
+
+  context ".export" do
+    require 'rubygems'
+    require 'tzinfo'
+
+    def date_time_with_tzinfo_zone(date_time, timezone="America/New_York")
+      result = date_time.dup
+      result.stub!(:acts_like_time?).and_return(true)
+      time_zone = TZInfo::Timezone.get(timezone)
+      result.stub!(:time_zone).and_return(time_zone)
+      result
+    end
+    
+    # Undo the effects of RFC2445 line folding
+    def unfold(string)
+      string.gsub("\n ", "")
+    end
+
+    before(:each) do
+      cal = RiCal.Calendar
+      @it = RiCal::Component::Event.new(cal)
+    end
+
+    it "should cause a VTIMEZONE to be included for a dtstart with a local timezone" do
+      @it.dtstart = date_time_with_tzinfo_zone(DateTime.parse("April 22, 2009 17:55"), "America/New_York")
+      unfold(@it.export).should match(/BEGIN:VTIMEZONE\nTZID;X-RICAL-TZSOURCE=TZINFO:America\/New_York\n/)
+    end
+
+    it "should properly format dtstart with a UTC date-time" do
+      @it.dtstart = DateTime.parse("April 22, 2009 1:23:45")
+      unfold(@it.export).should match(/^DTSTART;VALUE=DATE-TIME:20090422T012345Z$/)
+    end
+
+    it "should properly format dtstart with a floating date-time" do
+      @it.dtstart = DateTime.parse("April 22, 2009 1:23:45").with_floating_timezone
+      unfold(@it.export).should match(/^DTSTART;VALUE=DATE-TIME:20090422T012345$/)
+    end
+
+    it "should properly format dtstart with a local time zone" do
+      @it.dtstart = date_time_with_tzinfo_zone(DateTime.parse("April 22, 2009 17:55"), "America/New_York")
+      unfold(@it.export).should match(/^DTSTART;TZID=America\/New_York;VALUE=DATE-TIME:20090422T175500$/)
+    end
+
+    it "should properly format dtstart with a date" do
+      @it.dtstart = Date.parse("April 22, 2009")
+      unfold(@it.export).should match(/^DTSTART;VALUE=DATE:20090422$/)
+    end
+  end
+end

data/spec/ri_cal/component/freebusy_spec.rb

@@ -0,0 +1,13 @@
+#- ©2009 Rick DeNatale
+#- All rights reserved
+
+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,13 @@
+#- ©2009 Rick DeNatale
+#- All rights reserved
+
+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
+end

data/spec/ri_cal/component/t_z_info_timezone_spec.rb

@@ -0,0 +1,37 @@
+#- ©2009 Rick DeNatale
+#- All rights reserved
+
+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,155 @@
+#- ©2009 Rick DeNatale
+#- All rights reserved
+
+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
+end

data/spec/ri_cal/component/todo_spec.rb

@@ -0,0 +1,61 @@
+#- ©2009 Rick DeNatale
+#- All rights reserved
+
+require File.join(File.dirname(__FILE__), %w[.. .. spec_helper])
+
+describe RiCal::Component::Todo do
+
+  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 = "19970101".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 = "H1".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 = "19970101"
+      @it.due_property.should == nil
+    end
+  end
+end

data/spec/ri_cal/component_spec.rb

@@ -0,0 +1,212 @@
+#- ©2009 Rick DeNatale
+#- All rights reserved
+
+require File.join(File.dirname(__FILE__), %w[.. spec_helper])
+
+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"), '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
+        
+        it "should test stuff"
+        # before(:each) do
+        #   @event = RiCal.Event do
+        #     add_exdate [DateTime.parse("Feb 20, 1962 14:47:39"), 'US/Pacific']
+        #   end
+        #   @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 the right exdate value" do
+        #   @event.exdate.should == ""
+        # 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