ri_cal 0.5.0

data/spec/ri_cal/parser_spec.rb

@@ -0,0 +1,303 @@
+#- ©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::Parser do
+  
+  def self.describe_property(entity_name, prop_name, params, value, type = RiCal::PropertyValue::Text)
+    describe_named_property(entity_name, prop_name, prop_name, params, value, false, type)
+  end
+    
+  def self.describe_multi_property(entity_name, prop_name, params, value, type = RiCal::PropertyValue::Text)
+    describe_named_property(entity_name, prop_name, prop_name, params, value, true, type)
+  end
+    
+  def self.describe_named_property(entity_name, prop_text, prop_name, params, value, multi, type = RiCal::PropertyValue::Text)
+    ruby_value_name = prop_name.tr("-", "_").downcase
+    ruby_prop_name = "#{prop_text.tr('-', '_').downcase}_property"
+    expected_ruby_value = type.convert(nil, value).ruby_value
+    describe "#{prop_name} with value of #{value.inspect}" do
+      parse_input = params.inject("BEGIN:#{entity_name.upcase}\n#{prop_text.upcase}") { |pi, assoc| "#{pi};#{assoc[0]}=#{assoc[1]}"}
+      parse_input = "#{parse_input}:#{value.to_rfc2445_string}\nEND:#{entity_name.upcase}"
+      
+      it "should parse an event with an #{prop_text.upcase} property" do
+        lambda {RiCal::Parser.parse(StringIO.new(parse_input))}.should_not raise_error
+      end
+
+      describe "property characteristics" do
+        before(:each) do
+          @entity = RiCal::Parser.parse(StringIO.new(parse_input)).first
+          @prop = @entity.send(ruby_prop_name.to_sym)
+          if multi && Array === @prop
+            @prop = @prop.first
+          end
+        end
+
+        it "should be a #{type.name}" do
+          @prop.class.should == type
+        end
+
+        it "should have the right value" do
+          @prop.value.should == value
+        end
+        
+        it "should make the value accessible directly" do
+          val = @entity.send(ruby_value_name)
+          val = val.first if multi && Array === val
+          val.should == expected_ruby_value
+        end
+
+        it "should have the right parameters" do
+          params.each do | key, value |
+            @prop.params[key].should == value
+          end
+        end
+      end
+
+    end
+  end
+  
+  describe ".next_line" do
+    it "should return line by line" do
+      RiCal::Parser.new(StringIO.new("abc\ndef")).next_line.should == "abc"      
+    end
+
+    it "should combine lines" do
+      RiCal::Parser.new(StringIO.new("abc\n def\n  ghi")).next_line.should == "abcdef ghi"      
+    end
+  end
+
+  describe ".separate_line" do
+
+    before(:each) do
+      @parser = RiCal::Parser.new
+    end
+
+    it "should return a hash" do
+      @parser.separate_line("abc;x=y;z=1,2:value").should be_kind_of(Hash)
+    end
+
+    it "should find the name" do
+      @parser.separate_line("abc;x=y;z=1,2:value")[:name].should == "abc"
+    end
+
+    it "should find the parameters" do
+      @parser.separate_line("abc;x=y;z=1,2:value")[:params].should == {"x" => "y","z" => "1,2"}
+    end
+
+    it "should find the value" do
+      @parser.separate_line("abc;x=y;z=1,2:value")[:value].should == "value"
+    end
+  end
+
+  describe ".parse" do
+
+    it "should reject a file which doesn't start with BEGIN" do
+      parser = RiCal::Parser.new(StringIO.new("END:VCALENDAR"))
+      lambda {parser.parse}.should raise_error     
+    end
+
+    describe "parsing an event" do
+      it "should parse an event" do
+        parser = RiCal::Parser.new(StringIO.new("BEGIN:VEVENT"))
+        RiCal::Component::Event.should_receive(:from_parser).with(parser, nil)
+        parser.parse
+      end
+
+      it "should parse an event and return a Event" do
+        cal = RiCal::Parser.parse(StringIO.new("BEGIN:VEVENT\nEND:VEVENT")).first
+        cal.should be_kind_of(RiCal::Component::Event)
+      end
+
+      #RFC 2445 section 4.8.1.1 pp 77
+      describe_multi_property("VEVENT", "ATTACH", {"FMTTYPE" => "application/postscript"}, "FMTTYPE=application/postscript:ftp//xyzCorp.com/put/reports/r-960812.ps", RiCal::PropertyValue::Uri)
+
+      #RFC 2445 section 4.8.1.2 pp 78
+      describe_multi_property("VEVENT", "CATEGORIES", {"LANGUAGE" => "us-EN"}, "APPOINTMENT,EDUCATION", RiCal::PropertyValue::Array)
+
+      #RFC 2445 section 4.8.1.3 pp 79
+      describe_named_property("VEVENT", "CLASS", "security_class", {"X-FOO" => "BAR"}, "PUBLIC", false)
+
+      #RFC 2445 section 4.8.1.4 pp 80
+      describe_multi_property("VEVENT", "COMMENT", {"X-FOO" => "BAR"}, "Event comment")
+
+      #RFC 2445 section 4.8.1.5 pp 81
+      describe_property("VEVENT", "DESCRIPTION", {"X-FOO" => "BAR"}, "Event description")
+      
+      #RFC 2445 section 4.8.1.6 pp 82
+      describe_property("VEVENT", "GEO", {"X-FOO" => "BAR"}, "37.386013;-122.082932", RiCal::PropertyValue::Geo)
+      
+      #RFC 2445 section 4.8.1.7 pp 84
+      describe_property("VEVENT", "LOCATION", {"ALTREP" => "\"http://xyzcorp.com/conf-rooms/f123.vcf\""}, "Conference Room - F123, Bldg. 002")
+      
+      #RFC 2445 section 4.8.1.8 PERCENT-COMPLETE does not apply to Events
+      
+      #RFC 2445 section 4.8.1.9 pp 84
+      describe_property("VEVENT", "PRIORITY", {"X-FOO" => "BAR"}, 1, RiCal::PropertyValue::Integer)
+
+      #RFC 2445 section 4.8.1.10 pp 87
+      describe_multi_property("VEVENT", "RESOURCES", {"X-FOO" => "BAR"}, "Easel,Projector,VCR", RiCal::PropertyValue::Array)
+
+      #RFC 2445 section 4.8.1.11 pp 88
+      describe_property("VEVENT", "STATUS", {"X-FOO" => "BAR"}, "CONFIRMED")
+
+      #RFC 2445 section 4.8.1.12 pp 89
+      describe_property("VEVENT", "SUMMARY", {"X-FOO" => "BAR"}, "Department Party")
+      
+      #RFC 2445 section 4.8.2.1 COMPLETED does not apply to Events
+      
+      #RFC 2445 section 4.8.2.2 DTEND p91
+      describe_property("VEVENT", "DTEND", {"X-FOO" => "BAR"}, "19970714", RiCal::PropertyValue::Date)
+      describe_property("VEVENT", "DTEND", {"X-FOO" => "BAR"}, "19970714T235959Z", RiCal::PropertyValue::DateTime)
+
+      #RFC 2445 section 4.8.2.3 DUE does not apply to Events
+      
+      #RFC 2445 section 4.8.2.4 DTSTART p93
+      describe_property("VEVENT", "DTSTART", {"X-FOO" => "BAR"}, "19970714", RiCal::PropertyValue::Date)
+      describe_property("VEVENT", "DTSTART", {"X-FOO" => "BAR"}, "19970714T235959Z", RiCal::PropertyValue::DateTime)
+
+      #RFC 2445 section 4.8.2.5 DURATION p94
+      describe_property("VEVENT", "DURATION", {"X-FOO" => "BAR"}, "P1H", RiCal::PropertyValue::Duration)
+
+      #RFC 2445 section 4.8.2.6 FREEBUSY does not apply to Events
+      
+      #RFC 2445 section 4.8.2.4 TRANSP p93
+      describe_property("VEVENT", "TRANSP", {"X-FOO" => "BAR"}, "OPAQUE")
+      #TO-DO need to spec that values are constrained to OPAQUE and TRANSPARENT
+      #      and that this property can be specified at most once
+      
+      #RFC 2445 section 4.8.4.1 ATTENDEE p102
+      describe_multi_property("VEVENT", "ATTENDEE", {"X-FOO" => "BAR"}, "MAILTO:jane_doe@host.com", RiCal::PropertyValue::CalAddress)
+      #TO-DO need to handle param values
+      
+      #RFC 2445 section 4.8.4.2 CONTACT p104
+      describe_multi_property("VEVENT", "CONTACT", {"X-FOO" => "BAR"}, "Contact info")
+      
+      #RFC 2445 section 4.8.4.3 ORGANIZER p106
+      describe_property("VEVENT", "ORGANIZER", {"X-FOO" => "BAR", "CN" => "John Smith"}, "MAILTO:jsmith@host1.com", RiCal::PropertyValue::CalAddress)
+      #TO-DO need to handle param values     
+      
+      #RFC 2445 section 4.8.4.4 RECURRENCE-ID p107
+      describe_property("VEVENT", "RECURRENCE-ID", {"X-FOO" => "BAR", "VALUE" => "DATE"}, "19970714", RiCal::PropertyValue::Date)
+      describe_property("VEVENT", "RECURRENCE-ID", {"X-FOO" => "BAR", "VALUE" => "DATE-TIME"}, "19970714T235959Z", RiCal::PropertyValue::DateTime)
+      #TO-DO need to handle parameters
+      
+      #RFC 2445 section 4.8.4.5 RELATED-TO p109
+      describe_multi_property("VEVENT", "RELATED-TO", {"X-FOO" => "BAR"}, "<jsmith.part7.19960817T083000.xyzMail@host3.com")
+      
+      #RFC 2445 section 4.8.4.6 URL p110
+      describe_property("VEVENT", "URL", {"X-FOO" => "BAR"}, "http://abc.com/pub/calendars/jsmith/mytime.ics", RiCal::PropertyValue::Uri)
+      
+      #RFC 2445 section 4.8.4.7 UID p111
+      describe_property("VEVENT", "UID", {"X-FOO" => "BAR"}, "19960401T080045Z-4000F192713-0052@host1.com")
+            
+      #RFC 2445 section 4.8.5.1 EXDATE p112
+      describe_multi_property("VEVENT", "EXDATE", {"X-FOO" => "BAR"}, "19960402T010000,19960403T010000,19960404T010000", RiCal::PropertyValue::OccurrenceList)
+
+      #RFC 2445 section 4.8.5.2 EXRULE p114
+      describe_multi_property("VEVENT", "EXRULE", {"X-FOO" => "BAR"}, "FREQ=DAILY;COUNT=10", RiCal::PropertyValue::RecurrenceRule)
+
+      #RFC 2445 section 4.8.5.3 RDATE p115
+      describe_multi_property("VEVENT", "RDATE", {"X-FOO" => "BAR"}, "19960402T010000,19960403T010000,19960404T010000", RiCal::PropertyValue::OccurrenceList)
+
+      #RFC 2445 section 4.8.5.2 RRULE p117
+      describe_multi_property("VEVENT", "RRULE", {"X-FOO" => "BAR"}, "FREQ=DAILY;COUNT=10", RiCal::PropertyValue::RecurrenceRule)
+
+      #RFC 2445 section 4.8.7.1 CREATED p129
+      describe_property("VEVENT", "CREATED", {"X-FOO" => "BAR"}, "19960329T133000Z", RiCal::PropertyValue::DateTime)
+ 
+      #RFC 2445 section 4.8.7.2 DTSTAMP p129
+      describe_property("VEVENT", "DTSTAMP", {"X-FOO" => "BAR"}, "19971210T080000Z", RiCal::PropertyValue::DateTime)
+
+      #RFC 2445 section 4.8.7.3 LAST-MODIFIED p131
+      describe_property("VEVENT", "LAST-MODIFIED", {"X-FOO" => "BAR"}, "19960817T133000Z", RiCal::PropertyValue::DateTime)
+
+      #RFC 2445 section 4.8.7.3 SEQUENCE p131
+      describe_property("VEVENT", "SEQUENCE", {"X-FOO" => "BAR"}, 2, RiCal::PropertyValue::Integer)
+
+      #RFC 2445 section 4.8.8.2 REQUEST-STATUS p131
+      describe_multi_property("VEVENT", "REQUEST-STATUS", {"X-FOO" => "BAR"}, "2.0;Success")
+   end
+
+    describe "parsing a calendar" do
+
+      it "should parse a calendar" do
+        parser = RiCal::Parser.new(StringIO.new("BEGIN:VCALENDAR"))
+        RiCal::Component::Calendar.should_receive(:from_parser).with(parser, nil)
+        parser.parse
+      end
+
+      it "should parse a calendar and return an array of 1 Calendar" do
+        cal = RiCal::Parser.parse(StringIO.new("BEGIN:VCALENDAR\nEND:VCALENDAR")).first
+        cal.should be_kind_of(RiCal::Component::Calendar)
+      end
+
+      # RFC 2445, section 4.6 section 4.7.1, pp 73-74
+      describe_property("VCALENDAR", "CALSCALE", {"X-FOO" => "Y"}, "GREGORIAN")
+
+      # RFC 2445, section 4.6  section 4.7.2, pp 74-75
+      describe_named_property("VCALENDAR", "METHOD", 'icalendar_method', {"X-FOO" => "Y"}, "REQUEST", false)
+
+      # RFC 2445, section 4.6, pp 51-52, section 4.7.3, p 75-76
+      describe_property("VCALENDAR", "PRODID", {"X-FOO" => "Y"}, "-//ABC CORPORATION//NONSGML/ My Product//EN")
+
+      # RFC 2445, section 4.6, pp 51-52, section 4.7.3, p 75-76
+      describe_property("VCALENDAR", "VERSION", {"X-FOO" => "Y"}, "2.0")
+
+
+      # RFC2445 p 51
+      it "should parse a calendar with an X property" do
+        lambda {RiCal::Parser.parse(StringIO.new("BEGIN:VCALENDAR\nX-PROP;X-FOO=Y:BAR\nEND:VCALENDAR"))}.should_not raise_error
+      end
+
+      describe 'the X property' do
+        before(:each) do
+          @x_props = RiCal::Parser.parse(StringIO.new("BEGIN:VCALENDAR\nX-PROP;X-FOO=Y:BAR\nEND:VCALENDAR")).first.x_properties
+          @x_prop = @x_props["X-PROP"]
+        end 
+
+        it "should be a PropertyValue::Text" do
+          @x_prop.should be_kind_of(RiCal::PropertyValue::Text)
+        end
+
+        it "should have the right value" do
+          @x_prop.value.should == "BAR"
+        end
+
+        it "should have the right parameters" do
+          @x_prop.params.should == {"X-FOO" => "Y"}
+        end
+      end 
+    end
+
+    it "should parse a to-do" do
+      parser = RiCal::Parser.new(StringIO.new("BEGIN:VTODO"))
+      RiCal::Component::Todo.should_receive(:from_parser).with(parser, nil)
+      parser.parse
+    end
+
+    it "should parse a journal entry" do
+      parser = RiCal::Parser.new(StringIO.new("BEGIN:VJOURNAL"))
+      RiCal::Component::Journal.should_receive(:from_parser).with(parser, nil)
+      parser.parse
+    end
+
+    it "should parse a free/busy component" do
+      parser = RiCal::Parser.new(StringIO.new("BEGIN:VFREEBUSY"))
+      RiCal::Component::Freebusy.should_receive(:from_parser).with(parser, nil)
+      parser.parse
+    end
+
+    it "should parse a timezone component" do
+      parser = RiCal::Parser.new(StringIO.new("BEGIN:VTIMEZONE"))
+      RiCal::Component::Timezone.should_receive(:from_parser).with(parser, nil)
+      parser.parse
+    end
+
+    it "should parse an alarm component" do
+      parser = RiCal::Parser.new(StringIO.new("BEGIN:VALARM"))
+      RiCal::Component::Alarm.should_receive(:from_parser).with(parser, nil)
+      parser.parse
+    end
+  end
+end

