demingfactor-ri_cal 0.9.0

data/parked_specs/ri_cal/claudio_a_bug_spec.rb

@@ -0,0 +1,100 @@
+#- ©2009 Rick DeNatale, All rights reserved. Refer to the file README.txt for the license
+
+require 'rubygems'
+require File.join(File.dirname(__FILE__), %w[.. spec_helper])
+
+describe "RiCal TimeZone problem" do
+  it "should keep the original calendar timezone intact" do
+    original_calendar = RiCal.parse_string(original_calendar_contents).first
+    puts "*"*40
+    puts original_calendar
+    puts "*"*40
+    reply_calendar = reply original_calendar
+    #reply_calendar = RiCal.parse_string(reply_calendar_contents).first
+    puts reply_calendar
+    puts "*"*40
+
+    original_event = original_calendar.events.first
+    reply_event = reply_calendar.events.first
+    reply_event.start_time.to_s.should == original_event.start_time.to_s
+  end
+end
+
+private
+
+# This is the calendar contents generated when we send the message >>#reply to the original calendar.
+def reply_calendar_contents
+  "BEGIN:VCALENDAR
+PRODID;X-RICAL-TZSOURCE=TZINFO:-//com.denhaven2/NONSGML ri_cal gem//EN
+CALSCALE:GREGORIAN
+VERSION:2.0
+METHOD:REPLY
+BEGIN:VTIMEZONE
+TZID;X-RICAL-TZSOURCE=TZINFO:America/Argentina/Buenos_Aires
+BEGIN:STANDARD
+DTSTART:20090314T230000
+RDATE:20090314T230000
+TZOFFSETFROM:-0200
+TZOFFSETTO:-0300
+TZNAME:ART
+END:STANDARD
+END:VTIMEZONE
+BEGIN:VEVENT
+CREATED;VALUE=DATE-TIME:20091217T155557Z
+DTEND;TZID=America/Argentina/Buenos_Aires;VALUE=DATE-TIME:20091227T010000
+STATUS:CONFIRMED
+LAST-MODIFIED;TZID=America/Argentina/Buenos_Aires;VALUE=DATE-TIME:2009121
+ 7T173400
+DTSTART;TZID=America/Argentina/Buenos_Aires;VALUE=DATE-TIME:20091227T0000
+ 00
+ATTENDEE;CN=PoketyPoke;PARTSTAT=ACCEPTED;ROLE=REQ-PARTICIPANT:barbarazopp
+ o@gmail.com
+UID:1693CA3B-C528-4E5A-87FB-CDFAEC0EC662
+ORGANIZER:mailto:nasif.lucas@gmail.com
+DESCRIPTION:
+SUMMARY:testing.. Event
+SEQUENCE:3
+LOCATION:
+END:VEVENT
+END:VCALENDAR".strip
+end
+
+def original_calendar_contents
+  "BEGIN:VCALENDAR\nPRODID:-//Apple Inc.//iCal 4.0.1//EN\nCALSCALE:GREGORIAN\nVERSION:2.0\nMETHOD:REQUEST\nBEGIN:VEVENT\nTRANSP:TRANSPARENT\nDTSTAMP;VALUE=DATE-TIME:20091217T155800Z\nCREATED;VALUE=DATE-TIME:20091217T155557Z\nDTEND;TZID=America/Argentina/Buenos_Aires;VALUE=DATE-TIME:20091227T010000\nDTSTART;TZID=America/Argentina/Buenos_Aires;VALUE=DATE-TIME:20091227T0000\n 00\nATTENDEE;CN=Lucas Nasif;CUTYPE=INDIVIDUAL;PARTSTAT=ACCEPTED:mailto:nasif.\n lucas@gmail.com\nATTENDEE;CN=barbarazoppo@gmail.com;CUTYPE=INDIVIDUAL;EMAIL=barbarazoppo@g\n mail.com;PARTSTAT=NEEDS-ACTION;ROLE=REQ-PARTICIPANT;RSVP=TRUE:mailto:bar\n barazoppo@gmail.com\nUID:1693CA3B-C528-4E5A-87FB-CDFAEC0EC662\nORGANIZER;CN=Lucas Nasif:mailto:nasif.lucas@gmail.com\nSUMMARY:testing.. Event\nSEQUENCE:3\nEND:VEVENT\nBEGIN:VTIMEZONE\nTZID:America/Argentina/Buenos_Aires\nBEGIN:STANDARD\nTZOFFSETTO:-0300\nDTSTART;VALUE=DATE-TIME:20080316T000000\nRRULE:FREQ=YEARLY;BYMONTH=3;BYDAY=3SU\nTZOFFSETFROM:-0200\nTZNAME:GMT-03:00\nEND:STANDARD\nBEGIN:DAYLIGHT\nTZOFFSETTO:-0200\nDTSTART;VALUE=DATE-TIME:20081019T000000\nRRULE:FREQ=YEARLY;BYMONTH=10;BYDAY=3SU\nTZOFFSETFROM:-0300\nTZNAME:GMT-02:00\nEND:DAYLIGHT\nEND:VTIMEZONE\nEND:VCALENDAR\n".strip
+end
+
+def reply(original_calendar)
+  icalendar = RiCal.Calendar do | calendar |
+
+    calendar.icalendar_method = "REPLY"
+    calendar.default_tzid = original_calendar.default_tzid
+
+    calendar.event do | event |
+
+      original_event = original_calendar.events.first
+      event.created = original_event.created
+      event.dtstart = original_event.start_time
+      event.dtend = original_event.finish_time
+      event.organizer = original_event.organizer
+      event.location = original_event.location.to_s
+      event.uid_property = original_event.uid_property
+
+      options = {'ROLE' => 'REQ-PARTICIPANT',
+                 'PARTSTAT' => 'ACCEPTED',
+                 'CN' => 'SomeName...'}
+
+      attendee_property = RiCal::PropertyValue::CalAddress.new(nil,
+                                                               :value => @attendant,
+                                                               :params => options)
+
+      event.attendee_property = attendee_property
+      event.description = original_event.description.to_s
+      event.summary = original_event.summary.to_s
+
+      event.sequence_property = original_event.sequence_property
+      event.status = "CONFIRMED"
+      event.last_modified = DateTime.parse(Time.now.to_s)
+    end
+  end
+  icalendar
+end

