ri_cal 0.5.0

data/lib/ri_cal/property_value/utc_offset.rb

@@ -0,0 +1,33 @@
+module RiCal
+  class PropertyValue
+    #- ©2009 Rick DeNatale, All rights reserved. Refer to the file README.txt for the license
+    #
+    class UtcOffset < PropertyValue # :nodoc:
+      attr_accessor :sign, :hours, :minutes, :seconds
+
+      def value=(string)
+        @value = string
+        parse_match = /([+-])(\d\d)(\d\d)(\d\d)?/.match(string)
+        if parse_match
+          @sign = parse_match[1] == "+" ? 1 : -1
+          @hours = parse_match[2].to_i
+          @minutes = parse_match[3].to_i
+          @seconds = parse_match[4].to_i || 0
+        end
+      end
+      
+      def to_seconds
+        @sign * ((((hours*60) + minutes) * 60) + seconds)
+      end
+      
+      def add_to_date_time_value(date_time_value)
+        date_time_value.advance(:hours => sign * hours, :minutes => sign * minutes, :seconds => sign * minutes)
+      end
+      
+      def subtract_from_date_time_value(date_time_value)
+        signum = -1 * sign
+        date_time_value.advance(:hours => signum * hours, :minutes => signum * minutes, :seconds => signum * minutes)
+      end
+    end
+  end
+end

data/lib/ri_cal/required_timezones.rb

@@ -0,0 +1,55 @@
+module RiCal
+  #- ©2009 Rick DeNatale, All rights reserved. Refer to the file README.txt for the license
+  #
+  # RequireTimezones collects the timezones used by a given calendar component or set of calendar components
+  # For each timezone we collect it's id, and the earliest and latest times which reference the zone
+  class RequiredTimezones #:nodoc:
+    
+    
+    # A required timezone represents a single timezone and the earliest and latest times which reference it.
+    class RequiredTimezone #:nodoc:
+      
+      attr_reader :first_time, :last_time, :timezone
+      
+      def initialize(tzid)
+        @timezone = RiCal::Component::TZInfoTimezone.new(TZInfo::Timezone.get(tzid))
+      end
+      
+      def tzid
+        @timezone.identifier
+      end
+      
+      def add_datetime(date_time)
+        if @first_time 
+          @first_time = date_time if date_time < @first_time
+        else
+          @first_time = date_time
+        end
+        if @last_time 
+          @last_time = date_time if date_time > @last_time
+        else
+          @last_time = date_time
+        end
+      end
+    end
+    
+    def required_timezones
+      @required_zones ||= {}
+    end
+    
+    def required_zones
+      required_timezones.values
+    end
+    
+    def export_to(export_stream)
+      required_zones.each do |z|
+        tzinfo_timezone =z.timezone
+        tzinfo_timezone.export_local_to(export_stream, z.first_time, z.last_time)
+      end
+    end
+    
+    def add_datetime(date_time, tzid)
+      (required_timezones[tzid] ||= RequiredTimezone.new(tzid)).add_datetime(date_time)
+    end
+  end
+end

data/ri_cal.gemspec