data/spec/ri_cal/property_value/date_spec.rb

@@ -0,0 +1,53 @@
+#- ©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::PropertyValue::Date do
+  context ".advance" do
+    it "should advance by one week if passed :days => 7" do
+      dt1 = RiCal::PropertyValue::Date.new(nil, :value => "20050131")
+      dt2 = RiCal::PropertyValue::Date.new(nil, :value => "20050207")
+      dt1.advance(:days => 7).should == dt2
+    end
+
+    context ".==" do
+      it "should return true for two instances representing the same date" do
+        dt1 = RiCal::PropertyValue::Date.new(nil, :value => DateTime.parse("20050131T010000"))
+        dt2 = RiCal::PropertyValue::Date.new(nil, :value => DateTime.parse("20050131T010001"))
+        dt1.should == dt2
+      end
+    end
+  end
+
+  context ".-" do
+
+    it "should return a Duration property when the argument is also a Date property" do
+      dt1 = RiCal::PropertyValue::Date.new(nil, :value => DateTime.parse("20090519"))
+      dt2 = RiCal::PropertyValue::Date.new(nil, :value => DateTime.parse("20090518"))
+      (dt1 - dt2).should == RiCal::PropertyValue::Duration.new(nil, :value => "+P1D")
+    end
+
+    it "should return a Duration property when the argument is a DateTime property" do
+      dt1 = RiCal::PropertyValue::Date.new(nil, :value => DateTime.parse("20090519"))
+      dt2 = RiCal::PropertyValue::DateTime.new(nil, :value => DateTime.parse("20090518T120000"))
+      (dt1 - dt2).should == RiCal::PropertyValue::Duration.new(nil, :value => "+PT12H")
+    end
+
+    it "should return a DateTime property when the argument is a Duration Property" do
+      dt1 = RiCal::PropertyValue::Date.new(nil, :value => "19980119")
+      duration = RiCal::PropertyValue::Duration.new(nil, :value => "+PT2H")
+      @it = dt1 - duration
+      @it.should == RiCal::PropertyValue::DateTime.new(nil, :value => "19980118T220000")
+    end
+  end
+
+  context ".+" do
+
+    it "should return a DateTime property when the argument is a Duration Property" do
+      dt1 = RiCal::PropertyValue::Date.new(nil, :value => "19980119")
+      duration = RiCal::PropertyValue::Duration.new(nil, :value => "+PT2H")
+      @it = dt1 + duration
+      @it.should == RiCal::PropertyValue::DateTime.new(nil, :value => "19980119T020000")
+    end
+  end
+end