data/performance/empty_propval/subject.rb

@@ -0,0 +1,43 @@
+class Subject
+  def initialize(out=STDOUT)
+    cals = RiCal.parse_string <<-END_OF_DATA
+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:16010101T020000
+TZOFFSETFROM:-0400
+TZOFFSETTO:-0500
+RRULE:FREQ=YEARLY;WKST=MO;INTERVAL=1;BYMONTH=11;BYDAY=1SU
+END:STANDARD
+BEGIN:DAYLIGHT
+DTSTART:16010101T020000
+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
+END_OF_DATA
+
+    cal = cals.first
+    @event = cal.events.first
+  end
+  
+  def run
+    puts "start"
+    @event.dtstart
+    puts "done"
+  end
+end

data/performance/paris_eastern/subject.rb

@@ -0,0 +1,90 @@
+class Subject
+  def initialize(out=STDOUT)
+    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
+    event = cal.events.find {|event| event.summary == "Paris Event"}
+    @date_time = event.dtstart_property
+  end
+  
+  def run
+    puts "start"
+    @date_time.in_time_zone("US/Eastern")
+    puts "done"
+  end
+end

data/performance/penultimate_weekday/subject.rb

@@ -0,0 +1,15 @@
+require 'tzinfo'
+
+
+class Subject
+  def initialize(out=STDOUT)
+    @event = RiCal.Event do |e|
+      e.dtstart = "TZID=America/New_York:19970929T090000"
+      e.rrule = "FREQ=MONTHLY;BYDAY=MO,TU,WE,TH,FR;BYSETPOS=-2"
+    end
+  end
+  
+  def run
+    @event.occurrences(:count => 7)
+  end
+end