awallis-ri_cal 0.8.8

data/spec/ri_cal/bugreports_spec.rb

@@ -0,0 +1,276 @@
+#- ©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 "http://rick_denatale.lighthouseapp.com/projects/30941/tickets/17" do
+  it "should parse this" do
+    RiCal.parse_string(<<-ENDCAL)
+BEGIN:VCALENDAR
+PRODID:-//Google Inc//Google Calendar 70.9054//EN
+VERSION:2.0
+CALSCALE:GREGORIAN
+METHOD:PUBLISH
+X-WR-CALNAME:Australian Tech Events
+X-WR-TIMEZONE:Australia/Sydney
+X-WR-CALDESC:TO ADD EVENTS INVITE THIS ADDRESS\;\npf44opfb12hherild7h2pl11b
+ 4@group.calendar.google.com\n\nThis is a public calendar to know what's com
+ ing up all around the country in the technology industry.\n\nIncludes digit
+ al\, internet\, web\, enterprise\, software\, hardware\, and it's various f
+ lavours. \n\nFeel free to add real events. Keep it real.
+BEGIN:VTIMEZONE
+TZID:Australia/Perth
+X-LIC-LOCATION:Australia/Perth
+BEGIN:STANDARD
+TZOFFSETFROM:+0800
+TZOFFSETTO:+0800
+TZNAME:WST
+DTSTART:19700101T000000
+END:STANDARD
+END:VTIMEZONE
+BEGIN:VTIMEZONE
+TZID:Australia/Sydney
+X-LIC-LOCATION:Australia/Sydney
+BEGIN:STANDARD
+TZOFFSETFROM:+1100
+TZOFFSETTO:+1000
+TZNAME:EST
+DTSTART:19700405T030000
+RRULE:FREQ=YEARLY;BYMONTH=4;BYDAY=1SU
+END:STANDARD
+BEGIN:DAYLIGHT
+TZOFFSETFROM:+1000
+TZOFFSETTO:+1100
+TZNAME:EST
+DTSTART:19701004T020000
+RRULE:FREQ=YEARLY;BYMONTH=10;BYDAY=1SU
+END:DAYLIGHT
+END:VTIMEZONE
+BEGIN:VTIMEZONE
+TZID:Australia/Brisbane
+X-LIC-LOCATION:Australia/Brisbane
+BEGIN:STANDARD
+TZOFFSETFROM:+1000
+TZOFFSETTO:+1000
+TZNAME:EST
+DTSTART:19700101T000000
+END:STANDARD
+END:VTIMEZONE
+BEGIN:VEVENT
+DTSTART:20091110T080000Z
+DTEND:20091110T100000Z
+DTSTAMP:20090720T133540Z
+UID:9357CC6B-C4BF-4797-AC5F-83E47C3FDA9E
+URL:thehive.org.au
+CLASS:PUBLIC
+CREATED:20090713T123838Z
+DESCRIPTION:check the website for details
+LAST-MODIFIED:20090713T123838Z
+LOCATION:Melbourne
+SEQUENCE:1
+STATUS:CONFIRMED
+SUMMARY:The Hive MELBOURNE
+TRANSP:OPAQUE
+BEGIN:VALARM
+ACTION:AUDIO
+TRIGGER:-PT5M
+X-WR-ALARMUID:F92A055A-2CD9-4FB2-A22A-BD4834ACEE96
+ATTACH;VALUE=URI:Basso
+END:VALARM
+END:VEVENT
+END:VCALENDAR
+ENDCAL
+  end
+end
+
+describe "http://rick_denatale.lighthouseapp.com/projects/30941/tickets/18" do
+  it "should handle a subcomponent" do
+    event = RiCal.Event do |evt|
+      evt.alarm do |alarm|
+        alarm.trigger = "-PT5M"
+        alarm.action = 'AUDIO'
+      end
+    end
+
+    lambda {event.export}.should_not raise_error
+  end
+end
+
+describe "http://rick_denatale.lighthouseapp.com/projects/30941/tickets/19" do
+  before(:each) do
+    cals = RiCal.parse_string(<<-ENDCAL)
+BEGIN:VCALENDAR
+METHOD:REQUEST
+PRODID:Microsoft CDO for Microsoft Exchange
+VERSION:2.0
+BEGIN:VTIMEZONE
+TZID:(GMT-05.00) Eastern Time (US & Canada)
+X-MICROSOFT-CDO-TZID:10
+BEGIN:STANDARD
+DTSTART:20010101T020000
+TZOFFSETFROM:-0400
+TZOFFSETTO:-0500
+RRULE:FREQ=YEARLY;WKST=MO;INTERVAL=1;BYMONTH=11;BYDAY=1SU
+END:STANDARD
+BEGIN:DAYLIGHT
+DTSTART:20010101T020000
+TZOFFSETFROM:-0500
+TZOFFSETTO:-0400
+RRULE:FREQ=YEARLY;WKST=MO;INTERVAL=1;BYMONTH=3;BYDAY=2SU
+END:DAYLIGHT
+END:VTIMEZONE
+BEGIN:VEVENT
+DTSTAMP:20090724T143205Z
+DTSTART;TZID="(GMT-05.00) Eastern Time (US & Canada)":20090804T120000
+SUMMARY:FW: ALL HANDS MEETING
+DTEND;TZID="(GMT-05.00) Eastern Time (US & Canada)":20090804T133000
+DESCRIPTION:Some event
+END:VEVENT
+END:VCALENDAR
+ENDCAL
+
+    @event = cals.first.events.first
+  end
+
+  it "not raise an error accessing DTSTART" do
+    lambda {@event.dtstart}.should_not raise_error
+  end
+end
+
+describe "freebusy problem" do
+  before(:each) do
+    cal = RiCal.parse_string(<<ENDCAL)
+BEGIN:VCALENDAR
+METHOD:PUBLISH
+VERSION:2.0
+PRODID:Zimbra-Calendar-Provider
+BEGIN:VFREEBUSY
+ORGANIZER:mailto:bj-wagoner@wiu.edu
+DTSTAMP:20090805T200417Z
+DTSTART:20090705T200417Z
+DTEND:20091006T200417Z
+URL:https://zimbra9.wiu.edu/service/home/bjw101/calendar.ifb?null
+FREEBUSY;FBTYPE=BUSY:20090705T200417Z/20090707T050000Z
+FREEBUSY;FBTYPE=BUSY-TENTATIVE:20090711T050000Z/20090712T050000Z
+END:VFREEBUSY
+END:VCALENDAR
+ENDCAL
+  @free_busy = cal.first.freebusys.first
+  end
+
+  it "should have two periods" do
+    @free_busy.freebusy.map {|fb| fb.to_s}.should == [
+      ";FBTYPE=BUSY:20090705T200417Z/20090707T050000Z",
+      ";FBTYPE=BUSY-TENTATIVE:20090711T050000Z/20090712T050000Z"
+      ]
+  end
+end
+
+describe "a calendar including vvenue" do
+  before(:each) do
+    @cal_string = <<ENDCAL
+BEGIN:VCALENDAR
+VERSION:2.0
+X-WR-CALNAME:Upcoming Event: Film in the Park
+PRODID:-//Upcoming.org/Upcoming ICS//EN
+CALSCALE:GREGORIAN
+METHOD:PUBLISH
+BEGIN:VEVENT
+DTSTART:20090807T201500
+DTEND:20090807T220000
+RRULE:FREQ=DAILY;INTERVAL=1;UNTIL=20090822T000000
+GEO:-104.997;39.546
+TRANSP:TRANSPARENT
+SUMMARY:Film in the Park
+DESCRIPTION: [Full details at http://upcoming.yahoo.com/event/3082410/ ] Plan to join the HRCA family summer tradition! Bring a blanket and enjoy great FREE family movies! Mark the dates now!
+URL;VALUE=URI:http://upcoming.yahoo.com/event/3082410/
+UID:http://upcoming.yahoo.com/event/3082410/
+DTSTAMP:20090716T103006
+LAST-UPDATED:20090716T103006
+CATEGORIES:Family
+ORGANIZER;CN=mepling95:X-ADDR:http://upcoming.yahoo.com/user/637615/
+LOCATION;VENUE-UID="http://upcoming.yahoo.com/venue/130821/":Civic Green Park @ 9370 Ridgeline Boulevard\, Highlands Ranch\, Colorado 80126 US
+END:VEVENT
+BEGIN:VVENUE
+X-VVENUE-INFO:http://evdb.com/docs/ical-venue/drft-norris-ical-venue.html
+NAME:Civic Green Park
+ADDRESS:9370 Ridgeline Boulevard
+CITY:Highlands Ranch
+REGION;X-ABBREV=co:Colorado
+COUNTRY;X-ABBREV=us:United States
+POSTALCODE:80126
+GEO:39.546;-104.997
+URL;X-LABEL=Venue Info:http://www.hrmafestival.org
+END:VVENUE
+END:VCALENDAR
+ENDCAL
+
+  @venue_str = <<ENDVENUE
+BEGIN:VVENUE
+X-VVENUE-INFO:http://evdb.com/docs/ical-venue/drft-norris-ical-venue.html
+NAME:Civic Green Park
+ADDRESS:9370 Ridgeline Boulevard
+CITY:Highlands Ranch
+REGION;X-ABBREV=co:Colorado
+COUNTRY;X-ABBREV=us:United States
+POSTALCODE:80126
+GEO:39.546;-104.997
+URL;X-LABEL=Venue Info:http://www.hrmafestival.org
+END:VVENUE
+ENDVENUE
+  end
+
+  it "should parse without error" do
+    lambda {RiCal.parse_string(@cal_string)}.should_not raise_error
+  end
+  
+  it "should export correctly" do
+    export = RiCal.parse_string(@cal_string).first.export
+    export.should include(@venue_str)
+  end
+end
+
+context "ticket #23" do
+  describe "RecurrenceRule" do
+    it "should convert the rrule string to a hash" do
+      rrule = RiCal::PropertyValue::RecurrenceRule.convert(nil, 'INTERVAL=2;FREQ=WEEKLY;BYDAY=TH,TU')
+      rrule.to_options_hash.should == {:freq => 'WEEKLY', :byday => %w{TH TU}, :interval => 2}
+    end
+  end
+end
+
+context "ticket #26" do
+  context "Date property" do
+    it "should handle for_parent" do
+      lambda {
+      RiCal::PropertyValue::Date.convert(:foo, Date.parse("20090927")).for_parent(:bar)}.should_not raise_error
+    end
+  end
+end
+
+context "ticket 29:supress-x-rical-tzsource-when-not-relevant" do
+  it "should parse its own output" do
+    cal_string = %Q(BEGIN:VCALENDAR
+PRODID:-//Google Inc//Google Calendar 70.9054//EN
+BEGIN:VEVENT
+DTSTART:20100610T100000
+DTEND:20100610T110000
+END:VEVENT
+END:VCALENDAR)
+    lambda {RiCal.parse_string(RiCal.parse_string(cal_string).first.to_s)}.should_not raise_error
+  end
+end
+
+context "X-properties" do
+  it "should round-trip the X-WR-CALNAME property" do
+    cal_string = %Q(BEGIN:VCALENDAR
+PRODID:-//Markthisdate.com\,0.7
+VERSION:2.0
+CALSCALE:GREGORIAN
+METHOD:PUBLISH
+X-WR-CALNAME: AFC Ajax Eredivisie wedstrijden 2010 - 2011
+END:VCALENDAR)
+      cal = RiCal.parse_string(cal_string).first
+      cal.x_wr_calname.first.should == " AFC Ajax Eredivisie wedstrijden 2010 - 2011"
+    end
+end
+

data/spec/ri_cal/component/alarm_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::Alarm do
+  
+  describe ".entity_name" do
+    it "should be VALARM" do
+      RiCal::Component::Alarm.entity_name.should == "VALARM"
+    end
+  end
+end

data/spec/ri_cal/component/calendar_spec.rb

@@ -0,0 +1,88 @@
+# encoding: utf-8
+#- ©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::Calendar do
+
+  context ".entity_name" do
+    it "should be VCALENDAR" do
+      RiCal::Component::Calendar.entity_name.should == "VCALENDAR"
+    end
+  end
+  
+  context "a new instance" do
+    before(:each) do
+      @it = RiCal.Calendar
+    end
+    
+    it "should have a tz_source of 'TZ_INFO" do
+      @it.tz_source.should == "TZINFO"
+    end
+    
+    it "should export a product id with an X-RICAL-TZSOURCE parameter of TZINFO" do
+      @it.export.should match(%r{\nPRODID;X-RICAL-TZSOURCE=TZINFO:-//com.denhaven2/NONSGML ri_cal gem//EN\n})
+    end
+  end
+  
+  context "an imported instance with a tzinfo source" do
+    before(:each) do
+      @it = RiCal.parse_string("BEGIN:VCALENDAR\nPRODID;X-RICAL-TZSOURCE=TZINFO:-\/\/com.denhaven2\/NONSGML ri_cal gem\/\/EN\nCALSCALE:GREGORIAN\nVERSION:2.0\nEND:VCALENDAR\n").first
+    end
+    
+    it "should have a tz_source of 'TZ_INFO" do
+      @it.tz_source.should == "TZINFO"
+    end
+    
+    it "should export a product id with an X-RICAL-TZSOURCE parameter of TZINFO" do
+      @it.export.should match(%r{\nPRODID;X-RICAL-TZSOURCE=TZINFO:-//com.denhaven2/NONSGML ri_cal gem//EN\n})
+    end
+  end
+  
+  context "an imported instance without a tzinfo source" do
+    before(:each) do
+      @it = RiCal.parse_string("BEGIN:VCALENDAR\nPRODID:-//Apple Inc.//iCal 3.0//EN\nEND:VCALENDAR\n").first
+    end
+    
+    it "should have a tz_source of nil" do
+      @it.tz_source.should be_nil
+    end
+    
+    it "should export not export a product id with an X-RICAL-TZSOURCE parameter of TZINFO" do
+      @it.export.should_not match(%r{X-RICAL-TZSOURCE=TZINFO:})
+    end
+  end
+  
+  describe RiCal::Component::Calendar::FoldingStream do
+    before(:each) do
+      @it = RiCal::Component::Calendar::FoldingStream.new(nil)
+    end
+    
+    describe "#utf_safe_split" do
+      it "should properly split an ascii string" do
+        @it.utf8_safe_split("abcdef", 3).should == ["abc", "def"]
+      end
+      
+      it "should return a nil remainder if the string has less than n characters" do
+        @it.utf8_safe_split("a",2).should == ["a", nil]
+      end
+      
+      it "should return a nil remainder if the string has exactly n characters" do
+        @it.utf8_safe_split("ab",2).should == ["ab", nil]
+      end
+      
+      it "should not split a 2-byte utf character" do
+        @it.utf8_safe_split("Café", 3).should == ["Caf", "é"]
+        @it.utf8_safe_split("Café", 4).should == ["Caf", "é"]
+        @it.utf8_safe_split("Café", 5).should == ["Café", nil]
+      end
+      
+      it "should not split a 3-byte utf character" do
+        @it.utf8_safe_split("Prix €200", 5).should == ["Prix ", "€200"]
+        @it.utf8_safe_split("Prix €200", 6).should == ["Prix ", "€200"]
+        @it.utf8_safe_split("Prix €200", 7).should == ["Prix ", "€200"]
+        @it.utf8_safe_split("Prix €200", 8).should == ["Prix €", "200"]
+      end
+    end
+  end
+end

data/spec/ri_cal/component/event_spec.rb

@@ -0,0 +1,735 @@
+# encoding: utf-8
+#- ©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::Event do
+  
+  context "with change management properties" do
+    it "should use zulu time for all change management datetime properties" do
+      new_york_offset = Rational(-1, 6)
+      cal = RiCal.Calendar
+      event = RiCal::Component::Event.new(cal)
+      event.dtstamp = result_time_in_zone(2010, 4, 1, 9, 23, 45, "America/New_York", new_york_offset)
+      event.created = result_time_in_zone(2010, 4, 1, 9, 23, 45, "America/New_York", new_york_offset)
+      event.last_modified = result_time_in_zone(2010, 4, 1, 12, 23, 45, "America/New_York", new_york_offset)
+      event.to_s.should == "BEGIN:VEVENT
+CREATED;VALUE=DATE-TIME:20100401T132345Z
+DTSTAMP;VALUE=DATE-TIME:20100401T132345Z
+LAST-MODIFIED;VALUE=DATE-TIME:20100401T162345Z
+END:VEVENT
+"
+    end
+  end
+  
+  context ".finish_time" do
+    it "should be the end of the start day for an event with a date dtstart and no dtend or duration" do
+      @it = RiCal.Event do |evt|
+        evt.dtstart = "20090704"
+      end
+      @it.finish_time.should == DateTime.parse("20090704T235959")
+    end
+    
+    it "should be the end of the end day for an event with a date dtstart and a dtend" do
+      @it = RiCal.Event do |evt|
+        evt.dtstart = "20090704"
+        evt.dtend = "20090706"
+      end
+      @it.finish_time.should == DateTime.parse("20090706T235959")
+    end
+    
+    it "should be the start time for an event with a datetime dtstart and no dtend or duration" do
+      @it = RiCal.Event do |evt|
+        evt.dtstart = "20090704T013000Z"
+      end
+      @it.finish_time.should == DateTime.parse("20090704T013000Z")
+    end
+    
+    it "should be the end time for an event with a datetime dtend" do
+      @it = RiCal.Event do |evt|
+        evt.dtstart = "20090704"
+        evt.dtend = "20090706T120000"
+      end
+      @it.finish_time.should == DateTime.parse("20090706T120000")
+    end
+    
+    it "should be the end time for an event with a datetime dtstart and a duration" do
+      @it = RiCal.Event do |evt|
+        evt.dtstart = "20090704T120000Z"
+        evt.duration = "PT1H30M"
+      end
+      @it.finish_time.should == DateTime.parse("20090704T133000Z")
+    end
+    
+    it "should uset the  timezone of dtstart when event has a duration" do
+      @it = RiCal.Event do |evt|
+        evt.dtstart = "TZID=Australia/Sydney:20090712T200000"
+        evt.duration = "PT1H"
+      end
+      @it.finish_time.should == DateTime.parse("2009-07-12T21:00:00+10:00")
+    end
+  end
+  
+  context ".before_range?" do
+    context "with a Date dtstart and no dtend" do
+      before(:each) do
+        @it = RiCal.Event do |evt|
+          evt.dtstart = "20090704"
+        end
+      end
+      
+      it "should be false if the range start is a date before the start date" do
+        @it.before_range?([Date.parse("20090703"), :anything]).should_not be
+      end
+      
+      it "should be false if the range start is the start date" do
+        @it.before_range?([Date.parse("20090704"), :anything]).should_not be
+      end
+      
+      it "should be true if the range start is a date after the start date" do
+        @it.before_range?([Date.parse("20090705"), :anything]).should be
+      end
+    end
+
+    context "with a Date dtstart and date dtend" do
+      before(:each) do
+        @it = RiCal.Event do |evt|
+          evt.dtstart = "20090704"
+          evt.dtend = "20090706"
+        end
+      end
+      
+      it "should be false if the range start is a date before the end date" do
+        @it.before_range?([Date.parse("20090705"), :anything]).should_not be
+      end
+      
+      it "should be false if the range start is the end date" do
+        @it.before_range?([Date.parse("20090706"), :anything]).should_not be
+      end
+      
+      it "should be true if the range start is a date after the end date" do
+        @it.before_range?([Date.parse("20090707"), :anything]).should be
+      end
+    end
+  end
+
+  context "bug report from Noboyuki Tomizawa" do
+    before(:each) do
+
+      @it = RiCal.Calendar do |cal|
+        cal.event do |event|
+          event.description = "test"
+          event.dtstart = "TZID=Asia/Tokyo:20090530T123000"
+          event.dtend =   "TZID=Asia/Tokyo:20090530T123001"
+        end
+      end
+    end
+    
+    it "should not fail" do
+      lambda {@it.export}.should_not raise_error
+    end
+  end
+
+  context "rdate property methods" do
+    before(:each) do
+      @event = RiCal.Event do
+        rdate "20090101"
+      end
+    end
+
+    context "#rdate=" do
+
+      it "should accept a single Date and replace the existing rdate" do
+        @event.rdate = Date.parse("20090102")
+        @event.rdate.should == [[Date.parse("20090102")]]
+      end
+
+      it "should accept a single rfc2445 date format string and replace the existing rdate" do
+        @event.rdate = "20090102"
+        @event.rdate.should == [[Date.parse("20090102")]]
+      end
+
+      it "should accept a single DateTime and replace the existing rdate" do
+        @event.rdate = DateTime.parse("20090102T012345")
+        @event.rdate.should == [[DateTime.parse("20090102T012345")]]
+      end
+
+      it "should accept a single Time and replace the existing rdate" do
+        ::RiCal::PropertyValue::DateTime.default_tzid = 'UTC'
+        @event.rdate = Time.local(2009, 1, 2, 1, 23, 45)
+        @event.rdate.should == [[result_time_in_zone(2009, 1, 2, 1, 23, 45, "UTC")]]
+      end
+
+      it "should accept a single rfc2445 date-time format string  and replace the existing rdate" do
+        @event.rdate = "20090102T012345"
+        @event.rdate.should == [[DateTime.parse("20090102T012345")]]
+      end
+
+      it "should accept a tzid prefixed rfc2445 date-time format string  and replace the existing rdate" do
+        @event.rdate = "TZID=America/New_York:20090102T012345"
+        @event.rdate.should == [[result_time_in_zone(2009, 1, 2, 1, 23, 45, "America/New_York")]]
+      end
+
+    end
+
+  end
+
+  context "comment property methods" do
+    before(:each) do
+      @event = RiCal.Event
+      @event.comment = "Comment"
+    end
+
+    context "#comment=" do
+      it "should result in a single comment for the event" do
+        @event.comment.should == ["Comment"]
+      end
+
+      it "should replace existing comments" do
+        @event.comment = "Replacement"
+        @event.comment.should == ["Replacement"]
+      end
+    end
+
+    context "#comments=" do
+      it "should result in a multiple comments for the event replacing existing comments" do
+        @event.comments = "New1", "New2"
+        @event.comment.should == ["New1", "New2"]
+      end
+    end
+
+    context "#add_comment" do
+      it "should add a single comment" do
+        @event.add_comment "New1"
+        @event.comment.should == ["Comment", "New1"]
+      end
+    end
+
+    context "#add_comments" do
+      it "should add multiple comments" do
+        @event.add_comments "New1", "New2"
+        @event.comment.should == ["Comment", "New1", "New2"]
+      end
+    end
+
+    context "#remove_comment" do
+      it "should remove a single comment" do
+        @event.add_comment "New1"
+        @event.remove_comment "Comment"
+        @event.comment.should == ["New1"]
+      end
+    end
+
+    context "#remove_comments" do
+      it "should remove multiple comments" do
+        @event.add_comments "New1", "New2", "New3"
+        @event.remove_comments "New2", "Comment"
+        @event.comment.should == ["New1", "New3"]
+      end
+    end
+  end
+
+  context ".dtstart=" do
+    before(:each) do
+      @event = RiCal.Event
+    end
+
+    context "with a datetime only string" do
+      before(:each) do
+        @event.dtstart = "20090514T202400"
+        @it = @event.dtstart
+      end
+
+      it "should interpret it as the correct date-time" do
+        @it.should == DateTime.civil(2009, 5, 14, 20, 24, 00, Rational(0,24))
+      end
+
+      it "should interpret it as a floating date" do
+        @it.tzid.should == :floating
+      end
+    end
+
+    context "with a TZID and datetime string" do
+      before(:each) do
+        @event.dtstart = "TZID=America/New_York:20090514T202400"
+        @it = @event.dtstart
+      end
+
+      it "should interpret it as the correct date-time" do
+        @it.should == result_time_in_zone(2009, 5, 14, 20, 24, 00, "America/New_York")
+      end
+
+      it "should set the tzid to America/New_York" do
+        @it.tzid.should == "America/New_York"
+      end
+    end
+
+    context "with a zulu datetime only string" do
+      before(:each) do
+        @event.dtstart = "20090514T202400Z"
+        @it = @event.dtstart
+      end
+
+      it "should interpret it as the correct date-time" do
+        @it.should == DateTime.civil(2009, 5, 14, 20, 24, 00, Rational(0,24))
+      end
+
+      it "should set the tzid to UTC" do
+        @it.tzid.should == "UTC"
+      end
+    end
+
+    context "with a date string" do
+      before(:each) do
+        @event.dtstart = "20090514"
+        @it = @event.dtstart
+      end
+
+      it "should interpret it as the correct date-time" do
+        @it.should == Date.parse("14 May 2009")
+      end
+    end
+  end
+
+  context ".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 ".start_time" do
+
+    it "should be nil if there is no dtstart property" do
+      RiCal.Event.start_time.should be_nil
+    end
+
+    it "should be the same as dtstart for a date time" do
+      event = RiCal.Event {|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.Event {|e| e.dtstart = "20090525"}
+      event.start_time.should == DateTime.civil(2009,05,25,0,0,0,0)
+    end
+  end
+
+  context ".finish_time" do
+    before(:each) do
+      @event = RiCal.Event {|e| e.dtstart = "20090525T151900"}
+    end
+
+    context "with a given dtend" do
+      it "should be the same as dtend for a date time" do
+        @event.dtend = "20090525T161900"
+        @event.finish_time.should == DateTime.civil(2009,05,25,16,19,0,0)
+      end
+
+
+    end
+
+    context "with no dtend" do
+      context "and a duration" do
+        it "should be the dtstart plus the duration" do
+          @event.duration = "+PT1H"
+          @event.finish_time.should == DateTime.civil(2009,5,25,16,19,0,0)
+        end
+      end
+
+      context "and no duration" do
+        context "when the dtstart is not set" do
+          before(:each) do
+            @event.dtstart_property = nil
+          end
+
+          it "should be nil" do
+            @event.finish_time.should be_nil
+          end
+        end
+        context "when the dstart is a datetime" do
+          # For cases where a "VEVENT" calendar component
+          # specifies a "DTSTART" property with a DATE-TIME data type but no
+          # "DTEND" property, the event ends on the same calendar date and time
+          # of day specified by the "DTSTART" property. RFC 2445 p 53
+          it "should be the same as start_time" do
+            @event.finish_time.should == @event.start_time
+          end
+        end
+        context "when the dtstart is a date" do
+          # For cases where a "VEVENT" calendar component specifies a "DTSTART" property with a DATE data type
+          # but no "DTEND" property, the events non-inclusive end is the end of the calendar date specified by
+          # the "DTSTART" property. RFC 2445 p 53
+
+          it "should be the end of the same day as start_time" do
+            @event.dtstart = "20090525"
+            @event.finish_time.should == DateTime.civil(2009,5,25,23,59,59,0)
+          end
+        end
+      end
+    end
+
+  end
+
+  context ".zulu_occurrence_range_start_time" do
+
+    it "should be nil if there is no dtstart property" do
+      RiCal.Event.zulu_occurrence_range_start_time.should be_nil
+    end
+
+    it "should be the utc equivalent of dtstart for a date time" do
+      event = RiCal.Event {|e| e.dtstart = "TZID=America/New_York:20090525T151900"}
+      event.zulu_occurrence_range_start_time.should == DateTime.civil(2009,05,25,19,19,0,0)
+    end
+
+    it "should be the utc time of the start of the day of dtstart in the earliest timezone for a date" do
+      event = RiCal.Event {|e| e.dtstart = "20090525"}
+      result = event.zulu_occurrence_range_start_time
+      result.should == DateTime.civil(2009,05,24,12,0,0,0)
+    end
+
+    it "should be the utc time of the dtstart in the earliest timezone if dtstart is a floating datetime" do
+      event = RiCal.Event {|e| e.dtstart = "20090525T151900"}
+      event.zulu_occurrence_range_start_time.should == DateTime.civil(2009,05,25,3,19,0,0)
+    end
+  end
+
+  context ".zulu_occurrence_range_finish_time" do
+    before(:each) do
+      @event = RiCal.Event {|e| e.dtstart = "TZID=America/New_York:20090525T151900"}
+    end
+
+    context "with a given dtend" do
+      it "should be the utc equivalent of dtend if dtend is a date time" do
+        @event.dtend = "TZID=America/New_York:20090525T161900"
+        @event.zulu_occurrence_range_finish_time.should == DateTime.civil(2009,05,25, 20,19,0,0)
+      end
+    end
+
+    context "with no dtend" do
+      context "and a duration" do
+        it "should be the dtstart plus the duration" do
+          @event.duration = "+PT1H"
+          @event.zulu_occurrence_range_finish_time.should == DateTime.civil(2009,5,25,20 ,19,0,0)
+        end
+      end
+
+      context "and no duration" do
+        context "when the dtstart is not set" do
+          before(:each) do
+            @event.dtstart_property = nil
+          end
+
+          it "should be nil" do
+            @event.zulu_occurrence_range_finish_time.should be_nil
+          end
+        end
+
+        context "when the dstart is a datetime" do
+
+          it "should be the same as start_time" do
+            @event.zulu_occurrence_range_finish_time.should == @event.zulu_occurrence_range_start_time
+          end
+        end
+        
+        context "when the dtstart is a date" do
+          it "should be the utc of end of the same day as start_time in the westermost time zone" do
+            @event.dtstart = "20090525"
+            @event.zulu_occurrence_range_finish_time.should == DateTime.civil(2009,5,26,11,59,59,0)
+          end
+        end
+      end
+    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 = "19970101T123456".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 = "PT1H".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 = "PT1H".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")
+      date_time.dup.set_tzid(timezone)
+    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").set_tzid("UTC")
+      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
+
+    it "should properly fold on export when the description contains a carriage return" do
+      @it.description = "Weather report looks nice, 80 degrees and partly cloudy, so following Michael's suggestion, let's meet at the food court at Crossroads:\n\rhttp://www.shopcrossroadsplaza.c...\n"
+      export_string = @it.export
+      export_string.should match(%r(^DESCRIPTION:Weather report looks nice\\, 80 degrees and partly cloudy\\, so$))
+      export_string.should match(%r(^  following Michael's suggestion\\, let's meet at the food court at Crossr$))
+      export_string.should match(%r(^ oads:\\nhttp://www\.shopcrossroadsplaza.c\.\.\.\\n$))
+    end
+
+    it "should properly fold on export when the description contains multi-byte UTF-8 Characters" do
+      @it.description = "Juin 2009 <<Alliance Francaise Reunion>> lieu Café périferôl"
+      export_string = @it.export
+      export_string.should match(%r(^DESCRIPTION:Juin 2009 <<Alliance Francaise Reunion>> lieu Café périfer$))
+      export_string.should match(%r(^ ôl$))
+    end
+  end
+
+  if RiCal::TimeWithZone
+    context "with ActiveSupport loaded" do
+
+      context "an event with an timezoned exdate" do
+        before(:each) do
+          @old_timezone = Time.zone
+          Time.zone = "America/New_York"
+          @exception_date_time = Time.zone.local(2009, 5, 19, 11, 13)
+           cal = RiCal.Calendar do |cal|
+            cal.event do |event|
+              event.add_exdate @exception_date_time
+            end
+          end
+          @event = cal.events.first
+        end
+
+        after(:each) do
+          Time.zone = @old_timezone
+        end
+
+        it "should pickup the timezone in the exdate property" do
+          @event.exdate.first.first.tzid.should == "America/New_York"
+        end
+
+        it "should have the timezone in the ical representation of the exdate property" do
+          @event.exdate_property.first.to_s.should match(%r{;TZID=America/New_York[:;]})
+        end
+      end
+
+      context "An event in a non-tzinfo source calendar" 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
+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
+
+        it "should produce a DateTime for dtstart" do
+          @event.dtstart.should be_instance_of(DateTime)
+        end
+      end
+
+      context "An event starting in Paris and ending in New York" do
+
+        before(:each) do
+          @start = Time.now.utc.in_time_zone("Europe/Paris")
+          @finish = Time.now.utc.in_time_zone("America/New_York")
+          cal = RiCal.Calendar do |ical|
+            ical.event do |ievent|
+              ievent.dtstart @start
+              ievent.dtend   @finish
+            end
+          end
+          @event = cal.events.first
+        end
+
+        it "should have the right time zone for dtstart" do
+          @event.dtstart.tzid.should == "Europe/Paris"
+        end
+
+        it "should produce a TimeWithZone for dtstart" do
+          @event.dtstart.should be_instance_of(RiCal::TimeWithZone)
+        end
+
+        # ActiveRecord::TimeWithZone doesn't implement == as expected
+        it "should produce a dtstart which looks like the provided value" do
+          @event.dtstart.to_s.should == @start.to_s
+        end
+
+        it "should have the right time zone for dtend" do
+          @event.dtend.tzid.should == "America/New_York"
+        end
+
+        it "should produce a TimeWithZone for dtend" do
+          @event.dtend.should be_instance_of(RiCal::TimeWithZone)
+        end
+
+        # ActiveRecord::TimeWithZone doesn't implement == as expected
+        it "should produce a dtend which looks like the provided value" do
+          @event.dtend.to_s.should == @finish.to_s
+        end
+      end
+    end
+  end
+
+  context "An event with a floating start" do
+
+    before(:each) do
+      cal = RiCal.Calendar do |ical|
+        ical.event do |ievent|
+          ievent.dtstart "20090530T120000"
+        end
+      end
+      @event = cal.events.first
+    end
+
+    it "should produce a DateTime for dtstart" do
+      @event.dtstart.should be_instance_of(DateTime)
+    end
+
+    it "should have a floating dtstart" do
+      @event.dtstart.should have_floating_timezone
+    end
+  end
+end