data/spec/ri_cal/property_value/date_time_spec.rb

@@ -0,0 +1,383 @@
+#- ©2009 Rick DeNatale, All rights reserved. Refer to the file README.txt for the license
+
+require File.join(File.dirname(__FILE__), %w[.. .. spec_helper])
+require 'tzinfo'
+
+describe RiCal::PropertyValue::DateTime do
+  before(:each) do
+    @cal = RiCal.Calendar
+  end
+
+  def utc_datetime(string)
+    RiCal::PropertyValue::DateTime.new(@cal, :value => "#{string}Z")
+  end
+
+  def local_datetime(string, tzid = "America/New_York")
+    RiCal::PropertyValue::DateTime.new(@cal, :value => string, :params => {'TZID' => tzid})
+  end
+
+  context "time_with_zone_methods" do
+    context ".utc" do
+      context "for a datetime already in zulu time" do
+        before(:each) do
+          @it = utc_datetime("19970101T012300").utc
+        end
+
+        it "should return the same datetime" do
+          @it.should == utc_datetime("19970101T012300")
+        end
+
+        it "should return a result with a tzid of UTC" do
+          @it.utc.tzid.should == "UTC"
+        end
+      end
+
+      it "should raise an invalid timezone exception if the timezone of the receiver is unknown" do
+        lambda {local_datetime("19970101T012300", 'America/Caspian').utc}.should raise_error(RiCal::InvalidTimezoneIdentifier)
+      end
+
+      context "for a datetime with a tzid of America/New_York" do
+        before(:each) do
+          @it = local_datetime("19970101T012300")
+          @it = @it.utc
+        end
+
+        it "should return the equivalent utc time" do
+          @it.should == utc_datetime("19970101T062300")
+        end
+
+        it "should return a result with a tzid of UTC" do
+          @it.tzid.should == "UTC"
+        end
+      end
+
+      context ".in_timezone('America/New_York')" do
+
+        it "should raise an invalid timezone exception if the timezone of the receiver is unknown" do
+          lambda {local_datetime("19970101T012300", 'America/Caspian').in_time_zone('America/New_York')}.should raise_error(RiCal::InvalidTimezoneIdentifier)
+        end
+
+        context "for a datetime 19970101T012300 in zulu time" do
+          before(:each) do
+            @it = utc_datetime("19970101T012300").in_time_zone('America/New_York')
+          end
+
+          it "should return the 8:23 p. Dec 31, 1996" do
+            @it.should == local_datetime("19961231T202300")
+          end
+
+          it "should return a result with a tzid of UTC" do
+            @it.tzid.should == "America/New_York"
+          end
+        end
+
+        context "for a datetime 19970101T012300 with a tzid of America/New_York" do
+          before(:each) do
+            @it = local_datetime("19970101T012300").in_time_zone('America/New_York')
+          end
+
+          it "should return the same time" do
+            @it.should == local_datetime("19970101T012300")
+          end
+
+          it "should return a result with a tzid of UTC" do
+            @it.tzid.should == "America/New_York"
+          end
+        end
+
+        context "for a datetime 19970101T012300 with a tzid of America/Chicago" do
+          before(:each) do
+            @it = local_datetime("19970101T012300", "America/Chicago").in_time_zone('America/New_York')
+          end
+
+          it "should return Jan 1, 1997 02:23 a.m." do
+            @it.should == local_datetime("19970101T022300")
+          end
+
+          it "should return a result with a tzid of America/New_York" do
+            @it.tzid.should == "America/New_York"
+          end
+        end
+      end
+    end
+
+    context "for a datetime from an imported calendar" do
+
+      before(:each) do
+        cals = RiCal.parse_string <<-END_OF_DATA
+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:58DB0663-196B-4B6B-A05A-A53049661280
+X-APPLE-CALENDAR-COLOR:#0252D4
+BEGIN:VTIMEZONE
+TZID:Europe/Paris
+BEGIN:DAYLIGHT
+TZOFFSETFROM:+0100
+TZOFFSETTO:+0200
+DTSTART:19810329T020000
+RRULE:FREQ=YEARLY;BYMONTH=3;BYDAY=-1SU
+TZNAME:CEST
+END:DAYLIGHT
+BEGIN:STANDARD
+TZOFFSETFROM:+0200
+TZOFFSETTO:+0100
+DTSTART:19961027T030000
+RRULE:FREQ=YEARLY;BYMONTH=10;BYDAY=-1SU
+TZNAME:CET
+END:STANDARD
+END:VTIMEZONE
+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:3
+TRANSP:OPAQUE
+UID:AC2EFB19-A8A8-49EF-929F-CA0975374ED6
+DTSTART:20090501T000000Z
+DTSTAMP:20090501T174405Z
+SUMMARY:UTC Event
+CREATED:20090501T174347Z
+DTEND:20090501T010000Z
+END:VEVENT
+BEGIN:VEVENT
+SEQUENCE:2
+TRANSP:OPAQUE
+UID:A5517A09-C53E-4E1F-A642-EA47680BF2B6
+DTSTART;TZID=US/Eastern:20090430T140000
+DTSTAMP:20090501T174428Z
+SUMMARY:Eastern Event
+CREATED:20090501T174415Z
+DTEND;TZID=US/Eastern:20090430T150000
+END:VEVENT
+BEGIN:VEVENT
+SEQUENCE:3
+TRANSP:OPAQUE
+UID:B5024763-9197-4A60-A96E-D8D59D578BB2
+DTSTART;TZID=Europe/Paris:20090430T140000
+DTSTAMP:20090501T174509Z
+SUMMARY:Paris Event
+CREATED:20090501T174439Z
+DTEND;TZID=Europe/Paris:20090430T150000
+END:VEVENT
+END:VCALENDAR
+       END_OF_DATA
+       @cal = cals.first
+     end
+
+     def find_event(summary)
+       @cal.events.find {|event| event.summary == summary}
+     end
+
+     context ".utc" do
+
+       it "should raise an invalid timezone exception if the timezone of the receiver is not in the calendar" do
+         lambda {local_datetime("19970101T012300", 'America/New_York').utc}.should raise_error(RiCal::InvalidTimezoneIdentifier)
+       end
+
+       context "for the DTSTART of the UTC Event" do
+         before(:each) do
+           @it = find_event("UTC Event").dtstart_property.utc
+         end
+
+         it "should return the same datetime" do
+           @it.should == utc_datetime("20090501T000000")
+         end
+
+         it "should return a result with a tzid of UTC" do
+           @it.utc.tzid.should == "UTC"
+         end
+       end
+
+       context "for the DTSTART of the Eastern Event" do
+         before(:each) do
+           @it = find_event("Eastern Event").dtstart_property.utc
+         end
+
+         it "should return the equivalent utc time" do
+           @it.should == utc_datetime("20090430T180000")
+         end
+
+         it "should return a result with a tzid of UTC" do
+           @it.tzid.should == "UTC"
+         end
+       end
+     end
+
+     context ".in_timezone('US/Eastern')" do
+
+       it "should raise an invalid timezone exception if the timezone of the receiver is not in the calendar" do
+         lambda {local_datetime("19970101T012300", 'America/New_York').in_time_zone("US/Eastern")}.should raise_error(RiCal::InvalidTimezoneIdentifier)
+       end
+
+       context "for the DTSTART of the UTC Event" do
+          before(:each) do
+            @it = find_event("UTC Event").dtstart_property.in_time_zone("US/Eastern")
+          end
+
+         it "should return 8:00 p.m. Apr 30, 2009" do
+           @it.should == local_datetime("20090430T2000000", "US/Eastern")
+         end
+
+         it "should return a result with a tzid of US/Eastern" do
+           @it.tzid.should == "US/Eastern"
+         end
+       end
+
+       context "for the DTSTART of the Eastern Event" do
+         before(:each) do
+           @it = find_event("Eastern Event").dtstart_property.in_time_zone("US/Eastern")
+         end
+
+         it "should return the same time" do
+           @it.should == local_datetime("20090430T140000", "US/Eastern")
+         end
+
+         it "should return a result with a tzid of UTC" do
+           @it.tzid.should == "US/Eastern"
+         end
+       end
+
+       context "for the DTSTART of the Paris Event" do
+         before(:each) do
+           @it = find_event("Paris Event").dtstart_property.in_time_zone("US/Eastern")
+         end
+
+         it "should return 8:00 a.m. on Apr 30, 2009" do
+           @it.should == local_datetime("20090430T080000", "US/Eastern")
+         end
+
+         it "should return a result with a tzid of UTC" do
+           @it.tzid.should == "US/Eastern"
+         end
+       end
+     end
+   end
+ end
+
+  context ".from_separated_line" do
+    it "should return a RiCal::PropertyValue::Date if the value doesn't contain a time specification" do
+      RiCal::PropertyValue::DateTime.or_date(nil, :value => "19970714").should be_kind_of(RiCal::PropertyValue::Date)
+    end
+
+    it "should return a RiCal::PropertyValue::DateTime if the value does contain a time specification" do
+      RiCal::PropertyValue::DateTime.or_date(nil, :value => "19980118T230000").should be_kind_of(RiCal::PropertyValue::DateTime)
+    end
+  end
+
+  context ".advance" do
+    it "should advance by one week if passed :days => 7" do
+      dt1 = RiCal::PropertyValue::DateTime.new(nil, :value => "20050131T230000")
+      dt2 = RiCal::PropertyValue::DateTime.new(nil, :value => "20050207T230000")
+      dt1.advance(:days => 7).should == dt2
+    end
+  end
+
+  context "subtracting one date-time from another" do
+
+    it "should produce the right RiCal::PropertyValue::Duration" do
+      dt1 = RiCal::PropertyValue::DateTime.new(nil, :value => "19980118T230000")
+      dt2 = RiCal::PropertyValue::DateTime.new(nil, :value => "19980119T010000")
+      @it = dt2 - dt1
+      @it.should == RiCal::PropertyValue::Duration.new(nil, :value => "+PT2H")
+    end
+  end
+
+  context "adding a RiCal::PropertyValue::Duration to a RiCal::PropertyValue::DateTime" do
+
+    it "should produce the right RiCal::PropertyValue::DateTime" do
+      dt1 = RiCal::PropertyValue::DateTime.new(nil, :value => "19980118T230000")
+      duration = RiCal::PropertyValue::Duration.new(nil, :value => "+PT2H")
+      @it = dt1 + duration
+      @it.should == RiCal::PropertyValue::DateTime.new(nil, :value => "19980119T010000")
+    end
+  end
+
+  context "subtracting a RiCal::PropertyValue::Duration from a RiCal::PropertyValue::DateTime" do
+
+    it "should produce the right RiCal::PropertyValue::DateTime" do
+      dt1 = RiCal::PropertyValue::DateTime.new(nil, :value => "19980119T010000")
+      duration = RiCal::PropertyValue::Duration.new(nil, :value => "+PT2H")
+      @it = dt1 - duration
+      @it.should == RiCal::PropertyValue::DateTime.new(nil, :value => "19980118T230000")
+    end
+  end
+  context "when setting the default timezone identifier" do
+
+    before(:each) do
+      RiCal::PropertyValue::DateTime.default_tzid = "America/Chicago"
+      @time = Time.mktime(2009,2,5,19,17,11)
+      @it = RiCal::PropertyValue::DateTime.convert(nil, @time)
+    end
+
+    after(:each) do
+      RiCal::PropertyValue::DateTime.default_tzid = "UTC"
+    end
+
+    it "should update the default timezone to America/Chicago" do
+      @it.params.should == {'TZID' => 'America/Chicago'}
+    end
+
+    it "should not have a tzid when default_tzid is :floating" do
+      RiCal::PropertyValue::DateTime.default_tzid = :floating
+      dt = RiCal::PropertyValue::DateTime.convert(nil, @time)
+      dt.params.should == {}
+    end
+  end
+
+  context ".convert(rubyobject)" do
+    describe "for a Time instance of  Feb 05 19:17:11"
+    before(:each) do
+      @time = Time.mktime(2009,2,5,19,17,11)
+    end
+
+    context "with a normal a normal time instance" do
+      describe "when the default timezone identifier is UTC" do
+        before(:each) do
+          @it = RiCal::PropertyValue::DateTime.convert(nil, @time)
+        end
+
+        it "should have a TZID of UTC" do
+          @it.tzid.should == 'UTC'
+        end
+
+        it "should have the right value" do
+          @it.value.should == "20090205T191711Z"
+        end
+      end
+      
+      context "when the default timezone has been set to 'America/Chicago" do
+        before(:each) do
+          RiCal::PropertyValue::DateTime.stub!(:default_tzid).and_return("America/Chicago")
+          @it = RiCal::PropertyValue::DateTime.convert(nil, @time)
+        end
+
+        it "should have a TZID of America/Chicago" do
+          @it.tzid.should == 'America/Chicago'
+        end
+
+        it "should have the right value" do
+          @it.value.should == "20090205T191711"
+        end
+      end
+    end
+  end
+end