@@ -0,0 +1,49 @@
+# -*- encoding: utf-8 -*-
+
+Gem::Specification.new do |s|
+  s.name = %q{ri_cal}
+  s.version = "0.5.0"
+
+  s.required_rubygems_version = Gem::Requirement.new(">= 0") if s.respond_to? :required_rubygems_version=
+  s.authors = ["author=Rick DeNatale"]
+  s.date = %q{2009-05-26}
+  s.default_executable = %q{ri_cal}
+  s.description = %q{This is an UNOFFICIAL version.  The public official version will be released on RubyForge.  Github will be used
+for interim versions.  USE THIS VERSION AT YOUR OWN RISK.
+
+A new Ruby implementation of RFC2445 iCalendar.
+
+The existing Ruby iCalendar libraries (e.g. icalendar, vpim) provide for parsing and generating icalendar files,
+but do not support important things like enumerating occurrences of repeating events.
+
+This is a clean-slate implementation of RFC2445.
+
+A Google group for discussion of this library has been set up http://groups.google.com/group/rical_gem}
+  s.email = ["rick.denatale@gmail.com"]
+  s.executables = ["ri_cal"]
+  s.extra_rdoc_files = ["History.txt", "Manifest.txt", "README.txt", "copyrights.txt", "docs/draft-ietf-calsify-2446bis-08.txt", "docs/draft-ietf-calsify-rfc2445bis-09.txt", "docs/incrementers.txt"]
+  s.files = ["History.txt", "Manifest.txt", "README.txt", "Rakefile", "bin/ri_cal", "component_attributes/alarm.yml", "component_attributes/calendar.yml", "component_attributes/component_property_defs.yml", "component_attributes/event.yml", "component_attributes/freebusy.yml", "component_attributes/journal.yml", "component_attributes/timezone.yml", "component_attributes/timezone_period.yml", "component_attributes/todo.yml", "copyrights.txt", "docs/draft-ietf-calsify-2446bis-08.txt", "docs/draft-ietf-calsify-rfc2445bis-09.txt", "docs/incrementers.txt", "docs/rfc2445.pdf", "lib/ri_cal.rb", "lib/ri_cal/component.rb", "lib/ri_cal/component/alarm.rb", "lib/ri_cal/component/calendar.rb", "lib/ri_cal/component/event.rb", "lib/ri_cal/component/freebusy.rb", "lib/ri_cal/component/journal.rb", "lib/ri_cal/component/t_z_info_timezone.rb", "lib/ri_cal/component/timezone.rb", "lib/ri_cal/component/timezone/daylight_period.rb", "lib/ri_cal/component/timezone/standard_period.rb", "lib/ri_cal/component/timezone/timezone_period.rb", "lib/ri_cal/component/todo.rb", "lib/ri_cal/core_extensions.rb", "lib/ri_cal/core_extensions/array.rb", "lib/ri_cal/core_extensions/array/conversions.rb", "lib/ri_cal/core_extensions/date.rb", "lib/ri_cal/core_extensions/date/conversions.rb", "lib/ri_cal/core_extensions/date_time.rb", "lib/ri_cal/core_extensions/date_time/conversions.rb", "lib/ri_cal/core_extensions/object.rb", "lib/ri_cal/core_extensions/object/conversions.rb", "lib/ri_cal/core_extensions/string.rb", "lib/ri_cal/core_extensions/string/conversions.rb", "lib/ri_cal/core_extensions/time.rb", "lib/ri_cal/core_extensions/time/calculations.rb", "lib/ri_cal/core_extensions/time/conversions.rb", "lib/ri_cal/core_extensions/time/tzid_access.rb", "lib/ri_cal/core_extensions/time/week_day_predicates.rb", "lib/ri_cal/floating_timezone.rb", "lib/ri_cal/invalid_property_value.rb", "lib/ri_cal/invalid_timezone_identifer.rb", "lib/ri_cal/occurrence_enumerator.rb", "lib/ri_cal/occurrence_period.rb", "lib/ri_cal/parser.rb", "lib/ri_cal/properties/alarm.rb", "lib/ri_cal/properties/calendar.rb", "lib/ri_cal/properties/event.rb", "lib/ri_cal/properties/freebusy.rb", "lib/ri_cal/properties/journal.rb", "lib/ri_cal/properties/timezone.rb", "lib/ri_cal/properties/timezone_period.rb", "lib/ri_cal/properties/todo.rb", "lib/ri_cal/property_value.rb", "lib/ri_cal/property_value/array.rb", "lib/ri_cal/property_value/cal_address.rb", "lib/ri_cal/property_value/date.rb", "lib/ri_cal/property_value/date_time.rb", "lib/ri_cal/property_value/date_time/additive_methods.rb", "lib/ri_cal/property_value/date_time/time_machine.rb", "lib/ri_cal/property_value/date_time/timezone_support.rb", "lib/ri_cal/property_value/duration.rb", "lib/ri_cal/property_value/geo.rb", "lib/ri_cal/property_value/integer.rb", "lib/ri_cal/property_value/occurrence_list.rb", "lib/ri_cal/property_value/period.rb", "lib/ri_cal/property_value/recurrence_rule.rb", "lib/ri_cal/property_value/recurrence_rule/enumeration_support_methods.rb", "lib/ri_cal/property_value/recurrence_rule/enumerator.rb", "lib/ri_cal/property_value/recurrence_rule/initialization_methods.rb", "lib/ri_cal/property_value/recurrence_rule/negative_setpos_enumerator.rb", "lib/ri_cal/property_value/recurrence_rule/numbered_span.rb", "lib/ri_cal/property_value/recurrence_rule/occurence_incrementer.rb", "lib/ri_cal/property_value/recurrence_rule/recurring_day.rb", "lib/ri_cal/property_value/recurrence_rule/recurring_month_day.rb", "lib/ri_cal/property_value/recurrence_rule/recurring_numbered_week.rb", "lib/ri_cal/property_value/recurrence_rule/recurring_year_day.rb", "lib/ri_cal/property_value/recurrence_rule/validations.rb", "lib/ri_cal/property_value/text.rb", "lib/ri_cal/property_value/uri.rb", "lib/ri_cal/property_value/utc_offset.rb", "lib/ri_cal/required_timezones.rb", "ri_cal.gemspec", "sample_ical_files/from_ical_dot_app/test1.ics", "script/console", "script/destroy", "script/generate", "script/txt2html", "spec/ri_cal/component/alarm_spec.rb", "spec/ri_cal/component/calendar_spec.rb", "spec/ri_cal/component/event_spec.rb", "spec/ri_cal/component/freebusy_spec.rb", "spec/ri_cal/component/journal_spec.rb", "spec/ri_cal/component/t_z_info_timezone_spec.rb", "spec/ri_cal/component/timezone_spec.rb", "spec/ri_cal/component/todo_spec.rb", "spec/ri_cal/component_spec.rb", "spec/ri_cal/core_extensions/string/conversions_spec.rb", "spec/ri_cal/core_extensions/time/calculations_spec.rb", "spec/ri_cal/core_extensions/time/week_day_predicates_spec.rb", "spec/ri_cal/occurrence_enumerator_spec.rb", "spec/ri_cal/parser_spec.rb", "spec/ri_cal/property_value/date_spec.rb", "spec/ri_cal/property_value/date_time_spec.rb", "spec/ri_cal/property_value/duration_spec.rb", "spec/ri_cal/property_value/occurrence_list_spec.rb", "spec/ri_cal/property_value/period_spec.rb", "spec/ri_cal/property_value/recurrence_rule/recurring_year_day_spec.rb", "spec/ri_cal/property_value/recurrence_rule_spec.rb", "spec/ri_cal/property_value/text_spec.rb", "spec/ri_cal/property_value/utc_offset_spec.rb", "spec/ri_cal/property_value_spec.rb", "spec/ri_cal/required_timezones_spec.rb", "spec/ri_cal_spec.rb", "spec/spec.opts", "spec/spec_helper.rb", "tasks/gem_loader/load_active_support.rb", "tasks/gem_loader/load_tzinfo_gem.rb", "tasks/ri_cal.rake", "tasks/spec.rake"]
+  s.has_rdoc = true
+  s.homepage = %q{http://rical.rubyforge.org/}
+  s.rdoc_options = ["--main", "README.txt"]
+  s.require_paths = ["lib"]
+  s.rubyforge_project = %q{rical}
+  s.rubygems_version = %q{1.3.2}
+  s.summary = %q{This is an UNOFFICIAL version}
+
+  if s.respond_to? :specification_version then
+    current_version = Gem::Specification::CURRENT_SPECIFICATION_VERSION
+    s.specification_version = 3
+
+    if Gem::Version.new(Gem::RubyGemsVersion) >= Gem::Version.new('1.2.0') then
+      s.add_development_dependency(%q<newgem>, [">= 1.3.0"])
+      s.add_development_dependency(%q<hoe>, [">= 1.8.0"])
+    else
+      s.add_dependency(%q<newgem>, [">= 1.3.0"])
+      s.add_dependency(%q<hoe>, [">= 1.8.0"])
+    end
+  else
+    s.add_dependency(%q<newgem>, [">= 1.3.0"])
+    s.add_dependency(%q<hoe>, [">= 1.8.0"])
+  end
+end

data/sample_ical_files/from_ical_dot_app/test1.ics

@@ -0,0 +1,38 @@
+BEGIN:VCALENDAR
+METHOD:PUBLISH
+X-WR-TIMEZONE:America/New_York
+PRODID:-//Apple Inc.//iCal 3.0//EN
+CALSCALE:GREGORIAN
+X-WR-CALNAME:test
+VERSION:2.0
+X-WR-RELCALID: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

data/script/console

@@ -0,0 +1,10 @@
+#!/usr/bin/env ruby
+# File: script/console
+irb = RUBY_PLATFORM =~ /(:?mswin|mingw)/ ? 'irb.bat' : 'irb'
+
+libs =  " -r irb/completion"
+# Perhaps use a console_lib to store any extra methods I may want available in the cosole
+# libs << " -r #{File.dirname(__FILE__) + '/../lib/console_lib/console_logger.rb'}"
+libs <<  " -r #{File.dirname(__FILE__) + '/../lib/ri_cal_newgem.rb'}"
+puts "Loading ri_cal_newgem gem"
+exec "#{irb} #{libs} --simple-prompt"

data/script/destroy

@@ -0,0 +1,14 @@
+#!/usr/bin/env ruby
+APP_ROOT = File.expand_path(File.join(File.dirname(__FILE__), '..'))
+
+begin
+  require 'rubigen'
+rescue LoadError
+  require 'rubygems'
+  require 'rubigen'
+end
+require 'rubigen/scripts/destroy'
+
+ARGV.shift if ['--help', '-h'].include?(ARGV[0])
+RubiGen::Base.use_component_sources! [:rubygems, :newgem, :newgem_theme, :test_unit]
+RubiGen::Scripts::Destroy.new.run(ARGV)

data/script/generate

@@ -0,0 +1,14 @@
+#!/usr/bin/env ruby
+APP_ROOT = File.expand_path(File.join(File.dirname(__FILE__), '..'))
+
+begin
+  require 'rubigen'
+rescue LoadError
+  require 'rubygems'
+  require 'rubigen'
+end
+require 'rubigen/scripts/generate'
+
+ARGV.shift if ['--help', '-h'].include?(ARGV[0])
+RubiGen::Base.use_component_sources! [:rubygems, :newgem, :newgem_theme, :test_unit]
+RubiGen::Scripts::Generate.new.run(ARGV)

data/script/txt2html

@@ -0,0 +1,71 @@
+#!/usr/bin/env ruby
+
+load File.dirname(__FILE__) + "/../Rakefile"
+require 'rubyforge'
+require 'redcloth'
+require 'syntax/convertors/html'
+require 'erb'
+
+download = "http://rubyforge.org/projects/#{$hoe.rubyforge_name}"
+version  = $hoe.version
+
+def rubyforge_project_id
+  RubyForge.new.configure.autoconfig["group_ids"][$hoe.rubyforge_name]
+end
+
+class Fixnum #:nodoc:
+  def ordinal
+    # teens
+    return 'th' if (10..19).include?(self % 100)
+    # others
+    case self % 10
+    when 1: return 'st'
+    when 2: return 'nd'
+    when 3: return 'rd'
+    else    return 'th'
+    end
+  end
+end
+
+class Time
+  def pretty
+    return "#{mday}#{mday.ordinal} #{strftime('%B')} #{year}"
+  end
+end
+
+def convert_syntax(syntax, source)
+  return Syntax::Convertors::HTML.for_syntax(syntax).convert(source).gsub(%r!^<pre>|</pre>$!,'')
+end
+
+if ARGV.length >= 1
+  src, template = ARGV
+  template ||= File.join(File.dirname(__FILE__), '/../website/template.html.erb')
+else
+  puts("Usage: #{File.split($0).last} source.txt [template.html.erb] > output.html")
+  exit!
+end
+
+template = ERB.new(File.open(template).read)
+
+title = nil
+body = nil
+File.open(src) do |fsrc|
+  title_text = fsrc.readline
+  body_text_template = fsrc.read
+  body_text = ERB.new(body_text_template).result(binding)
+  syntax_items = []
+  body_text.gsub!(%r!<(pre|code)[^>]*?syntax=['"]([^'"]+)[^>]*>(.*?)</\1>!m){
+    ident = syntax_items.length
+    element, syntax, source = $1, $2, $3
+    syntax_items << "<#{element} class='syntax'>#{convert_syntax(syntax, source)}</#{element}>"
+    "syntax-temp-#{ident}"
+  }
+  title = RedCloth.new(title_text).to_html.gsub(%r!<.*?>!,'').strip
+  body = RedCloth.new(body_text).to_html
+  body.gsub!(%r!(?:<pre><code>)?syntax-temp-(\d+)(?:</code></pre>)?!){ syntax_items[$1.to_i] }
+end
+stat = File.stat(src)
+created = stat.ctime
+modified = stat.mtime
+
+$stdout << template.result(binding)

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,54 @@
+#- ©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
+end

data/spec/ri_cal/component/event_spec.rb

@@ -0,0 +1,601 @@
+#- ©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 "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 = "+P1H"
+          @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"}
+      event.zulu_occurrence_range_start_time.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 = "+P1H"
+          @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 = "P1H".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 = "P1H".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
+  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.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